steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oops

cvs
Slava Pestov 2005-12-25 04:18:41 +00:00
parent a5e14acaa3
commit a385475394
1 changed files with 3 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
library/compiler/amd64/alien.factor
View File

@ -3,36 +3,13 @@
IN: compiler-backend
USING: alien assembler kernel math ;
GENERIC: store-insn ( from to offset reg-class -- )
GENERIC: load-insn ( elt parameter reg-class -- )
M: int-regs store-insn drop 1 swap stack@ STW ;
M: int-regs load-insn drop 3 + 1 rot stack@ LWZ ;
M: float-regs store-insn
>r 1 swap stack@ r>
float-regs-size 4 = [ STFS ] [ STFD ] if ;
M: float-regs load-insn
>r 1+ 1 rot stack@ r>
float-regs-size 4 = [ LFS ] [ LFD ] if ;
M: stack-params load-insn
drop >r 0 1 rot stack@ LWZ 0 1 r> stack@ STW ;
M: %unbox generate-node ( vop -- )
drop
! Call the unboxer
1 input f compile-c-call
! Store the return value on the C stack
2 input return-reg 0 input 2 input store-insn ;
drop ;
M: %parameter generate-node ( vop -- )
! Move a value from the C stack into the fastcall register
drop 0 input 1 input 2 input load-insn ;
drop ;
M: %box generate-node ( vop -- ) drop 0 input f compile-c-call ;
M: %box generate-node ( vop -- ) drop ;
M: %cleanup generate-node ( vop -- ) drop ;