diff options
Diffstat (limited to 'test/Moretest/callbackprim.c')
| -rw-r--r-- | test/Moretest/callbackprim.c | 54 |
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); -} |
