blob: c0bcd30f0e6efd46b0b1223d5439097f7bc7febd (
plain) (
tree)
|
|
.global log1pf
.type log1pf,@function
log1pf:
mov 4(%esp),%eax
fldln2
and $0x7fffffff,%eax
flds 4(%esp)
cmp $0x3e940000,%eax
ja 1f
cmp $0x00800000,%eax
jb 2f
fyl2xp1
ret
1: fld1
faddp
fyl2x
ret
# subnormal x, return x with underflow
2: fnstsw %ax
and $16,%ax
jnz 1f
fxch
fmul %st(1)
fstps 4(%esp)
1: ret
|
