mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 04:09:20 +02:00
* fixes for m68k testing
This commit is contained in:
parent
3e41bf3597
commit
502f7cce52
@ -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,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,3 +1,4 @@
|
||||
{ %CPU=i386 }
|
||||
{ %NOTE= this test requires that nasm assembler is installed }
|
||||
{ testfdiv variant with NASM output forced }
|
||||
{$ifdef go32v2}
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %CPU=i386 }
|
||||
{ testfdiv variant with GNU AS output forced }
|
||||
{$output_format as}
|
||||
{ This test program deals with the
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %CPU=i386 }
|
||||
{ This test program deals with the
|
||||
the delicate problem of
|
||||
non commutative FPU instruction
|
||||
|
@ -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.
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user