diff options
author | Xavier Clerc <xavier.clerc@inria.fr> | 2010-01-25 14:17:10 +0000 |
---|---|---|
committer | Xavier Clerc <xavier.clerc@inria.fr> | 2010-01-25 14:17:10 +0000 |
commit | 97edaa6cea536686e4793a8ae1f6e80467af9bff (patch) | |
tree | a08be18c565e4633543d447b3431d14a7508b14f /testsuite/tests/lib-dynlink-bytecode/stub2.c | |
parent | f9f9fd1b8d9f2cff64beebed5ddc770f99d6a72e (diff) |
Tests moved to 'lib-dynlink-bytecode'
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9575 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'testsuite/tests/lib-dynlink-bytecode/stub2.c')
-rw-r--r-- | testsuite/tests/lib-dynlink-bytecode/stub2.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/lib-dynlink-bytecode/stub2.c b/testsuite/tests/lib-dynlink-bytecode/stub2.c new file mode 100644 index 000000000..a11867354 --- /dev/null +++ b/testsuite/tests/lib-dynlink-bytecode/stub2.c @@ -0,0 +1,13 @@ +#include "caml/mlvalues.h" +#include "caml/memory.h" +#include "caml/alloc.h" +#include <stdio.h> + +extern value stub1(); + +value stub2() { + printf("This is stub2, calling stub1:\n"); + stub1(); + printf("Ok!\n"); + return Val_unit; +} |