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

diff --git a/tests/x87.asm b/tests/x87.asm
index 240730f..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,11 +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
-                fdivrp  [ebp+var_18]
-                fld     st(1)
-                fstp    [ebp+var_18]
-                fst     [ebp+var_20]
+                fdivr   [ebp+var_18]
+                fxch    st(1)
+                fchs
+                fsubrp  st, st
+                fld     st
+                fyl2x
+                fld     st
+                fistp   [ebp+var_20]
+                fst     [ebp+var_18]
                 call    __ftol
                 leave
                 retn