summaryrefslogtreecommitdiff
path: root/test/Moretest/cmstub.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/Moretest/cmstub.c')
-rw-r--r--test/Moretest/cmstub.c17
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))));
-}