39 lines
1.1 KiB
Factor
39 lines
1.1 KiB
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: compiler-backend
|
|
USING: alien assembler kernel math ;
|
|
|
|
M: %alien-invoke generate-node ( vop -- )
|
|
drop 0 input 1 input load-library compile-c-call ;
|
|
|
|
GENERIC: store-insn
|
|
GENERIC: load-insn
|
|
GENERIC: return-reg
|
|
|
|
M: int-regs store-insn drop stack@ STW ;
|
|
M: int-regs return-reg drop 3 ;
|
|
M: int-regs load-insn drop 3 + 1 rot stack@ LWZ ;
|
|
|
|
M: float-regs store-insn
|
|
>r stack@ r> float-regs-size 4 = [ STFS ] [ STFD ] if ;
|
|
M: float-regs return-reg drop 1 ;
|
|
M: float-regs load-insn
|
|
>r 1+ 1 rot stack@ r>
|
|
float-regs-size 4 = [ LFS ] [ LFD ] if ;
|
|
|
|
M: stack-params load-insn ( from to reg-class -- )
|
|
drop >r 0 1 rot stack@ LWZ 0 1 r> stack@ STW ;
|
|
|
|
M: %unbox generate-node ( vop -- )
|
|
drop
|
|
1 input f compile-c-call
|
|
2 input return-reg
|
|
1 0 input 2 input store-insn ;
|
|
|
|
M: %parameter generate-node ( vop -- )
|
|
drop 0 input 1 input 2 input load-insn ;
|
|
|
|
M: %box generate-node ( vop -- ) drop 0 input f compile-c-call ;
|
|
|
|
M: %cleanup generate-node ( vop -- ) drop ;
|