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

fix ffi test

db4
Doug Coleman 2008-04-23 17:07:37 -05:00
parent e5d9d00635
commit ca1484b94c
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/alien/compiler/compiler-tests.factor
View File

@ -364,9 +364,9 @@ FUNCTION: ulonglong ffi_test_38 ( ulonglong x, ulonglong y ) ;
+ + 1+ + + 1+
] alien-callback ; ] 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 ) ; FUNCTION: int ffi_test_37 ( void* func ) ;

4
vm/ffi_test.c
View File

@ -253,9 +253,9 @@ double ffi_test_36(struct test_struct_12 x)
static int global_var; 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; global_var = 0;
} }

2
vm/ffi_test.h
View File

@ -62,7 +62,7 @@ struct test_struct_12 { int a; double x; };
DLLEXPORT double ffi_test_36(struct test_struct_12 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)); DLLEXPORT int ffi_test_37(int (*f)(int, int, int));