X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Fi386%2Fatan2f.s;h=3908c86df9bac816fb8275bc4243f840ed94714c;hb=c5f4b2dfea320356f69445dc1adf8f73596a3c36;hp=08627e6301a239aa5308541f020279365890fa95;hpb=9322344fa4c47a64361a81eda1b1930cd4341626;p=musl

diff --git a/src/math/i386/atan2f.s b/src/math/i386/atan2f.s
index 08627e63..3908c86d 100644
--- a/src/math/i386/atan2f.s
+++ b/src/math/i386/atan2f.s
@@ -4,4 +4,14 @@ atan2f:
 	flds 4(%esp)
 	flds 8(%esp)
 	fpatan
-	ret
+	fstps 4(%esp)
+	flds 4(%esp)
+	mov 4(%esp),%eax
+	add %eax,%eax
+	cmp $0x01000000,%eax
+	jae 1f
+		# subnormal x, return x with underflow
+	fld %st(0)
+	fmul %st(1)
+	fstps 4(%esp)
+1:	ret