#
! $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:
	la r3, .fd_00000000
	lfd f0, 0(r3)            ! f0 = 0.0
	
	lfd f1, 0(sp)            ! value to be converted

	la r3, .fd_FFFFFFFF
	lfd f3, 0(r3)            ! f3 = 0xFFFFFFFF	

	la r3, .fd_80000000
	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