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

update compiler.tests.alien to joe's latest changes

db4
Doug Coleman 2009-08-25 12:00:06 -05:00
parent a81ebb2657
commit 2c6ef83c13
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@ namespaces.private parser quotations sequences
specialized-arrays.float stack-checker stack-checker.errors specialized-arrays.float stack-checker stack-checker.errors
system threads tools.test words ; system threads tools.test words ;
IN: compiler.tests.alien IN: compiler.tests.alien
FROM: classes.c-types => short ; FROM: classes.c-types => short float ;
<< <<
: libfactor-ffi-tests-path ( -- string ) : libfactor-ffi-tests-path ( -- string )
@ -183,8 +183,8 @@ FUNCTION: long ffi_test_22 long x longlong y longlong z ;
[ 1111 f 123456789 ffi_test_22 ] must-fail [ 1111 f 123456789 ffi_test_22 ] must-fail
STRUCT: RECT STRUCT: RECT
{ x single-float } { y single-float } { x float } { y float }
{ w single-float } { h single-float } ; { w float } { h float } ;
: <RECT> ( x y w h -- rect ) : <RECT> ( x y w h -- rect )
RECT <struct> RECT <struct>
@ -250,7 +250,7 @@ FUNCTION: test-struct-7 ffi_test_30 ;
[ B{ 1 2 3 4 5 6 7 } ] [ ffi_test_30 ] unit-test [ B{ 1 2 3 4 5 6 7 } ] [ ffi_test_30 ] unit-test
STRUCT: test-struct-8 { x float } { y float } ; STRUCT: test-struct-8 { x double } { y double } ;
FUNCTION: double ffi_test_32 test-struct-8 x int y ; FUNCTION: double ffi_test_32 test-struct-8 x int y ;
@ -261,7 +261,7 @@ FUNCTION: double ffi_test_32 test-struct-8 x int y ;
3 ffi_test_32 3 ffi_test_32
] unit-test ] unit-test
STRUCT: test-struct-9 { x single-float } { y single-float } ; STRUCT: test-struct-9 { x float } { y float } ;
FUNCTION: double ffi_test_33 test-struct-9 x int y ; FUNCTION: double ffi_test_33 test-struct-9 x int y ;
@ -272,7 +272,7 @@ FUNCTION: double ffi_test_33 test-struct-9 x int y ;
3 ffi_test_33 3 ffi_test_33
] unit-test ] unit-test
STRUCT: test-struct-10 { x single-float } { y int } ; STRUCT: test-struct-10 { x float } { y int } ;
FUNCTION: double ffi_test_34 test-struct-10 x int y ; FUNCTION: double ffi_test_34 test-struct-10 x int y ;
@ -294,7 +294,7 @@ FUNCTION: double ffi_test_35 test-struct-11 x int y ;
3 ffi_test_35 3 ffi_test_35
] unit-test ] unit-test
STRUCT: test-struct-12 { a int } { x float } ; STRUCT: test-struct-12 { a int } { x double } ;
: make-struct-12 ( x -- alien ) : make-struct-12 ( x -- alien )
test-struct-12 <struct> test-struct-12 <struct>
@ -399,12 +399,12 @@ FUNCTION: int ffi_test_37 ( void* func ) ;
[ 7 ] [ callback-9 ffi_test_37 ] unit-test [ 7 ] [ callback-9 ffi_test_37 ] unit-test
STRUCT: test_struct_13 STRUCT: test_struct_13
{ x1 single-float } { x1 float }
{ x2 single-float } { x2 float }
{ x3 single-float } { x3 float }
{ x4 single-float } { x4 float }
{ x5 single-float } { x5 float }
{ x6 single-float } ; { x6 float } ;
: make-test-struct-13 ( -- alien ) : make-test-struct-13 ( -- alien )
test_struct_13 <struct> test_struct_13 <struct>
@ -421,10 +421,10 @@ FUNCTION: int ffi_test_39 ( long a, long b, test_struct_13 s ) ;
! Joe Groff found this problem ! Joe Groff found this problem
STRUCT: double-rect STRUCT: double-rect
{ a float } { a double }
{ b float } { b double }
{ c float } { c double }
{ d float } ; { d double } ;
: <double-rect> ( a b c d -- foo ) : <double-rect> ( a b c d -- foo )
double-rect <struct> double-rect <struct>
@ -455,8 +455,8 @@ STRUCT: double-rect
[ 1.0 2.0 3.0 4.0 <double-rect> double-rect-test >double-rect< ] unit-test [ 1.0 2.0 3.0 4.0 <double-rect> double-rect-test >double-rect< ] unit-test
STRUCT: test_struct_14 STRUCT: test_struct_14
{ x1 float } { x1 double }
{ x2 float } ; { x2 double } ;
FUNCTION: test_struct_14 ffi_test_40 ( double x1, double x2 ) ; FUNCTION: test_struct_14 ffi_test_40 ( double x1, double x2 ) ;
@ -504,8 +504,8 @@ FUNCTION: test-struct-12 ffi_test_41 ( int a, double x ) ;
] unit-test ] unit-test
STRUCT: test_struct_15 STRUCT: test_struct_15
{ x single-float } { x float }
{ y single-float } ; { y float } ;
FUNCTION: test_struct_15 ffi_test_42 ( float x, float y ) ; FUNCTION: test_struct_15 ffi_test_42 ( float x, float y ) ;
@ -527,7 +527,7 @@ FUNCTION: test_struct_15 ffi_test_42 ( float x, float y ) ;
] unit-test ] unit-test
STRUCT: test_struct_16 STRUCT: test_struct_16
{ x single-float } { x float }
{ a int } ; { a int } ;
FUNCTION: test_struct_16 ffi_test_43 ( float x, int a ) ; FUNCTION: test_struct_16 ffi_test_43 ( float x, int a ) ;