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

New unit test which fails on PowerPC

release
Slava Pestov 2007-09-30 16:20:07 -04:00
parent 21beb45c1f
commit 304242bf5c
3 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/compiler/test/alien.factor
View File

@ -145,6 +145,16 @@ FUNCTION: void ffi_test_20 double x1, double x2, double x3,
[ ] [ 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 ffi_test_20 ] unit-test
! Make sure XT doesn't get clobbered in stack frame
: ffi_test_31
"void"
f "ffi_test_31"
{ "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" "int" }
alien-invoke code-gc 3 ;
[ 3 ] [ 42 [ ] each ffi_test_31 ] unit-test
FUNCTION: longlong ffi_test_21 long x long y ;
[ 121932631112635269 ]

16
vm/ffi_test.c
View File

@ -154,14 +154,14 @@ float ffi_test_23(float x[3], float y[3])
return x[0] * y[0] + x[1] * y[1] + x[2] * y[2];
}
DLLEXPORT struct test_struct_1 ffi_test_24(void)
struct test_struct_1 ffi_test_24(void)
{
struct test_struct_1 s;
s.x = 1;
return s;
}
DLLEXPORT struct test_struct_2 ffi_test_25(void)
struct test_struct_2 ffi_test_25(void)
{
struct test_struct_2 s;
s.x = 1;
@ -169,7 +169,7 @@ DLLEXPORT struct test_struct_2 ffi_test_25(void)
return s;
}
DLLEXPORT struct test_struct_3 ffi_test_26(void)
struct test_struct_3 ffi_test_26(void)
{
struct test_struct_3 s;
s.x = 1;
@ -178,7 +178,7 @@ DLLEXPORT struct test_struct_3 ffi_test_26(void)
return s;
}
DLLEXPORT struct test_struct_4 ffi_test_27(void)
struct test_struct_4 ffi_test_27(void)
{
struct test_struct_4 s;
s.x = 1;
@ -188,7 +188,7 @@ DLLEXPORT struct test_struct_4 ffi_test_27(void)
return s;
}
DLLEXPORT struct test_struct_5 ffi_test_28(void)
struct test_struct_5 ffi_test_28(void)
{
struct test_struct_5 s;
s.x = 1;
@ -199,7 +199,7 @@ DLLEXPORT struct test_struct_5 ffi_test_28(void)
return s;
}
DLLEXPORT struct test_struct_6 ffi_test_29(void)
struct test_struct_6 ffi_test_29(void)
{
struct test_struct_6 s;
s.x = 1;
@ -211,7 +211,7 @@ DLLEXPORT struct test_struct_6 ffi_test_29(void)
return s;
}
DLLEXPORT struct test_struct_7 ffi_test_30(void)
struct test_struct_7 ffi_test_30(void)
{
struct test_struct_7 s;
s.x = 1;
@ -223,3 +223,5 @@ DLLEXPORT struct test_struct_7 ffi_test_30(void)
s.d = 7;
return s;
}
void ffi_test_31(int x0, int x1, int x2, int x3, int x4, int x5, int x6, int x7, int x8, int x9, int x10, int x11, int x12, int x13, int x14, int x15, int x16, int x17, int x18, int x19, int x20, int x21, int x22, int x23, int x24, int x25, int x26, int x27, int x28, int x29, int x30, int x31, int x32, int x33, int x34, int x35, int x36, int x37, int x38, int x39, int x40, int x41) { }

1
vm/ffi_test.h
View File

@ -48,3 +48,4 @@ struct test_struct_6 { char x, y, z, a, b, c; };
DLLEXPORT struct test_struct_6 ffi_test_29(void);
struct test_struct_7 { char x, y, z, a, b, c, d; };
DLLEXPORT struct test_struct_7 ffi_test_30(void);
DLLEXPORT void ffi_test_31(int x0, int x1, int x2, int x3, int x4, int x5, int x6, int x7, int x8, int x9, int x10, int x11, int x12, int x13, int x14, int x15, int x16, int x17, int x18, int x19, int x20, int x21, int x22, int x23, int x24, int x25, int x26, int x27, int x28, int x29, int x30, int x31, int x32, int x33, int x34, int x35, int x36, int x37, int x38, int x39, int x40, int x41);