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

Add another unit test

db4
Slava Pestov 2008-04-19 02:11:30 -05:00
parent 27d60007e2
commit d7763d6b71
3 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -280,6 +280,10 @@ FUNCTION: double ffi_test_36 ( test-struct-12 x ) ;
[ 1.23456 ] [ 1.23456 make-struct-12 ffi_test_36 ] unit-test [ 1.23456 ] [ 1.23456 make-struct-12 ffi_test_36 ] unit-test
FUNCTION: ulonglong ffi_test_38 ( ulonglong x, ulonglong y ) ;
[ t ] [ 31 2^ 32 2^ ffi_test_38 63 2^ = ] unit-test
! Test callbacks ! Test callbacks
: callback-1 "void" { } "cdecl" [ ] alien-callback ; : callback-1 "void" { } "cdecl" [ ] alien-callback ;

7
vm/ffi_test.c
View File

@ -260,3 +260,10 @@ int ffi_test_37(int (*f)(int, int, int))
fflush(stdout); fflush(stdout);
return global_var; return global_var;
} }
unsigned long long ffi_test_38(unsigned long long x, unsigned long long y)
{
return x * y;
}

2
vm/ffi_test.h
View File

@ -63,3 +63,5 @@ 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 int ffi_test_37(int (*f)(int, int, int)); DLLEXPORT int ffi_test_37(int (*f)(int, int, int));
DLLEXPORT unsigned long long ffi_test_38(unsigned long long x, unsigned long long y);