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

More callback tests

slava 2006-02-19 06:33:34 +00:00
parent 58143c8226
commit 6189450318
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/test/compiler/callbacks.factor
View File

@ -103,3 +103,9 @@ FUNCTION: int callback_test_5 void* callback ; compiled
FUNCTION: double callback_test_6 void* callback ; compiled FUNCTION: double callback_test_6 void* callback ; compiled
[ t ] [ callback-12 callback_test_6 pi = ] unit-test [ t ] [ callback-12 callback_test_6 pi = ] unit-test
: callback-13 "float" { } [ pi ] alien-callback ; compiled
FUNCTION: float callback_test_7 void* callback ; compiled
[ t ] [ callback-13 callback_test_7 pi - 0.00001 <= ] unit-test

13
native/ffi_test.c
View File

@ -129,11 +129,20 @@ int callback_test_5(int (*callback)(void))
return x; return x;
} }
int callback_test_6(double (*callback)(void)) float callback_test_6(float (*callback)(void))
{ {
double x; float x;
printf("callback_test_6 entry\n"); printf("callback_test_6 entry\n");
x = callback(); x = callback();
printf("callback_test_6 exit\n"); printf("callback_test_6 exit\n");
return x; return x;
} }
int callback_test_7(double (*callback)(void))
{
double x;
printf("callback_test_7 entry\n");
x = callback();
printf("callback_test_7 exit\n");
return x;
}