49 lines
1.1 KiB
Factor
49 lines
1.1 KiB
Factor
IN: compiler-backend
|
|
USING: alien arrays assembler compiler compiler-backend generic
|
|
kernel kernel-internals sequences words ;
|
|
|
|
! x86 register assignments
|
|
! EAX, ECX, EDX vregs
|
|
! ESI datastack
|
|
! EBX callstack
|
|
|
|
: fixnum-imm? ( -- ? )
|
|
#! Can fixnum operations take immediate operands?
|
|
t ; inline
|
|
|
|
: ds-reg ESI ; inline
|
|
: cs-reg EBX ; inline
|
|
: remainder-reg EDX ; inline
|
|
|
|
: vregs { EAX ECX EDX } ; inline
|
|
|
|
: compile-c-call ( symbol dll -- )
|
|
2dup dlsym CALL rel-relative rel-dlsym ;
|
|
|
|
: compile-c-call* ( symbol dll args -- operands )
|
|
reverse-slice
|
|
[ [ PUSH ] each compile-c-call ] keep
|
|
[ drop EDX POP ] each ;
|
|
|
|
! On x86, parameters are never passed in registers.
|
|
M: int-regs return-reg drop EAX ;
|
|
M: int-regs fastcall-regs drop { } ;
|
|
|
|
M: float-regs fastcall-regs drop { } ;
|
|
|
|
: address-operand ( address -- operand )
|
|
#! On x86, we can always use an address as an operand
|
|
#! directly.
|
|
; inline
|
|
|
|
: fixnum>slot@ 1 SHR ; inline
|
|
|
|
: prepare-division CDQ ; inline
|
|
|
|
: compile-prologue ; inline
|
|
|
|
: compile-epilogue ; inline
|
|
|
|
: load-indirect ( dest literal -- )
|
|
add-literal [] MOV rel-absolute-cell rel-address ; inline
|