mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 23:13:40 +02:00
eeb8c747d5
U packages/univint/fpmake.pp ... --- Recording mergeinfo for merge of r42499 into '.': U . --- Merging r42500 into '.': U packages/cocoaint/fpmake.pp ... --- Recording mergeinfo for merge of r42500 into '.': G . --- Merging r42548 into '.': G packages/univint/src/AUComponent.pas G packages/univint/src/AudioUnitProperties.pas --- Recording mergeinfo for merge of r42548 into '.': G . --- Merging r43684 into '.': U compiler/msg/errore.msg ... --- Recording mergeinfo for merge of r43684 into '.': G . --- Merging r43687 into '.': G packages/univint/src/AudioComponents.pas U packages/univint/src/AudioServices.pas --- Recording mergeinfo for merge of r43687 into '.': G . git-svn-id: branches/fixes_3_2@44035 -
39 lines
605 B
ObjectPascal
39 lines
605 B
ObjectPascal
{ %target=darwin,iphonesim}
|
|
{ %skipcpu=powerpc,powerpc64 }
|
|
|
|
{$modeswitch cblocks}
|
|
|
|
type
|
|
tblock = reference to function(l: longint): longint; cdecl; cblock;
|
|
|
|
function test(b: tblock; l: longint): longint;
|
|
begin
|
|
test:=b(l);
|
|
end;
|
|
|
|
function func(l: longint): longint;
|
|
begin
|
|
writeln('called as block');
|
|
func:=l+1;
|
|
end;
|
|
|
|
const
|
|
bconst: tblock = @func;
|
|
|
|
var
|
|
b: tblock;
|
|
begin
|
|
b:=@func;
|
|
if b(1)<>2 then
|
|
halt(1);
|
|
if test(@func,4)<>5 then
|
|
halt(2);
|
|
if test(b,123)<>124 then
|
|
halt(3);
|
|
if bconst(100)<>101 then
|
|
halt(4);
|
|
if test(bconst,10)<>11 then
|
|
halt(5);
|
|
end.
|
|
|