@@ -1,3 +1,5 @@
+{ %VERSION=1.1 }
+
{ Old file: tbs0353.pp }
{ }
@@ -1,3 +1,4 @@
{ %OPT=-Or }
{ test for full boolean eval and register usage with b+ }
var i: int64;
il: longint;
@@ -26,12 +26,15 @@ procedure my_exit;
end;
+var
+ p : pointer;
BEGIN
saveexit:=exitproc;
exitproc:=@my_exit;
finally_called:=false;
try
- mem[$ffffffff]:=0;
+ p:=$ffffffff;
+ longint(p^):=0;
finally
finally_called:=true;
writeln('Error !!!');