22 lines
392 B
Factor
22 lines
392 B
Factor
IN: compiler-backend
|
|
USING: assembler compiler-backend sequences ;
|
|
|
|
! x86 register assignments
|
|
! EAX, ECX, EDX, EBP vregs
|
|
! ESI datastack
|
|
! EBX callstack
|
|
|
|
: cell
|
|
#! Word size.
|
|
4 ; inline
|
|
|
|
: fixnum-imm? ( -- ? )
|
|
#! Can fixnum operations take immediate operands?
|
|
t ; inline
|
|
|
|
: vregs ( -- n )
|
|
#! Number of vregs
|
|
3 ; inline
|
|
|
|
M: vreg v>operand vreg-n { EAX ECX EDX } nth ;
|