2005-09-05 17:36:20 -04:00
|
|
|
IN: compiler-backend
|
2005-10-18 20:19:10 -04:00
|
|
|
USING: assembler compiler-backend kernel sequences ;
|
2005-09-04 19:24:24 -04:00
|
|
|
|
2005-09-05 17:14:15 -04:00
|
|
|
! x86 register assignments
|
2005-09-07 17:21:11 -04:00
|
|
|
! EAX, ECX, EDX, EBP vregs
|
2005-09-05 17:14:15 -04:00
|
|
|
! ESI datastack
|
|
|
|
|
! EBX callstack
|
|
|
|
|
|
2005-12-04 02:30:19 -05:00
|
|
|
: ds-reg ESI ; inline
|
|
|
|
|
: cs-reg EBX ; inline
|
|
|
|
|
|
2005-09-09 22:34:24 -04:00
|
|
|
: fixnum-imm? ( -- ? )
|
|
|
|
|
#! Can fixnum operations take immediate operands?
|
|
|
|
|
t ; inline
|
|
|
|
|
|
2005-09-04 19:24:24 -04:00
|
|
|
: vregs ( -- n )
|
|
|
|
|
#! Number of vregs
|
2005-09-05 17:14:15 -04:00
|
|
|
3 ; inline
|
2005-09-04 19:24:24 -04:00
|
|
|
|
2005-10-29 23:25:38 -04:00
|
|
|
M: vreg v>operand vreg-n { EAX ECX EDX } nth ;
|
2005-10-18 20:19:10 -04:00
|
|
|
|
|
|
|
|
! On x86, parameters are never passed in registers.
|
|
|
|
|
M: int-regs fastcall-regs drop 0 ;
|
|
|
|
|
M: int-regs reg-class-size drop 4 ;
|
|
|
|
|
M: float-regs fastcall-regs drop 0 ;
|
|
|
|
|
|
|
|
|
|
: dual-fp/int-regs? f ;
|
