Forcer bigarray_get_{1,2,3,N} a etre linkees en cas de ocamlmktop ou ocamlc -linkall

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

1 files changed, 10 insertions, 0 deletions

diff --git a/otherlibs/bigarray/bigarray.ml b/otherlibs/bigarray/bigarray.ml
index f649fad1dc..f3a7589225 100644
--- a/otherlibs/bigarray/bigarray.ml
+++ b/otherlibs/bigarray/bigarray.ml
@@ -188,3 +188,13 @@ let array2_of_genarray a =
 let array3_of_genarray a =
   if Genarray.num_dims a = 3 then a else invalid_arg "Bigarray.array3_of_genarray"
 
+(* Force bigarray_get_{1,2,3,N} to be linked in, since we don't refer
+   to those primitives directly in this file *)
+
+let _ =
+  let getN = Genarray.get in
+  let get1 = Array1.get in
+  let get2 = Array2.get in
+  let get3 = Array3.get in
+  ()
+