diff options
| author | KC Sivaramakrishnan <kc@kcsrk.info> | 2018-10-13 23:36:47 +0100 |
|---|---|---|
| committer | KC Sivaramakrishnan <kc@kcsrk.info> | 2018-10-13 23:36:47 +0100 |
| commit | b051478d0a79e8347f7d5812f44a08fef3b17561 (patch) | |
| tree | 15ed1d05e4f54f826892be10f48a98a863a7689b /stdlib/obj.ml | |
| parent | 4229ac29da69cc817d16aa71614bee9df820fc52 (diff) | |
| download | ocaml-b051478d0a79e8347f7d5812f44a08fef3b17561.tar.gz | |
Multicore safe lazy
Diffstat (limited to 'stdlib/obj.ml')
| -rw-r--r-- | stdlib/obj.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index 7dec9b38d2..355abb2e74 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -24,6 +24,7 @@ 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 set_tag : t -> int -> unit = "caml_obj_set_tag" +external cas_tag : t -> int -> int -> unit = "caml_obj_cas_tag" external size : t -> int = "%obj_size" external reachable_words : t -> int = "caml_obj_reachable_words" external field : t -> int -> t = "%obj_field" |