peter 25 years ago
parent
commit
843366e01d
4 changed files with 9 additions and 2 deletions
  1. 2 0
      tests/tbs/tb0207.pp
  2. 2 0
      tests/tbs/tb0269.pp
  3. 4 2
      tests/tbs/tb0334.pp
  4. 1 0
      tests/tbs/tb0335.pp

+ 2 - 0
tests/tbs/tb0207.pp

@@ -1,3 +1,5 @@
+{ %KNOWN }
+
 { Old file: tbs0243.pp }
 { Arguments of functions are computed from right to left this }
 

+ 2 - 0
tests/tbs/tb0269.pp

@@ -1,3 +1,5 @@
+{ %CPU=i386}
+
 { Old file: tbs0313.pp }
 {  }
 

+ 4 - 2
tests/tbs/tb0334.pp

@@ -1,13 +1,15 @@
+{$mode objfpc}
+
 uses
    sysutils;
 
 var
-   s : tintset;
+   s : tintegerset;
 
 begin
    if sizeof(s)<>sizeof(integer) then
      begin
-        writeln('Wrong size of Sysutils.TIntegerSet');
+        writeln('Wrong size of Sysutils.TIntegerSet (',sizeof(s),')');
         halt(1);
      end;
 end.

+ 1 - 0
tests/tbs/tb0335.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 
 var