paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 21:02:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

fsub check enhanced

Browse Source
This commit is contained in:
pierre 2002-10-31 13:16:27 +00:00
parent 630f9266bd
commit cc47536e71
3 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/tfpu3.pp
View File

@ -64,6 +64,16 @@ begin
fstp %st fstp %st
end; end;
Writeln('ATT result of 4/2=',z:0:2); Writeln('ATT result of 4/2=',z:0:2);
if z <> 2.0 then
Halt(1);
asm
fldl y
fldl x
fdiv %st,%st(1)
fstp %st
fstpl z
end;
Writeln('ATT result of 4/2=',z:0:2);
if z <> 2.0 then if z <> 2.0 then
Halt(1); Halt(1);
asm asm

10
tests/test/tfpu4.pp
View File

@ -59,6 +59,16 @@ begin
fstp %st fstp %st
end; end;
Writeln('ATT result of 4/2=',z:0:2); Writeln('ATT result of 4/2=',z:0:2);
if z <> 2.0 then
Halt(1);
asm
fldl y
fldl x
fdiv %st,%st(1)
fstp %st
fstpl z
end;
Writeln('ATT result of 4/2=',z:0:2);
if z <> 2.0 then if z <> 2.0 then
Halt(1); Halt(1);
asm asm

10
tests/test/tfpu5.pp
View File

@ -53,6 +53,16 @@ begin
fstp %st fstp %st
end; end;
Writeln('ATT result of 4/2=',z:0:2); Writeln('ATT result of 4/2=',z:0:2);
if z <> 2.0 then
Halt(1);
asm
fldl y
fldl x
fdiv %st,%st(1)
fstp %st
fstpl z
end;
Writeln('ATT result of 4/2=',z:0:2);
if z <> 2.0 then if z <> 2.0 then
Halt(1); Halt(1);
asm asm