diff --git a/core/alien/compiler/compiler-tests.factor b/core/alien/compiler/compiler-tests.factor index 57bf163443..5d847e364f 100755 --- a/core/alien/compiler/compiler-tests.factor +++ b/core/alien/compiler/compiler-tests.factor @@ -364,9 +364,9 @@ FUNCTION: ulonglong ffi_test_38 ( ulonglong x, ulonglong y ) ; + + 1+ ] alien-callback ; -FUNCTION: void int_ffi_test_36_point_5 ( ) ; +FUNCTION: void ffi_test_36_point_5 ( ) ; -[ ] [ int_ffi_test_36_point_5 ] unit-test +[ ] [ ffi_test_36_point_5 ] unit-test FUNCTION: int ffi_test_37 ( void* func ) ; diff --git a/vm/ffi_test.c b/vm/ffi_test.c index 4293a6bbae..5cdfbb2a9e 100755 --- a/vm/ffi_test.c +++ b/vm/ffi_test.c @@ -253,9 +253,9 @@ double ffi_test_36(struct test_struct_12 x) static int global_var; -void int_ffi_test_36_point_5(void) +void ffi_test_36_point_5(void) { - printf("int_ffi_test_36_point_5\n"); + printf("ffi_test_36_point_5\n"); global_var = 0; } diff --git a/vm/ffi_test.h b/vm/ffi_test.h index d455d999b1..0f51092d25 100755 --- a/vm/ffi_test.h +++ b/vm/ffi_test.h @@ -62,7 +62,7 @@ struct test_struct_12 { int a; double x; }; DLLEXPORT double ffi_test_36(struct test_struct_12 x); -DLLEXPORT void int_ffi_test_36_point_5(void); +DLLEXPORT void ffi_test_36_point_5(void); DLLEXPORT int ffi_test_37(int (*f)(int, int, int));