2006-01-20 21:37:38 -05:00
|
|
|
USING: compiler test ;
|
|
|
|
|
|
|
|
|
|
FUNCTION: void ffi_test_0 ; compiled
|
|
|
|
|
[ ] [ ffi_test_0 ] unit-test
|
|
|
|
|
|
|
|
|
|
FUNCTION: int ffi_test_1 ; compiled
|
|
|
|
|
[ 3 ] [ ffi_test_1 ] unit-test
|
|
|
|
|
|
2006-01-24 19:56:08 -05:00
|
|
|
FUNCTION: int ffi_test_2 int x int y ; compiled
|
|
|
|
|
[ 5 ] [ 2 3 ffi_test_2 ] unit-test
|
|
|
|
|
|
|
|
|
|
FUNCTION: int ffi_test_3 int x int y int z int t ; compiled
|
|
|
|
|
[ 25 ] [ 2 3 4 5 ffi_test_3 ] unit-test
|
|
|
|
|
|
2006-01-24 20:20:20 -05:00
|
|
|
FUNCTION: float ffi_test_4 ; compiled
|
|
|
|
|
[ 1.5 ] [ ffi_test_4 ] unit-test
|
|
|
|
|
|
|
|
|
|
FUNCTION: double ffi_test_5 ; compiled
|
|
|
|
|
[ 1.5 ] [ ffi_test_5 ] unit-test
|
|
|
|
|
|
|
|
|
|
FUNCTION: double ffi_test_6 float x float y ; compiled
|
|
|
|
|
[ 6.0 ] [ 3.0 2.0 ffi_test_6 ] unit-test
|
|
|
|
|
|
