Browse Source

* added some versions

peter 25 years ago
parent
commit
520469d283
5 changed files with 9 additions and 1 deletions
  1. 2 0
      tests/tbs/tb0295.pp
  2. 1 0
      tests/tbs/tb0328.pp
  3. 0 0
      tests/webtbf/tw0855.pp
  4. 2 0
      tests/webtbs/tw1071.pp
  5. 4 1
      tests/webtbs/tw1152.pp

+ 2 - 0
tests/tbs/tb0295.pp

@@ -1,3 +1,5 @@
+{ %VERSION=1.1 }
+
 { Old file: tbs0353.pp }
 {  }
 

+ 1 - 0
tests/tbs/tb0328.pp

@@ -1,3 +1,4 @@
+{ %VERSION=1.1 }
 { %OPT=-Or }
 { test for full boolean eval and register usage with b+ }
 

+ 0 - 0
tests/webtbs/tw0855.pp → tests/webtbf/tw0855.pp


+ 2 - 0
tests/webtbs/tw1071.pp

@@ -1,3 +1,5 @@
+{ %VERSION=1.1 }
+
 var i: int64;
     il: longint;
 

+ 4 - 1
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 !!!');