1.global ldexp
2.type ldexp,@function
3ldexp:
4	nop
5
6.global scalbln
7.type scalbln,@function
8scalbln:
9	nop
10
11.global scalbn
12.type scalbn,@function
13scalbn:
14	mov 12(%esp),%eax
15	add $0x3ffe,%eax
16	cmp $0x7ffd,%eax
17	jb 1f
18	sub $0x3ffe,%eax
19	sar $31,%eax
20	xor $0xfff,%eax
21	add $0x3ffe,%eax
221:	inc %eax
23	fldl 4(%esp)
24	mov %eax,12(%esp)
25	mov $0x80000000,%eax
26	mov %eax,8(%esp)
27	xor %eax,%eax
28	mov %eax,4(%esp)
29	fldt 4(%esp)
30	fmulp
31	fstpl 4(%esp)
32	fldl 4(%esp)
33	ret
34