scalbnf.s 429 B

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