Browse Source

* removed knowncompilererror10

peter 22 năm trước cách đây
mục cha
commit
6939e0e4d4
3 tập tin đã thay đổi với 26 bổ sung5 xóa
  1. 22 0
      tests/tbf/tb0151.pp
  2. 2 1
      tests/test/tclass7.pp
  3. 2 4
      tests/test/tintuint.pp

+ 22 - 0
tests/tbf/tb0151.pp

@@ -0,0 +1,22 @@
+{ %fail }
+
+{$ifdef fpc}{$mode tp}{$endif}
+
+{$ifdef ENDIAN_BIG}
+var
+  i : longint;
+  j : word;
+begin
+  j:=5;
+  i:=-1;
+  { this is not allowed for big endian, even not in tp7 mode }
+  byte(i):=j;
+  writeln('i: ',i,' (should be -251)');
+  if i<>-251 then
+   halt(1);
+end.
+{$else}
+begin
+  {$error Test is big endian only, fail for little endian}
+end.
+{$endif}

+ 2 - 1
tests/test/tclass7.pp

@@ -1,4 +1,5 @@
-{ %KNOWNRUNERROR=2 v1.0 does not support class DefaultHandler message }
+{ %version=1.1 }
+
 {$ifdef fpc}
  {$mode delphi}
 {$endif}

+ 2 - 4
tests/test/tintuint.pp

@@ -1,8 +1,6 @@
-{ %KNOWNRUNERROR=2 v1.0 computes binary nodes with longint and cardinals as cardinals }
+{ %version=1.1 }
+
 { Testing longint and cardinal addtions }
-{ The current 1.0 compiler does handle these operations
-  differently depending on range check state,
-  which is rather bad thing PM }
 const
   has_errors : boolean = false;
   has_severe_errors : boolean = false;