2005-09-05 17:36:20 -04:00
|
|
|
IN: compiler-backend
|
2005-09-04 19:24:24 -04:00
|
|
|
USING: assembler compiler-backend math ;
|
|
|
|
|
|
2005-09-05 17:14:15 -04:00
|
|
|
! PowerPC register assignments
|
|
|
|
|
! r3-r10 vregs
|
|
|
|
|
! r14 data stack
|
|
|
|
|
! r15 call stack
|
|
|
|
|
|
|
|
|
|
: cell
|
|
|
|
|
#! Word size.
|
|
|
|
|
4 ; inline
|
|
|
|
|
|
2005-09-09 22:34:24 -04:00
|
|
|
: fixnum-imm? ( -- ? )
|
|
|
|
|
#! Can fixnum operations take immediate operands?
|
|
|
|
|
f ; inline
|
|
|
|
|
|
2005-09-04 19:24:24 -04:00
|
|
|
: vregs ( -- n )
|
|
|
|
|
#! Number of vregs
|
2005-09-05 17:14:15 -04:00
|
|
|
8 ; inline
|
2005-09-04 19:24:24 -04:00
|
|
|
|
|
|
|
|
M: vreg v>operand vreg-n 3 + ;
|
