Browse Source

add $R- to avoid errors

pierre 25 years ago
parent
commit
47617fd323
4 changed files with 11 additions and 4 deletions
  1. 3 1
      tests/tbs/tbs0084.pp
  2. 2 1
      tests/tbs/tbs0106.pp
  3. 2 1
      tests/tbs/tbs0258.pp
  4. 4 1
      tests/tbs/tbs0290.pp

+ 3 - 1
tests/tbs/tbs0084.pp

@@ -1,5 +1,7 @@
+{$R-}
 
 
 { Basic Pascal principles gone done the drain... !!!! }
 { Basic Pascal principles gone done the drain... !!!! }
+
 var
 var
  v: word;
  v: word;
  w: shortint;
  w: shortint;
@@ -10,4 +12,4 @@ Begin
  z:=32767;
  z:=32767;
  w:=64000;
  w:=64000;
  v:=-1;
  v:=-1;
-end.
+end.

+ 2 - 1
tests/tbs/tbs0106.pp

@@ -1,3 +1,4 @@
+{$R-}
 
 
 { I think this now occurs with most type casting... }
 { I think this now occurs with most type casting... }
 { I think type casting is no longer considered??     }
 { I think type casting is no longer considered??     }
@@ -8,4 +9,4 @@ Var
 Begin
 Begin
  Sel:=word($7fffffff);
  Sel:=word($7fffffff);
  Sel2:=byte($7fff);
  Sel2:=byte($7fff);
-end.
+end.

+ 2 - 1
tests/tbs/tbs0258.pp

@@ -2,6 +2,7 @@ program test_set;
 
 
 uses erroru;
 uses erroru;
 
 
+{$R-}
 
 
 procedure test;
 procedure test;
 
 
@@ -58,4 +59,4 @@ procedure test;
 
 
 begin
 begin
    test;
    test;
-end.
+end.

+ 4 - 1
tests/tbs/tbs0290.pp

@@ -1,3 +1,6 @@
+{ $R+ would give compile time errors }
+{$R-}
+
 Program bug0290;
 Program bug0290;
 
 
 var i,j : integer;
 var i,j : integer;
@@ -19,4 +22,4 @@ begin
       Writeln('i and j are different !!!');
       Writeln('i and j are different !!!');
       Halt(1);
       Halt(1);
     end;
     end;
-end.
+end.