X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fx87.asm;h=18ec835aecacf0051a2163fe62f2438f5bc031db;hb=306201740a8996e02008918dc3e6a5a8e0d00223;hp=025a39d1fb08002e56c125650ea20d366bd725e0;hpb=622eb2eff8349fa0a6675ce3213ab8f8fb1c1798;p=ia32rtools.git

diff --git a/tests/x87.asm b/tests/x87.asm
index 025a39d..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,6 +17,18 @@ 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)
@@ -24,8 +37,8 @@ arg_0           = dword ptr  8
                 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