diff options
author | Tom Kelly <ctk21@cl.cam.ac.uk> | 2021-03-05 15:19:50 +0000 |
---|---|---|
committer | Tom Kelly <ctk21@cl.cam.ac.uk> | 2021-03-05 15:19:50 +0000 |
commit | fdad2875eb3c68e7d40d8a16b9dbb9a701b22fb7 (patch) | |
tree | 77c5847d6ca967e062fc4f43805e34e65b1d74d8 /stdlib/obj.ml | |
parent | c8361d136aed58e025979e9af50288e4c394ef67 (diff) | |
parent | 1b48b5aa3c5b4e0320231ac182d49197ac930b63 (diff) | |
download | ocaml-fdad2875eb3c68e7d40d8a16b9dbb9a701b22fb7.tar.gz |
Merge commit '1b48b5aa3c5b4e0320231ac182d49197ac930b63' into parallel_minor_gc_4_12
Diffstat (limited to 'stdlib/obj.ml')
-rw-r--r-- | stdlib/obj.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index f7ef1d32c3..a0eb7ef42b 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -24,7 +24,7 @@ external obj : t -> 'a = "%identity" external magic : 'a -> 'b = "%identity" external is_int : t -> bool = "%obj_is_int" let [@inline always] is_block a = not (is_int a) -external tag : t -> int = "caml_obj_tag" +external tag : t -> int = "caml_obj_tag" [@@noalloc] external set_tag : t -> int -> unit = "caml_obj_set_tag" external size : t -> int = "%obj_size" external reachable_words : t -> int = "caml_obj_reachable_words" |