2007-11-02 18:56:58 +00:00
|
|
|
#
|
|
|
|
|
! $Source$
|
|
|
|
|
! $State$
|
|
|
|
|
! $Revision$
|
|
|
|
|
|
|
|
|
|
#include "powerpc.h"
|
|
|
|
|
|
|
|
|
|
.sect .text
|
|
|
|
|
|
|
|
|
|
! Converts a 32-bit integer into a 64-bit double.
|
|
|
|
|
!
|
|
|
|
|
! Stack: ( int -- double )
|
|
|
|
|
|
|
|
|
|
.define .cif8
|
|
|
|
|
.cif8:
|
|
|
|
|
addi sp, sp, -4 ! make space for the double
|
|
|
|
|
|
|
|
|
|
lwz r3, 4(sp)
|
|
|
|
|
xoris r3, r3, 0x8000
|
|
|
|
|
stw r3, 4(sp) ! flip sign of integer value
|
|
|
|
|
|
|
|
|
|
addis r3, r0, 0x4330
|
|
|
|
|
stw r3, 0(sp) ! set high word to construct a double
|
|
|
|
|
|
|
|
|
|
lfd f0, 0(sp) ! load value
|
|
|
|
|
|
2016-09-18 21:03:23 +00:00
|
|
|
li32 r3, pivot
|
2007-11-02 18:56:58 +00:00
|
|
|
lfd f1, 0(r3) ! load pivot value
|
|
|
|
|
fsub f0, f0, f1 ! adjust
|
|
|
|
|
|
|
|
|
|
stfd f0, 0(sp) ! save value again...
|
|
|
|
|
bclr ALWAYS, 0, 0 ! ...and return
|
|
|
|
|
|
|
|
|
|
.sect .rom
|
|
|
|
|
pivot:
|
|
|
|
|
.data4 0x43300000
|
|
|
|
|
.data4 0x80000000
|
