1# use acos(x) = atan2(fabs(sqrt((1-x)*(1+x))), x)
2
3.global acosl
4.type acosl,@function
5acosl:
6	.cfi_startproc
7	fldt 8(%rsp)
81:	fld %st(0)
9	fld1
10	fsub %st(0),%st(1)
11	fadd %st(2)
12	fmulp
13	fsqrt
14	fabs
15	fxch %st(1)
16	fpatan
17	ret
18	.cfi_endproc
19