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

removed param-reg-* HOOKs

db4
Phil Dawes 2009-09-25 18:58:55 +01:00
parent a07a2f7496
commit 68f85a69b3
3 changed files with 5 additions and 11 deletions

5
basis/cpu/x86/32/32.factor
View File

@ -38,9 +38,8 @@ M:: x86.32 %dispatch ( src temp -- )
bi ;
! Registers for fastcall
M: x86.32 param-reg-1 EAX ;
M: x86.32 param-reg-2 EDX ;
M: x86.32 param-reg-3 ECX ;
: param-reg-1 ( -- reg ) EAX ;
: param-reg-2 ( -- reg ) EDX ;
M: x86.32 pic-tail-reg EBX ;

6
basis/cpu/x86/64/64.factor
View File

@ -36,9 +36,9 @@ M:: x86.64 %dispatch ( src temp -- )
[ align-code ]
bi ;
M: x86.64 param-reg-1 int-regs param-regs first ;
M: x86.64 param-reg-2 int-regs param-regs second ;
M: x86.64 param-reg-3 int-regs param-regs third ;
: param-reg-1 ( -- reg ) int-regs param-regs first ; inline
: param-reg-2 ( -- reg ) int-regs param-regs second ; inline
: param-reg-3 ( -- reg ) int-regs param-regs third ; inline
M: x86.64 pic-tail-reg RBX ;

5
basis/cpu/x86/x86.factor
View File

@ -52,11 +52,6 @@ M: x86 stack-frame-size ( stack-frame -- i )
! use in calls in and out of C
HOOK: temp-reg cpu ( -- reg )
! Fastcall calling convention
HOOK: param-reg-1 cpu ( -- reg )
HOOK: param-reg-2 cpu ( -- reg )
HOOK: param-reg-3 cpu ( -- reg )
HOOK: pic-tail-reg cpu ( -- reg )
M: x86 %load-immediate dup 0 = [ drop dup XOR ] [ MOV ] if ;