diff options
| author | Luc Maranget <luc.maranget@inria.fr> | 2010-01-25 14:52:00 +0000 |
|---|---|---|
| committer | Luc Maranget <luc.maranget@inria.fr> | 2010-01-25 14:52:00 +0000 |
| commit | e7ada9b93a02d39cd62f6fd7d9f629429ef51273 (patch) | |
| tree | 0d5771c12e6ab43afb23e5976c1ab35686a66b30 /stdlib/obj.ml | |
| parent | 924e832b687e914f4173bb52ec39806b1b6192a8 (diff) | |
| download | ocaml-jo311.tar.gz | |
Preparing relase 3.11.2jo311
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/jo311@9590 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/obj.ml')
| -rw-r--r-- | stdlib/obj.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index 9685be38ff..922febd65c 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -27,9 +27,12 @@ external set_tag : t -> int -> unit = "caml_obj_set_tag" external size : t -> int = "%obj_size" external field : t -> int -> t = "%obj_field" external set_field : t -> int -> t -> unit = "%obj_set_field" +let double_field x i = Array.get (obj x : float array) i +let set_double_field x i v = Array.set (obj x : float array) i v external new_block : int -> int -> t = "caml_obj_block" external dup : t -> t = "caml_obj_dup" external truncate : t -> int -> unit = "caml_obj_truncate" +external add_offset : t -> int -> t = "caml_obj_add_offset" let marshal (obj : t) = Marshal.to_string obj [] |