Mark Obj.tag [@@noalloc]
parent
781b37b688
commit
491cc88b33
|
@ -24,7 +24,7 @@ external obj : t -> 'a = "%identity"
|
||||||
external magic : 'a -> 'b = "%identity"
|
external magic : 'a -> 'b = "%identity"
|
||||||
external is_int : t -> bool = "%obj_is_int"
|
external is_int : t -> bool = "%obj_is_int"
|
||||||
let [@inline always] is_block a = not (is_int a)
|
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 set_tag : t -> int -> unit = "caml_obj_set_tag"
|
||||||
external size : t -> int = "%obj_size"
|
external size : t -> int = "%obj_size"
|
||||||
external reachable_words : t -> int = "caml_obj_reachable_words"
|
external reachable_words : t -> int = "caml_obj_reachable_words"
|
||||||
|
|
|
@ -27,7 +27,7 @@ external obj : t -> 'a = "%identity"
|
||||||
external magic : 'a -> 'b = "%identity"
|
external magic : 'a -> 'b = "%identity"
|
||||||
val [@inline always] is_block : t -> bool
|
val [@inline always] is_block : t -> bool
|
||||||
external is_int : t -> bool = "%obj_is_int"
|
external is_int : t -> bool = "%obj_is_int"
|
||||||
external tag : t -> int = "caml_obj_tag"
|
external tag : t -> int = "caml_obj_tag" [@@noalloc]
|
||||||
external size : t -> int = "%obj_size"
|
external size : t -> int = "%obj_size"
|
||||||
external reachable_words : t -> int = "caml_obj_reachable_words"
|
external reachable_words : t -> int = "caml_obj_reachable_words"
|
||||||
(**
|
(**
|
||||||
|
|
Loading…
Reference in New Issue