flambda-backend: Port #843 (Make Obj.dup use a new primitive, %obj_du…

…p) (#2039)
ocaml-flambda · Nov 17, 2023 · 0e87252 · 0e87252
1 parent 9eb0d70
commit 0e87252
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/runtime/obj.c b/runtime/obj.c
@@ -168,6 +168,7 @@ CAMLprim value caml_obj_with_tag(value new_tag_v, value arg)
 
 CAMLprim value caml_obj_dup(value arg)
 {
+  if (!Is_block(arg)) return arg;
   return caml_obj_with_tag(Val_long(Tag_val(arg)), arg);
 }