mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:07:59 +02:00
23 lines
261 B
ObjectPascal
23 lines
261 B
ObjectPascal
type
|
|
r1 = record
|
|
p : procedure stdcall;
|
|
i : longint;
|
|
end;
|
|
|
|
r2 = record
|
|
p : procedure;
|
|
i : longint;
|
|
end;
|
|
|
|
r3 = record
|
|
p : procedure
|
|
end;
|
|
|
|
{ ugly, but should work (FK) }
|
|
r4 = record
|
|
p : procedure stdcall
|
|
end;
|
|
|
|
begin
|
|
end.
|