typos in ffi tests

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 08ff47ee5a06dda0a529ab03597c9c7f09109b5f..2bde4234b4aa90755e083cee0375e5c8367705e2 100755 (executable)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -614,14 +614,14 @@ FUNCTION: int ffi_test_51 ( int x, int y, int z ) ;
 FUNCTION: int ffi_test_52 ( int x, float y, int z ) ;
 FUNCTION: int ffi_test_53 ( int x, float y, int z, int w ) ;
 FUNCTION: int ffi_test_54 ( test-struct-11 x, int y ) ;
-FUNCTION: int ffi_test_55 ( int x, int y, int z ) ;
-FUNCTION: int ffi_test_56 ( int x, int y, int z ) ;
+FUNCTION: int ffi_test_55 ( test-struct-11 x, int y, int z ) ;
+FUNCTION: int ffi_test_56 ( test-struct-11 x, int y, int z, int w ) ;
 
 [ 4 ] [ 3 ffi_test_49 ] unit-test
 [ 8 ] [ 3 4 ffi_test_50 ] unit-test
 [ 13 ] [ 3 4 5 ffi_test_51 ] unit-test
 [ 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> 5 ffi_test_54 ] unit-test
-[ 19 ] [ 3 4 test-struct-11 <struct> 5 6 ffi_test_55 ] unit-test
-[ 26 ] [ 3 4 test-struct-11 <struct> 5 6 7 ffi_test_56 ] 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

diff --git a/vm/ffi_test.c b/vm/ffi_test.c
index 6ad9a26b276665ff0e9a40f454f52dde2188b522..d45a08cf8b30752bc005ae065320bede5018044e 100755 (executable)
--- a/vm/ffi_test.c
+++ b/vm/ffi_test.c
@@ -339,17 +339,17 @@ FACTOR_FASTCALL(int) ffi_test_53(int x, float y, int z, int w)
        return x + y + z + w + 1;
 }
 
-FACTOR_FASTCALL(int) ffi_test_54(test_struct_11 x, int y)
+FACTOR_FASTCALL(int) ffi_test_54(struct test_struct_11 x, int y)
 {
        return x.x + x.y + y + 1;
 }
 
-FACTOR_FASTCALL(int) ffi_test_55(test_struct_11 x, int y, int z)
+FACTOR_FASTCALL(int) ffi_test_55(struct test_struct_11 x, int y, int z)
 {
        return x.x + x.y + y + z + 1;
 }
 
-FACTOR_FASTCALL(int) ffi_test_56(test_struct_11 x, int y, int z, int w)
+FACTOR_FASTCALL(int) ffi_test_56(struct test_struct_11 x, int y, int z, int w)
 {
        return x.x + x.y + y + z + w + 1;
 }

diff --git a/vm/ffi_test.h b/vm/ffi_test.h
index 0ee593a26e1c04e13eca023bd11453789203c524..6fe35fdb42edce3d7092c6776bbbc47236067fbe 100755 (executable)
--- a/vm/ffi_test.h
+++ b/vm/ffi_test.h
@@ -128,6 +128,6 @@ FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_50(int x, int y);
 FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_51(int x, int y, int z);
 FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_52(int x, float y, int z);
 FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_53(int x, float y, int z, int w);
-FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_54(test_struct_11 x, int y);
-FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_55(test_struct_11 x, int y, int z);
-FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_56(test_struct_11 x, int y, int z, int w);
+FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_54(struct test_struct_11 x, int y);
+FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_55(struct test_struct_11 x, int y, int z);
+FACTOR_EXPORT FACTOR_FASTCALL(int) ffi_test_56(struct test_struct_11 x, int y, int z, int w);