1 .global ldexpl
2 .type ldexpl,@function
3 ldexpl:
4 	nop
5 
6 .global scalblnl
7 .type scalblnl,@function
8 scalblnl:
9 	nop
10 
11 .global scalbnl
12 .type scalbnl,@function
13 scalbnl:
14 	mov 16(%esp),%eax
15 	add $0x3ffe,%eax
16 	cmp $0x7ffd,%eax
17 	jae 1f
18 	inc %eax
19 	fldt 4(%esp)
20 	mov %eax,12(%esp)
21 	mov $0x80000000,%eax
22 	mov %eax,8(%esp)
23 	xor %eax,%eax
24 	mov %eax,4(%esp)
25 	fldt 4(%esp)
26 	fmulp
27 	ret
28 1:	fildl 16(%esp)
29 	fldt 4(%esp)
30 	fscale
31 	fstp %st(1)
32 	ret
33