Browse Source

* 1.1 only

peter 22 years ago
parent
commit
cbd049d506
4 changed files with 10 additions and 18 deletions
  1. 2 1
      tests/tbs/tb0224.pp
  2. 5 6
      tests/tbs/tb0377.pp
  3. 1 1
      tests/tbs/tb0447.pp
  4. 2 10
      tests/tbs/tb0447a.pp

+ 2 - 1
tests/tbs/tb0224.pp

@@ -1,4 +1,5 @@
-{ %KNOWNCOMPILE10ERROR= Problem with virtual and overloaded methods }
+{ %version=1.1 }
+
 { Old file: tbs0262.pp }
 { problems with virtual and overloaded methods }
 

+ 5 - 6
tests/tbs/tb0377.pp

@@ -1,11 +1,9 @@
-{ %OPT=-vn }
-{ %KNOWNCOMPILEERROR= Typecasting assignment values with types of different sizes is refused even in TP mode for big endian cpus }
-{$ifdef ENDIAN_BIG}
-{$note This test should fail on big endian machines. }
-{$endif}
-
 {$ifdef fpc}{$mode tp}{$endif}
 
+{$ifdef ENDIAN_BIG}
+begin
+end.
+{$else}
 var
   i : longint;
   j : word;
@@ -18,3 +16,4 @@ begin
   if i<>-251 then
    halt(1);
 end.
+{$endif}

+ 1 - 1
tests/tbs/tb0447.pp

@@ -1,4 +1,4 @@
-{ %KNOWNRUNERROR=201 v1.0 computes cardinal > longint as cardinal values }
+{ %version=1.1 }
 
 {$R+}
 var

+ 2 - 10
tests/tbs/tb0447a.pp

@@ -1,5 +1,5 @@
-{ %KNOWNRUNERROR=2 v10 computes cardinal > longint as cardinals }
-{$R-}
+{ %version=1.1 }
+
 var
   a : cardinal;
   b : longint;
@@ -9,14 +9,6 @@ begin
   if a > b then
     writeln ('OK')
   else
-{$ifdef VER0}
-    halt(2);
-{$else not VER0}
-{$ifdef VER1_0}
-    halt(2);
-{$else}
     halt(1);
-{$endif}
-{$endif}
 end.