nsz Git - musl/blob - src/math/i386/scalbnf.s

   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