Fix change to test.

Author: cristianoc

compiler/ml/ctype.ml

@@ -2046,6 +2046,7 @@ and mcomp_record_description type_pairs env =
       if
         Ident.name l1.ld_id = Ident.name l2.ld_id
         && l1.ld_mutable = l2.ld_mutable
+        && l1.ld_optional = l2.ld_optional
       then iter xs ys
       else raise (Unify [])
     | [], [] -> ()

compiler/ml/parmatch.ml

@@ -526,19 +526,24 @@ let all_record_args lbls =
     in
     List.iter
       (fun ((id, lbl, pat) as x) ->
+        let lbl_is_optional () =
+          match lbl.lbl_repres with
+          | Record_inlined _ -> false
+          | _ -> lbl.lbl_optional
+        in
         let x =
           match pat.pat_desc with
           | Tpat_construct
               ( {txt = Longident.Ldot (Longident.Lident "*predef*", "Some")},
                 _,
                 [({pat_desc = Tpat_constant _} as c)] )
-            when lbl.lbl_optional ->
+            when lbl_is_optional () ->
             (id, lbl, c)
           | Tpat_construct
               ( {txt = Longident.Ldot (Longident.Lident "*predef*", "Some")},
                 _,
                 [({pat_desc = Tpat_construct (_, cd, _)} as pat_construct)] )
-            when lbl.lbl_optional -> (
+            when lbl_is_optional () -> (
             let cdecl =
               Ast_untagged_variants
               .constructor_declaration_from_constructor_description

tests/tests/src/record_regression.mjs

@@ -172,24 +172,36 @@ function inlinedRecord(ir) {
   let x1 = ir.x1;
   let x0 = ir.x0;
   if (x1 !== undefined) {
-    if (x1 === "x1") {
-      let x2 = ir.x2;
-      if (x2 !== undefined) {
-        return [
-          x0,
-          "x1",
-          x2,
-          ir.x3
-        ];
-      }
-      
+    switch (x1) {
+      case "x1" :
+        let x2 = ir.x2;
+        if (x2 !== undefined) {
+          return [
+            x0,
+            "x1",
+            x2,
+            ir.x3
+          ];
+        }
+        break;
+      case "xx1" :
+        let x2$1 = ir.x2;
+        if (x2$1 !== undefined) {
+          return [
+            x0,
+            "xx1",
+            x2$1,
+            ir.x3
+          ];
+        }
+        break;
     }
-    let x2$1 = ir.x2;
-    if (x2$1 !== undefined) {
+    let x2$2 = ir.x2;
+    if (x2$2 !== undefined) {
       return [
         x0,
         x1,
-        x2$1,
+        x2$2,
         ir.x3
       ];
     } else {
@@ -201,12 +213,12 @@ function inlinedRecord(ir) {
       ];
     }
   }
-  let x2$2 = ir.x2;
-  if (x2$2 !== undefined) {
+  let x2$3 = ir.x2;
+  if (x2$3 !== undefined) {
     return [
       x0,
       "n/a",
-      x2$2,
+      x2$3,
       ir.x3
     ];
   } else {