From 9cc5a59d4026feeeacbf851e82fd94558ce004b3 Mon Sep 17 00:00:00 2001 From: Zesen Qian Date: Thu, 16 Nov 2023 13:47:19 +0000 Subject: [PATCH] port #946 --- ocaml/runtime/caml/mlvalues.h | 1 + 1 file changed, 1 insertion(+) diff --git a/ocaml/runtime/caml/mlvalues.h b/ocaml/runtime/caml/mlvalues.h index 595a1fad87d..da3a46da4f9 100644 --- a/ocaml/runtime/caml/mlvalues.h +++ b/ocaml/runtime/caml/mlvalues.h @@ -280,6 +280,7 @@ Caml_inline void* Ptr_val(value val) The remaining bits are the field number for the first word of the environment, or, in other words, the offset (in words) from the closure to the environment part. */ +/* CR ncourant: it might be cleaner to use a packed struct here */ #ifdef ARCH_SIXTYFOUR #define Arity_closinfo(info) ((intnat)(info) >> 56) #define Start_env_closinfo(info) (((uintnat)(info) << 8) >> 9)