scalbnf.s raw
1 .global ldexpf
2 .type ldexpf,@function
3 ldexpf:
4 nop
5
6 .global scalblnf
7 .type scalblnf,@function
8 scalblnf:
9 nop
10
11 .global scalbnf
12 .type scalbnf,@function
13 scalbnf:
14 mov 8(%esp),%eax
15 add $0x3fe,%eax
16 cmp $0x7fd,%eax
17 jb 1f
18 sub $0x3fe,%eax
19 sar $31,%eax
20 xor $0x1ff,%eax
21 add $0x3fe,%eax
22 1: inc %eax
23 shl $20,%eax
24 flds 4(%esp)
25 mov %eax,8(%esp)
26 xor %eax,%eax
27 mov %eax,4(%esp)
28 fldl 4(%esp)
29 fmulp
30 fstps 4(%esp)
31 flds 4(%esp)
32 ret
33