37 lines
978 B
Factor
37 lines
978 B
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: compiler-backend
|
|
USING: alien assembler compiler inference kernel
|
|
kernel-internals lists math memory namespaces words ;
|
|
|
|
M: %alien-invoke generate-node
|
|
#! call a C function.
|
|
drop 0 input 1 input load-library compile-c-call ;
|
|
|
|
M: %parameter generate-node
|
|
#! x86 does not pass parameters in registers
|
|
drop ;
|
|
|
|
GENERIC: reg-size ( reg-class -- n )
|
|
GENERIC: push-reg ( reg-class -- )
|
|
|
|
M: int-regs reg-size drop cell ;
|
|
M: int-regs push-reg drop EAX PUSH ;
|
|
|
|
M: float-regs reg-size float-regs-size ;
|
|
M: float-regs push-reg
|
|
ESP swap reg-size [ SUB { ESP } ] keep
|
|
4 = [ FSTPS ] [ FSTPL ] if ;
|
|
|
|
M: %unbox generate-node
|
|
drop 1 input f compile-c-call 2 input push-reg ;
|
|
|
|
M: %box generate-node
|
|
drop
|
|
1 input push-reg
|
|
0 input f compile-c-call
|
|
ESP 1 input reg-size ADD ;
|
|
|
|
M: %cleanup generate-node
|
|
drop 0 input dup 0 = [ drop ] [ ESP swap ADD ] if ;
|