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

ffi_test: Can actually test 62 and 63 on windows.

db4
Doug Coleman 2014-11-10 10:30:35 -08:00
parent 564a67ce7e
commit 466fe4559d
3 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/compiler/tests/alien.factor
View File

@ -896,24 +896,25 @@ os windows? [
S{ bool-and-ptr { b t } { ptr f } }
} [ ffi_test_61 ] unit-test
STRUCT: uint-pair
] unless
STRUCT: uint-pair
{ a uint }
{ b uint } ;
FUNCTION: uint-pair ffi_test_62 ( ) ;
FUNCTION: uint-pair ffi_test_62 ( ) ;
{
{
S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
} [ ffi_test_62 ] unit-test
} [ ffi_test_62 ] unit-test
STRUCT: ulonglong-pair
STRUCT: ulonglong-pair
{ a ulonglong }
{ b ulonglong } ;
FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
{
{
S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
} [ ffi_test_63 ] unit-test
} [ ffi_test_63 ] unit-test
] unless

3
vm/ffi_test.c
View File

@ -317,6 +317,8 @@ struct bool_and_ptr ffi_test_61() {
return bap;
}
#endif
struct uint_pair ffi_test_62() {
struct uint_pair uip;
uip.a = 0xabcdefab;
@ -331,4 +333,3 @@ struct ulonglong_pair ffi_test_63() {
return ullp;
}
#endif

3
vm/ffi_test.h
View File

@ -215,6 +215,8 @@ struct bool_and_ptr {
FACTOR_EXPORT struct bool_and_ptr ffi_test_61();
#endif
struct uint_pair {
unsigned int a;
unsigned int b;
@ -229,4 +231,3 @@ struct ulonglong_pair {
FACTOR_EXPORT struct ulonglong_pair ffi_test_63();
#endif