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

remove fastcall struct param tests because GCC appears to behave differently from VC++ here and again, who cares

release
Joe Groff 2010-04-01 23:54:08 -07:00
parent 5dcfb383a6
commit 43d73dcd4d
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -644,15 +644,6 @@ FUNCTION: void this_does_not_exist ( ) ;
: ffi_test_53 ( x y z w -- int )
int "f-fastcall" "ffi_test_53" { int float 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 ;
: ffi_test_57 ( x y -- test-struct-11 )
test-struct-11 "f-fastcall" "ffi_test_57" { int int }
alien-invoke gc ;
@ -662,9 +653,6 @@ FUNCTION: void this_does_not_exist ( ) ;
[ 13 ] [ 3 4.0 5 ffi_test_52 ] unit-test
[ 19 ] [ 3 4.0 5 6 ffi_test_53 ] unit-test
[ 13 ] [ 3 4 test-struct-11 <struct-boa> 5 ffi_test_54 ] unit-test
[ 19 ] [ 3 4 test-struct-11 <struct-boa> 5 6 ffi_test_55 ] unit-test
[ 26 ] [ 3 4 test-struct-11 <struct-boa> 5 6 7 ffi_test_56 ] unit-test
[ S{ test-struct-11 f 7 -1 } ] [ 3 4 ffi_test_57 ] unit-test
[ S{ test-struct-11 f 7 -3 } ] [ 3 4 7 ffi_test_58 ] unit-test