.global ldexpl
.type ldexpl,@function
ldexpl:
        nop

.global scalblnl
.type scalblnl,@function
scalblnl:
        nop

.global scalbnl
.type scalbnl,@function
scalbnl:
        mov 16(%esp),%eax
        add $0x3ffe,%eax
        cmp $0x7ffd,%eax
        jae 1f
        inc %eax
        fldt 4(%esp)
        mov %eax,12(%esp)
        mov $0x80000000,%eax
        mov %eax,8(%esp)
        xor %eax,%eax
        mov %eax,4(%esp)
        fldt 4(%esp)
        fmulp
        ret
1:      fildl 16(%esp)
        fldt 4(%esp)
        fscale
        fstp %st(1)
        ret