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

test fastcall indirect struct return

release
Joe Groff 2010-04-02 00:00:34 -07:00
parent 43d73dcd4d
commit 47f3ace5ac
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/tests/alien.factor
View File

@ -660,7 +660,10 @@ FUNCTION: void this_does_not_exist ( ) ;
int { int int } fastcall alien-indirect ;
: fastcall-ifi-indirect ( x y z ptr -- result )
int { int float int } fastcall alien-indirect ;
: fastcall-struct-return-indirect ( x y ptr -- result )
test-struct-11 { int int } fastcall alien-indirect ;
[ 8 ] [ 3 4 &: ffi_test_50 fastcall-ii-indirect ] unit-test
[ 13 ] [ 3 4.0 5 &: ffi_test_52 fastcall-ifi-indirect ] unit-test
[ S{ test-struct-11 f 7 -1 } ] [ 3 4 &: ffi_test_57 fastcall-struct-return-indirect ] unit-test