39 lines
624 B
ArmAsm
39 lines
624 B
ArmAsm
|
#
|
||
|
|
! $Source$
|
||
|
|
! $State$
|
||
|
|
! $Revision$
|
||
|
|
|
||
|
|
#include "powerpc.h"
|
||
|
|
|
||
|
|
.sect .text
|
||
|
|
|
||
|
|
! Multiplies two floats, and returns the fraction and integer.
|
||
|
|
|
||
|
|
.define .fif8
|
||
|
|
.fif8:
|
||
|
|
lfd f0, 8(sp)
|
||
|
|
lfd f1, 0(sp)
|
||
|
|
fmul f0, f0, f1
|
||
|
|
fabs f1, f0 ! f0 = result
|
||
|
|
|
||
|
|
! The following chunk does f1 = floor(f1). See page 158 of the book.
|
||
|
|
|
||
|
|
mtfsfi cr7, 3 ! set rounding mode to -inf.
|
||
|
|
mtfsb0 23
|
||
|
|
fctid f2, f1
|
||
|
|
fcfid f2, f2
|
||
|
|
mcrfs cr7, cr5
|
||
|
|
bc IFFALSE, 31, toobig
|
||
|
|
fmr f1, f2
|
||
|
|
toobig:
|
||
|
|
|
||
|
|
fabs f2, f1 ! f2 = fabs(f1)
|
||
|
|
fsub f2, f2, f1
|
||
|
|
stfd f2, 8(sp)
|
||
|
|
|
||
|
|
fneg f2, f1
|
||
|
|
fsel f2, f0, f1, f2
|
||
|
|
stfd f2, 0(sp)
|
||
|
|
|
||
|
|
bclr ALWAYS, 0, 0
|