Branchement du GC de la version bytecode sur le compilateur natif

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

1 files changed, 2 insertions, 14 deletions

diff --git a/stdlib/array.ml b/stdlib/array.ml
index d539d76c6..62c475d22 100644
--- a/stdlib/array.ml
+++ b/stdlib/array.ml
@@ -1,23 +1,11 @@
 (* Array operations *)
 
 external length : 'a array -> int = "%array_length"
+external get: 'a array -> int -> 'a = "%array_safe_get"
+external set: 'a array -> int -> 'a -> unit = "%array_safe_set"
 external unsafe_get: 'a array -> int -> 'a = "%array_unsafe_get"
 external unsafe_set: 'a array -> int -> 'a -> unit = "%array_unsafe_set"
 external new: int -> 'a -> 'a array = "make_vect"
-external get: 'a array -> int -> 'a = "array_get"
-external set: 'a array -> int -> 'a -> unit = "array_set"
-
-(*****
-let get a n =
-  if n < 0 or n >= length a
-  then invalid_arg "Array.get"
-  else unsafe_get a n
-
-let set a n v =
-  if n < 0 or n >= length a
-  then invalid_arg "Array.set"
-  else unsafe_set a n v
-*****)
 
 let new_matrix sx sy init =
   let res = new sx [||] in