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

remove redundant «stdcall?» word from cpu.x86.32

release
Joe Groff 2010-03-31 19:57:29 -07:00
parent 98d1e7d006
commit 6805dc6401
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -291,9 +291,6 @@ M:: x86.32 %binary-float-function ( dst src1 src2 func -- )
func "libm" load-library %alien-invoke func "libm" load-library %alien-invoke
dst float-function-return ; dst float-function-return ;
: stdcall? ( params -- ? )
abi>> stdcall = ;
: funny-large-struct-return? ( params -- ? ) : funny-large-struct-return? ( params -- ? )
#! MINGW ABI incompatibility disaster #! MINGW ABI incompatibility disaster
[ return>> large-struct? ] [ return>> large-struct? ]
@ -307,7 +304,7 @@ M: x86.32 %cleanup ( params -- )
#! b) If we just called a function returning a struct, we #! b) If we just called a function returning a struct, we
#! have to fix ESP. #! have to fix ESP.
{ {
{ [ dup stdcall? ] [ drop ESP stack-frame get params>> SUB ] } { [ dup abi>> stdcall? ] [ drop ESP stack-frame get params>> SUB ] }
{ [ dup funny-large-struct-return? ] [ drop EAX PUSH ] } { [ dup funny-large-struct-return? ] [ drop EAX PUSH ] }
[ drop ] [ drop ]
} cond ; } cond ;