diff options
Diffstat (limited to 'test/Moretest/cmstub.c')
| -rw-r--r-- | test/Moretest/cmstub.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/test/Moretest/cmstub.c b/test/Moretest/cmstub.c deleted file mode 100644 index 56cd694431..0000000000 --- a/test/Moretest/cmstub.c +++ /dev/null @@ -1,17 +0,0 @@ -#include <string.h> -#include <caml/mlvalues.h> -#include <caml/callback.h> - -/* Functions callable directly from C */ - -int fib(int n) -{ - value * fib_closure = caml_named_value("fib"); - return Int_val(callback(*fib_closure, Val_int(n))); -} - -char * format_result(int n) -{ - value * format_result_closure = caml_named_value("format_result"); - return strdup(String_val(callback(*format_result_closure, Val_int(n)))); -} |
