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

next-fastcall-param word was not being called; on x86 its equivalent to inc but on ppc there is more logic, this fixes FFI on PowerPC

db4
Slava Pestov 2009-08-21 20:15:19 -05:00
parent 2c533472f8
commit 1961b4da16
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/codegen/codegen.factor
View File

@ -267,7 +267,7 @@ M: ##alien-global generate-insn
%alien-global ;
! ##alien-invoke
GENERIC: next-fastcall-param ( reg-class -- )
GENERIC: next-fastcall-param ( rep -- )
: ?dummy-stack-params ( rep -- )
dummy-stack-params? [ rep-size cell align stack-params +@ ] [ drop ] if ;
@ -300,7 +300,7 @@ M: reg-class reg-class-full?
stack-params dup ;
: alloc-fastcall-param ( rep -- n reg-class rep )
[ reg-class-of [ get ] [ inc ] [ ] tri ] keep ;
[ [ reg-class-of get ] [ reg-class-of ] [ next-fastcall-param ] tri ] keep ;
: alloc-parameter ( parameter -- reg rep )
c-type-rep dup reg-class-of reg-class-full?