fusion de la version 3.10.0

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8416 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 7 insertions, 0 deletions

diff --git a/ocamlbuild/examples/example_with_C/fibwrap.c b/ocamlbuild/examples/example_with_C/fibwrap.c
new file mode 100644
index 000000000..cc2104b67
--- /dev/null
+++ b/ocamlbuild/examples/example_with_C/fibwrap.c
@@ -0,0 +1,7 @@
+                                                            /* -*- C -*- */
+#include <caml/mlvalues.h>
+#include <caml/callback.h>
+int fib(int n)
+{
+  return Int_val(caml_callback(*caml_named_value("fib"), Val_int(n)));
+}