summaryrefslogtreecommitdiff
path: root/src/math/i386/atan.s
diff options
context:
space:
mode:
Diffstat (limited to 'src/math/i386/atan.s')
-rw-r--r--src/math/i386/atan.s10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/math/i386/atan.s b/src/math/i386/atan.s
index 7e28b395..d73137b2 100644
--- a/src/math/i386/atan.s
+++ b/src/math/i386/atan.s
@@ -2,6 +2,16 @@
.type atan,@function
atan:
fldl 4(%esp)
+ mov 8(%esp),%eax
+ add %eax,%eax
+ cmp $0x00200000,%eax
+ jb 1f
fld1
fpatan
ret
+ # subnormal x, return x with underflow
+1: fnstsw %ax
+ and $16,%ax
+ jnz 2f
+ fsts 4(%esp)
+2: ret