flambda-backend: Fix mistake with extension records (ocaml#423)

chambart · Dec 8, 2021 · 68c39d5 · 68c39d5
1 parent 423f312
commit 68c39d5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lambda/translcore.ml b/lambda/translcore.ml
@@ -395,7 +395,7 @@ and transl_exp0 ~in_new_scope ~scopes e =
         | Record_unboxed _ -> assert false
         | Record_float -> Psetfloatfield (lbl.lbl_pos, Assignment)
         | Record_extension _ ->
-          Psetfield (lbl.lbl_pos, maybe_pointer newval, Assignment)
+          Psetfield (lbl.lbl_pos + 1, maybe_pointer newval, Assignment)
       in
       Lprim(access, [transl_exp ~scopes arg; transl_exp ~scopes newval],
             of_location ~scopes e.exp_loc)