* pointer typecast added

This commit is contained in:
peter 2003-12-23 22:07:53 +00:00
parent ed708a0650
commit f6e7bd5274

View File

@ -33,7 +33,7 @@ BEGIN
exitproc:=@my_exit;
finally_called:=false;
try
p:=$ffffffff;
p:=pointer(-1);
longint(p^):=0;
finally
finally_called:=true;