diff --git a/tests/test/tasmread.pp b/tests/test/tasmread.pp index 3aac763f52..87fad70fa6 100644 --- a/tests/test/tasmread.pp +++ b/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. diff --git a/tests/test/testmovd.pp b/tests/test/testmovd.pp index 93336ed23e..0fdd94834c 100644 --- a/tests/test/testmovd.pp +++ b/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 diff --git a/tests/test/tfpu3.pp b/tests/test/tfpu3.pp index da1df4200d..ecdcb2efd7 100644 --- a/tests/test/tfpu3.pp +++ b/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} diff --git a/tests/test/tfpu4.pp b/tests/test/tfpu4.pp index dad60fc729..5b1d69cf59 100644 --- a/tests/test/tfpu4.pp +++ b/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 diff --git a/tests/test/tfpu5.pp b/tests/test/tfpu5.pp index c27a338f97..c93910a295 100644 --- a/tests/test/tfpu5.pp +++ b/tests/test/tfpu5.pp @@ -1,3 +1,4 @@ +{ %CPU=i386 } { This test program deals with the the delicate problem of non commutative FPU instruction diff --git a/tests/test/tmmx1.pp b/tests/test/tmmx1.pp index 6ac2051fe0..053c22eef1 100644 --- a/tests/test/tmmx1.pp +++ b/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.