cfi8.s 279 B

1234567891011121314151617181920
  1. #
  2. ! $Source$
  3. ! $State$
  4. ! $Revision$
  5. #include "powerpc.h"
  6. .sect .text
  7. ! Converts a 64-bit double into a 32-bit integer.
  8. !
  9. ! Stack: ( double -- int )
  10. .define .cfi8
  11. .cfi8:
  12. lfd f0, 0(sp)
  13. fctiwz f0, f0
  14. stfd f0, 0(sp)
  15. addi sp, sp, 4
  16. bclr ALWAYS, 0, 0 ! ...and return