X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Fi386%2Fatan.s;h=2c57f6b309d3d5e54430f17db69171e0ce5bc833;hb=1c9afd69051a64cf085c6fb3674a444ff9a43857;hp=7e28b39510140703ade798cb5a034f12efd54c23;hpb=bc33e617040166e971ec1e6822ac1cc417eb6c9c;p=musl

diff --git a/src/math/i386/atan.s b/src/math/i386/atan.s
index 7e28b395..2c57f6b3 100644
--- a/src/math/i386/atan.s
+++ b/src/math/i386/atan.s
@@ -2,6 +2,15 @@
 .type atan,@function
 atan:
 	fldl 4(%esp)
+	mov 8(%esp),%eax
+	add %eax,%eax
+	cmp $0x00200000,%eax
+	jb 1f
 	fld1
 	fpatan
+	fstpl 4(%esp)
+	fldl 4(%esp)
+	ret
+		# subnormal x, return x with underflow
+1:	fsts 4(%esp)
 	ret