diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor index fdbcf6948e..757576525a 100755 --- a/basis/compiler/tests/alien.factor +++ b/basis/compiler/tests/alien.factor @@ -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 5 ffi_test_54 ] unit-test -[ 19 ] [ 3 4 test-struct-11 5 6 ffi_test_55 ] unit-test -[ 26 ] [ 3 4 test-struct-11 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