2007-11-02 18:56:58 +00:00
|
|
|
#
|
|
|
|
|
! $Source$
|
|
|
|
|
! $State$
|
|
|
|
|
! $Revision$
|
|
|
|
|
|
|
|
|
|
#include "powerpc.h"
|
|
|
|
|
|
|
|
|
|
.sect .text
|
|
|
|
|
|
|
|
|
|
! Converts a 64-bit double into a 32-bit unsigned integer.
|
|
|
|
|
!
|
|
|
|
|
! Stack: ( double -- uint )
|
|
|
|
|
|
|
|
|
|
.define .cfu8
|
|
|
|
|
.cfu8:
|
2016-09-17 10:43:15 +00:00
|
|
|
la r3, .fd_00000000
|
2007-11-02 18:56:58 +00:00
|
|
|
lfd f0, 0(r3) ! f0 = 0.0
|
|
|
|
|
|
|
|
|
|
lfd f1, 0(sp) ! value to be converted
|
|
|
|
|
|
2016-09-17 10:43:15 +00:00
|
|
|
la r3, .fd_FFFFFFFF
|
2007-11-02 18:56:58 +00:00
|
|
|
lfd f3, 0(r3) ! f3 = 0xFFFFFFFF
|
|
|
|
|
|
2016-09-17 10:43:15 +00:00
|
|
|
la r3, .fd_80000000
|
2007-11-02 18:56:58 +00:00
|
|
|
lfd f4, 0(r3) ! f4 = 0x80000000
|
|
|
|
|
|
|
|
|
|
fsel f2, f1, f1, f0
|
|
|
|
|
fsub f5, f3, f1
|
|
|
|
|
fsel f2, f5, f2, f3
|
|
|
|
|
fsub f5, f2, f4
|
|
|
|
|
fcmpu cr0, f2, f4
|
|
|
|
|
fsel f2, f5, f5, f2
|
|
|
|
|
fctiwz f2, f2
|
|
|
|
|
|
|
|
|
|
stfd f2, 0(sp)
|
|
|
|
|
addi sp, sp, 4
|
|
|
|
|
|
|
|
|
|
bclr IFTRUE, LT, 0
|
|
|
|
|
|
|
|
|
|
lwz r3, 0(sp)
|
|
|
|
|
xoris r3, r3, 0x8000
|
|
|
|
|
stw r3, 0(sp)
|
|
|
|
|
|
|
|
|
|
bclr ALWAYS, 0, 0
|
