summaryrefslogtreecommitdiffstats
path: root/testsuite/tests/lib-dynlink-bytecode/stub2.c
diff options
context:
space:
mode:
authorXavier Clerc <xavier.clerc@inria.fr>2010-01-25 14:17:10 +0000
committerXavier Clerc <xavier.clerc@inria.fr>2010-01-25 14:17:10 +0000
commit97edaa6cea536686e4793a8ae1f6e80467af9bff (patch)
treea08be18c565e4633543d447b3431d14a7508b14f /testsuite/tests/lib-dynlink-bytecode/stub2.c
parentf9f9fd1b8d9f2cff64beebed5ddc770f99d6a72e (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.c13
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;
+}