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

check gc after fastcall ffi tests like stdcall tests

release
Joe Groff 2010-04-01 14:15:34 -07:00
parent 615c64443b
commit c743608456
1 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -606,16 +606,33 @@ FUNCTION: void this_does_not_exist ( ) ;
[ ] [ assembly-test-1 ] unit-test [ ] [ assembly-test-1 ] unit-test
LIBRARY: f-fastcall [ f ] [ "f-fastcall" load-library f = ] unit-test
[ fastcall ] [ "f-fastcall" library abi>> ] unit-test
FUNCTION: int ffi_test_49 ( int x ) ; : ffi_test_49 ( x -- int )
FUNCTION: int ffi_test_50 ( int x, int y ) ; int "f-fastcall" "ffi_test_49" { int }
FUNCTION: int ffi_test_51 ( int x, int y, int z ) ; alien-invoke gc ;
FUNCTION: int ffi_test_52 ( int x, float y, int z ) ; : ffi_test_50 ( x y -- int )
FUNCTION: int ffi_test_53 ( int x, float y, int z, int w ) ; int "f-fastcall" "ffi_test_50" { int int }
FUNCTION: int ffi_test_54 ( test-struct-11 x, int y ) ; alien-invoke gc ;
FUNCTION: int ffi_test_55 ( test-struct-11 x, int y, int z ) ; : ffi_test_51 ( x y z -- int )
FUNCTION: int ffi_test_56 ( test-struct-11 x, int y, int z, int w ) ; int "f-fastcall" "ffi_test_51" { int int int }
alien-invoke gc ;
: ffi_test_52 ( x y z -- int )
int "f-fastcall" "ffi_test_52" { int float int }
alien-invoke gc ;
: ffi_test_53 ( x y z w -- int )
int "f-fastcall" "ffi_test_53" { int int int int }
alien-invoke gc ;
: ffi_test_54 ( x y -- int )
int "f-fastcall" "ffi_test_54" { test-struct-11 int }
alien-invoke gc ;
: ffi_test_55 ( x y z -- int )
int "f-fastcall" "ffi_test_55" { test-struct-11 int int }
alien-invoke gc ;
: ffi_test_56 ( x y z w -- int )
int "f-fastcall" "ffi_test_56" { test-struct-11 int int int }
alien-invoke gc ;
[ 4 ] [ 3 ffi_test_49 ] unit-test [ 4 ] [ 3 ffi_test_49 ] unit-test
[ 8 ] [ 3 4 ffi_test_50 ] unit-test [ 8 ] [ 3 4 ffi_test_50 ] unit-test