diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-06-15 08:10:01 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-06-15 08:10:01 +0000 |
| commit | 9ef4bd08d158b513a349709f6e6b08aa37d2f190 (patch) | |
| tree | f57443d0d2134f9feb35e64918c20b40e4cfc34e /stdlib/obj.ml | |
| parent | 00f1ca9d88753a8f1985862f5fd3ce3866a0c514 (diff) | |
Passage de {Array,String}.{get,set} en primitives C.
Renommage %array_get -> %array_unsafe_get, etc.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@31 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/obj.ml')
| -rw-r--r-- | stdlib/obj.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index b4c131ad4..c31e6c3ab 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -7,7 +7,7 @@ external magic : 'a -> 'b = "%identity" external is_block : t -> bool = "obj_is_block" external tag : t -> int = "%tagof" external size : t -> int = "%array_length" -external field : t -> int -> t = "%array_get" -external set_field : t -> int -> t -> unit = "%array_set" +external field : t -> int -> t = "%array_unsafe_get" +external set_field : t -> int -> t -> unit = "%array_unsafe_set" external new_block : int -> int -> t = "obj_block" external update : t -> t -> unit = "%update" |