X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fx87.asm;h=18ec835aecacf0051a2163fe62f2438f5bc031db;hb=HEAD;hp=e6b40e54e67ae859c27c0cc50d63ea1f961760fe;hpb=fe18df39aa9dc0a3afc5a7474a27698672eceeca;p=ia32rtools.git

diff --git a/tests/x87.asm b/tests/x87.asm
index e6b40e5..18ec835 100644
--- a/tests/x87.asm
+++ b/tests/x87.asm
@@ -3,6 +3,7 @@ _text           segment para public 'CODE' use32
 
 sub_test        proc near
 
+var_28          = qword ptr -28h
 var_20          = dword ptr -20h
 var_18          = qword ptr -18h
 arg_0           = dword ptr  8
@@ -16,16 +17,28 @@ arg_0           = dword ptr  8
                 fild    [ebp+var_20]
                 fdiv    st(1), st
                 faddp   st(1), st
+                fld     [ebp+var_18]
+                sub     esp, 10h
+                fstp    [esp+30h+var_28]
+                fstp    qword ptr [esp+0]
+                call    _pow
+                add     esp, 10h
+                fcom    [ebp+var_18]
+                xor     eax, eax
+                fnstsw  ax
+                test    ah, 41h
+                mov     eax, 0
+                setz    al
                 fld1
                 fdivr   [ebp+var_18]
                 fxch    st(1)
                 fchs
                 fsubrp  st, st
-                fld     st(1)
+                fld     st
                 fyl2x
                 fld     st
-                fstp    [ebp+var_18]
-                fst     [ebp+var_20]
+                fistp   [ebp+var_20]
+                fst     [ebp+var_18]
                 call    __ftol
                 leave
                 retn