瀏覽代碼

* small fixes to tests

carl 23 年之前
父節點
當前提交
4bf356ab09
共有 3 個文件被更改,包括 3 次插入11 次删除
  1. 1 1
      tests/test/tclass4.pp
  2. 1 9
      tests/test/tint642.pp
  3. 1 1
      tests/test/tobject3.pp

+ 1 - 1
tests/test/tclass4.pp

@@ -1,4 +1,4 @@
-{%RESULT=220 }
+{%RESULT=210 }
 {%OPT=-CR}
 {$mode objfpc}
 program test_class;

+ 1 - 9
tests/test/tint642.pp

@@ -6,17 +6,9 @@ uses
    ,dpmiexcp
 {$endif go32v2}
    ;
-
-{$ifdef CPU68K}
-  {$define SOURCE_ENDIAN_BIG}
-{$endif}
-
-{$ifdef CPUPOWERPC}
-  {$define SOURCE_ENDIAN_BIG}
-{$endif}  
 type
    tqwordrec = packed record
-{$ifndef SOURCE_ENDIAN_BIG}   
+{$ifndef ENDIAN_BIG}   
       low,high : dword;
 {$else}
       high, low : dword;

+ 1 - 1
tests/test/tobject3.pp

@@ -1,4 +1,4 @@
-{%RESULT=220 }
+{%RESULT=219 }
 { %OPT= -CR }
 program test_object;