paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 19:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pointer typecast added

Browse Source
This commit is contained in:
peter 2003-12-23 22:07:53 +00:00
parent ed708a0650
commit f6e7bd5274
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw1152.pp
View File

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