diff options
| -rw-r--r-- | stdlib/obj.ml | 2 | ||||
| -rw-r--r-- | stdlib/weak.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index d087d7b3db..b7f177a7b4 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -100,7 +100,7 @@ module Ephemeron = struct external create: int -> t = "caml_ephe_create" - let length x = size(repr x) - 2 + let length x = size(repr x) - 3 (* CAML_EPHE_FIRST_KEY in weak.h *) external get_key: t -> int -> obj_t option = "caml_ephe_get_key" external get_key_copy: t -> int -> obj_t option = "caml_ephe_get_key_copy" diff --git a/stdlib/weak.ml b/stdlib/weak.ml index 05cc74c867..d9ff6124f6 100644 --- a/stdlib/weak.ml +++ b/stdlib/weak.ml @@ -23,7 +23,7 @@ external create : int -> 'a t = "caml_weak_create" * - Link * - Domain * - Data *) -let additional_values = 3 +let additional_values = 3 (* CAML_EPHE_FIRST_KEY in weak.h *) let length x = Obj.size(Obj.repr x) - additional_values |