pour ocaml 3.10 pour le dynlink

configure.in

@@ -481,7 +481,8 @@ AC_SUBST(PSVIEWER)
 AC_SUBST(PDFVIEWER)
 # Finally create the Makefile from Makefile.in
 dnl AC_OUTPUT(Makefile)
-AC_OUTPUT(Makefile bench/bench)
+AC_CONFIG_FILES(Makefile bench/bench src/output/dynlink_compat.ml)
+AC_OUTPUT
 chmod a-w Makefile
 chmod a-w bench/bench
 chmod a+x bench/bench

src/output/driver.ml

@@ -165,7 +165,22 @@ let () =
                      "Pervasives";"Format";"List";"Sys";"Unix"]
 *)
 
+module Dynlink =
+struct
+  let is_native = true
+  open Dynlink
+  let is_native1 = is_native
+  let is_native = false
+  include Dynlink
+  let is_native2 = is_native
+  let is_native_not_defined = is_native1 <> is_native2
+end
+
+
+exception Cantloadplugin
+
 let load_plugin dir (byte,nat) =
+  if Dynlink.is_native_not_defined then raise Cantloadplugin;
   let file = if Dynlink.is_native then nat else byte in
   let file = Filename.concat dir file in
   Dynlink.loadfile_private file