6 lines
124 B
ObjectPascal
6 lines
124 B
ObjectPascal
|
begin
|
|||
|
|
var i: integer;
|
|||
|
|
var p: procedure(ptr: pointer);
|
|||
|
|
p := ptr->begin assert(@i = pinteger(ptr)) end;
|
|||
|
|
p(@i);
|
|||
|
|
end.
|