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

update M\ int-regs param-regs for x86-32 to give input regs for thiscall/fastcall

release
Joe Groff 2010-04-01 03:35:37 -07:00
parent a191937c47
commit 615c64443b
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: locals alien.c-types alien.libraries alien.syntax arrays USING: locals alien alien.c-types alien.libraries alien.syntax
kernel fry math namespaces sequences system layouts io arrays kernel fry math namespaces sequences system layouts io
vocabs.loader accessors init combinators command-line make vocabs.loader accessors init combinators command-line make
compiler compiler.units compiler.constants compiler.alien compiler compiler.units compiler.constants compiler.alien
compiler.codegen compiler.codegen.fixup compiler.codegen compiler.codegen.fixup
@ -83,11 +83,18 @@ M: x86.32 return-struct-in-registers? ( c-type -- ? )
: struct-return@ ( n -- operand ) : struct-return@ ( n -- operand )
[ next-stack@ ] [ stack-frame get params>> local@ ] if* ; [ next-stack@ ] [ stack-frame get params>> local@ ] if* ;
! On x86, parameters are never passed in registers. ! On x86, parameters are usually never passed in registers, except with Microsoft's
! "thiscall" and "fastcall" abis
M: int-regs return-reg drop EAX ; M: int-regs return-reg drop EAX ;
M: int-regs param-regs 2drop { } ;
M: float-regs param-regs 2drop { } ; M: float-regs param-regs 2drop { } ;
M: int-regs param-regs
nip {
{ thiscall [ { ECX } ] }
{ fastcall [ { ECX EDX } ] }
[ drop { } ]
} case ;
GENERIC: load-return-reg ( src rep -- ) GENERIC: load-return-reg ( src rep -- )
GENERIC: store-return-reg ( dst rep -- ) GENERIC: store-return-reg ( dst rep -- )