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;
 program test;
 
 
+{$ifdef cpui386}
 {$asmmode intel}
 {$asmmode intel}
+{$endif}
 
 
 var l: longint;
 var l: longint;
 
 
 begin
 begin
+{$ifdef cpui386}
   asm
   asm
      mov test.l, 5
      mov test.l, 5
   end;
   end;
+{$endif cpui386}
+{$ifdef cpu68k}
+  asm
+     move.l  test.l,d0
+  end;
+{$endif cpu68k}
+
 end.
 end.

+ 1 - 0
tests/test/testmovd.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { This file tests the movd instruction has this
 { This file tests the movd instruction has this
   instruction does convert 32 bit into 64 bit
   instruction does convert 32 bit into 64 bit
   which is not handled by the normal assembler instruction
   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 }
 { %NOTE= this test requires that nasm assembler is installed }
 { testfdiv variant with NASM output forced }
 { testfdiv variant with NASM output forced }
 {$ifdef go32v2}
 {$ifdef go32v2}

+ 1 - 0
tests/test/tfpu4.pp

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

+ 1 - 0
tests/test/tfpu5.pp

@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { This test program deals with the
 { This test program deals with the
   the delicate problem of
   the delicate problem of
   non commutative FPU instruction
   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 }
 { this contains currently only a basic test of mmx support }
 { the following instructions are tested:
 { the following instructions are tested:
    PSUBW
    PSUBW
@@ -43,7 +44,7 @@ procedure testmmxword;
   begin
   begin
      {$mmx+}
      {$mmx+}
      { Intel: paddw }
      { Intel: paddw }
-     t1:=c2+c3;  
+     t1:=c2+c3;
      if not(equal(t1,c4)) then
      if not(equal(t1,c4)) then
        do_error(1000);
        do_error(1000);
 
 
@@ -79,6 +80,6 @@ begin
    testmmxword;
    testmmxword;
    writeln('Test succesful');
    writeln('Test succesful');
    writeln;
    writeln;
-end.   
+end.