fsub check enhanced

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

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

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