From cc47536e71fdf87fdfdf6236a72bf38b491b74f9 Mon Sep 17 00:00:00 2001 From: pierre Date: Thu, 31 Oct 2002 13:16:27 +0000 Subject: [PATCH] fsub check enhanced --- tests/test/tfpu3.pp | 10 ++++++++++ tests/test/tfpu4.pp | 10 ++++++++++ tests/test/tfpu5.pp | 10 ++++++++++ 3 files changed, 30 insertions(+) diff --git a/tests/test/tfpu3.pp b/tests/test/tfpu3.pp index 4bcab380f7..e1fde89854 100644 --- a/tests/test/tfpu3.pp +++ b/tests/test/tfpu3.pp @@ -64,6 +64,16 @@ begin fstp %st end; 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 Halt(1); asm diff --git a/tests/test/tfpu4.pp b/tests/test/tfpu4.pp index 7757ee75ca..39672079b3 100644 --- a/tests/test/tfpu4.pp +++ b/tests/test/tfpu4.pp @@ -59,6 +59,16 @@ begin fstp %st end; 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 Halt(1); asm diff --git a/tests/test/tfpu5.pp b/tests/test/tfpu5.pp index c93910a295..67af4beaa8 100644 --- a/tests/test/tfpu5.pp +++ b/tests/test/tfpu5.pp @@ -53,6 +53,16 @@ begin fstp %st end; 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 Halt(1); asm