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. |