mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 11:38:01 +02:00
* pointer typecast added
This commit is contained in:
parent
ed708a0650
commit
f6e7bd5274
@ -33,7 +33,7 @@ BEGIN
|
||||
exitproc:=@my_exit;
|
||||
finally_called:=false;
|
||||
try
|
||||
p:=$ffffffff;
|
||||
p:=pointer(-1);
|
||||
longint(p^):=0;
|
||||
finally
|
||||
finally_called:=true;
|
||||
|
Loading…
Reference in New Issue
Block a user