* added some versions

2025-09-11 10:49:30 +02:00 · 2000-12-04 21:55:39 +00:00 · 2000-12-04 21:55:39 +00:00 · 520469d283
commit 520469d283
parent 06af76dd6c
5 changed files with 9 additions and 1 deletions
--- a/tests/tbs/tb0295.pp
+++ b/tests/tbs/tb0295.pp
@ -1,3 +1,5 @@
+{ %VERSION=1.1 }
+
 { Old file: tbs0353.pp }
 {  }

--- a/tests/tbs/tb0328.pp
+++ b/tests/tbs/tb0328.pp
@ -1,3 +1,4 @@
+{ %VERSION=1.1 }
 { %OPT=-Or }
 { test for full boolean eval and register usage with b+ }

--- a/tests/webtbf/tw0855.pp
+++ b/tests/webtbf/tw0855.pp
--- a/tests/webtbs/tw1071.pp
+++ b/tests/webtbs/tw1071.pp
@ -1,3 +1,5 @@
+{ %VERSION=1.1 }
+
 var i: int64;
    il: longint;

--- a/tests/webtbs/tw1152.pp
+++ b/tests/webtbs/tw1152.pp
@ -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 !!!');