paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed runtime

Browse Source 
git-svn-id: trunk@1490 -
This commit is contained in:
peter 2005-10-19 06:35:17 +00:00
parent 252d90b691
commit fb6d17fb21
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbs/tb0486.pp
View File

@ -1,16 +1,22 @@
{$mode delphi} {$ifdef fpc}{$mode delphi}{$endif}
type type
tprocedure = procedure; tprocedure = procedure;
pprocedure = ^tprocedure; pprocedure = ^tprocedure;
var var
l : longint; l : longint;
l2 : tprocedure;
function _f1 : plongint; function _f1 : plongint;
begin begin
result:=@l; result:=@l;
end; end;
function _f2 : pprocedure;
begin
result:=@@l2;
end;
var var
f1 : function : plongint; f1 : function : plongint;
f2 : function : pprocedure; f2 : function : pprocedure;
@ -21,6 +27,8 @@ procedure p;
end; end;
begin begin
f1:=_f1;
f2:=_f2;
f1^:=1; f1^:=1;
if l<>1 then if l<>1 then
halt(1); halt(1);