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

abi wrong

cvs
Slava Pestov 2004-12-26 03:15:37 +00:00
parent 2f71a0a4f6
commit 25c2cd547c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/compiler/alien.factor
View File

@ -151,7 +151,7 @@ SYMBOL: alien-parameters
: linearize-alien ( node -- ) : linearize-alien ( node -- )
dup linearize-parameters >r dup linearize-parameters >r
dup [ node-param get ] bind #c-call swons , dup [ node-param get ] bind #c-call swons ,
dup [ node-param get car library-abi "stdcall" = ] bind dup [ node-param get cdr library-abi "stdcall" = ] bind
r> swap [ drop ] [ #cleanup swons , ] ifte r> swap [ drop ] [ #cleanup swons , ] ifte
linearize-returns ; linearize-returns ;