summaryrefslogtreecommitdiff
path: root/test/Moretest/callbackprim.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/Moretest/callbackprim.c')
-rw-r--r--test/Moretest/callbackprim.c54
1 files changed, 0 insertions, 54 deletions
diff --git a/test/Moretest/callbackprim.c b/test/Moretest/callbackprim.c
deleted file mode 100644
index f1a4ccfa14..0000000000
--- a/test/Moretest/callbackprim.c
+++ /dev/null
@@ -1,54 +0,0 @@
-#include "mlvalues.h"
-#include "memory.h"
-#include "callback.h"
-
-value mycallback1(value fun, value arg)
-{
- value res;
- res = callback(fun, arg);
- return res;
-}
-
-value mycallback2(value fun, value arg1, value arg2)
-{
- value res;
- res = callback2(fun, arg1, arg2);
- return res;
-}
-
-value mycallback3(value fun, value arg1, value arg2, value arg3)
-{
- value res;
- res = callback3(fun, arg1, arg2, arg3);
- return res;
-}
-
-value mycallback4(value fun, value arg1, value arg2, value arg3, value arg4)
-{
- value args[4];
- value res;
- args[0] = arg1;
- args[1] = arg2;
- args[2] = arg3;
- args[3] = arg4;
- res = callbackN(fun, 4, args);
- return res;
-}
-
-value mypushroot(value v, value fun, value arg)
-{
- Begin_root(v)
- callback(fun, arg);
- End_roots();
- return v;
-}
-
-value mycamlparam (value v, value fun, value arg)
-{
- CAMLparam3 (v, fun, arg);
- CAMLlocal2 (x, y);
- x = v;
- y = callback (fun, arg);
- v = x;
- CAMLreturn (v);
-}