blob: 9f13d95ffb57ff8418d291b9951e1771f166ba5c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
.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
fstps 4(%esp)
flds 4(%esp)
ret
1: fld1
faddp
fyl2x
fstps 4(%esp)
flds 4(%esp)
ret
# subnormal x, return x with underflow
2: fxch
fmul %st(1)
fstps 4(%esp)
ret
|
