Meg's Mirrors

zig

1	.global atan2f
2	.type atan2f,@function
3	atan2f:
4	flds 4(%esp)
5	flds 8(%esp)
6	fpatan
7	fstps 4(%esp)
8	flds 4(%esp)
9	mov 4(%esp),%eax
10	add %eax,%eax
11	cmp $0x01000000,%eax
12	jae 1f
13	# subnormal x, return x with underflow
14	fld %st(0)
15	fmul %st(1)
16	fstps 4(%esp)
17	1: ret