Browse Source

* fixes for m68k testing

pierre 24 years ago
parent
commit
502f7cce52
6 changed files with 19 additions and 2 deletions
  1. 12 0
      tests/test/tasmread.pp
  2. 1 0
      tests/test/testmovd.pp
  3. 1 0
      tests/test/tfpu3.pp
  4. 1 0
      tests/test/tfpu4.pp
  5. 1 0
      tests/test/tfpu5.pp
  6. 3 2
      tests/test/tmmx1.pp

+ 12 - 0
tests/test/tasmread.pp

@@ -1,11 +1,23 @@
+{ Checks for qualified variable support
+   in assembler reader }
 program test;
 
+{$ifdef cpui386}
 {$asmmode intel}
+{$endif}
 
 var l: longint;
 
 begin
+{$ifdef cpui386}
   asm
      mov test.l, 5
   end;
+{$endif cpui386}
+{$ifdef cpu68k}
+  asm
+     move.l  test.l,d0
+  end;
+{$endif cpu68k}
+
 end.

+ 1 - 0
tests/test/testmovd.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { This file tests the movd instruction has this
   instruction does convert 32 bit into 64 bit
   which is not handled by the normal assembler instruction

+ 1 - 0
tests/test/tfpu3.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { %NOTE= this test requires that nasm assembler is installed }
 { testfdiv variant with NASM output forced }
 {$ifdef go32v2}

+ 1 - 0
tests/test/tfpu4.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { testfdiv variant with GNU AS output forced }
 {$output_format as}
 { This test program deals with the

+ 1 - 0
tests/test/tfpu5.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { This test program deals with the
   the delicate problem of
   non commutative FPU instruction

+ 3 - 2
tests/test/tmmx1.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { this contains currently only a basic test of mmx support }
 { the following instructions are tested:
    PSUBW
@@ -43,7 +44,7 @@ procedure testmmxword;
   begin
      {$mmx+}
      { Intel: paddw }
-     t1:=c2+c3;  
+     t1:=c2+c3;
      if not(equal(t1,c4)) then
        do_error(1000);
 
@@ -79,6 +80,6 @@ begin
    testmmxword;
    writeln('Test succesful');
    writeln;
-end.   
+end.