tests/webtbs/tw11254.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %norun }

{$mode macpas}
{$calling mwpascal}

unit tw11254;

interface

procedure Iterate( function theCallback( theDataPtr: Pointer): Integer);

implementation
procedure Iterate( function theCallback( theDataPtr: Pointer): Integer); begin end;

end.