Support inline records

Author: cristianoc

jscomp/core/js_dump.ml

@@ -774,7 +774,7 @@ and expression_desc cxt ~(level : int) f x : cxt =
         if p.num_nonconst = 1 then tails
         else
           ( Js_op.Lit L.tag,
-            if !Js_config.debug then tag else { tag with comment = Some p.name }
+            E.str p.name
           )
           :: tails
       in

jscomp/test/inline_record_test.js

@@ -17,13 +17,13 @@ function eq(loc, x, y) {
 }
 
 var v = {
-  TAG: /* A0 */0,
+  TAG: "A0",
   lbl: 3,
   more: /* [] */0
 };
 
 var v1 = {
-  TAG: /* A1 */1,
+  TAG: "A1",
   more: {
     hd: 1,
     tl: {
@@ -88,14 +88,14 @@ function ff(x) {
 }
 
 var v4 = {
-  TAG: /* A0 */0,
+  TAG: "A0",
   x: 0,
   y: 0,
   z: 0
 };
 
 var v5 = {
-  TAG: /* A1 */1,
+  TAG: "A1",
   z: 0
 };
 

jscomp/test/large_record_duplication_test.js

@@ -102,7 +102,7 @@ function f1(x) {
 eq("File \"large_record_duplication_test.ml\", line 140, characters 6-13", get_x0(f1(v1)), 1);
 
 var v2 = {
-  TAG: /* A0 */0,
+  TAG: "A0",
   x0: 9,
   x1: 9,
   x2: 9,

jscomp/test/rec_value_test.js

@@ -297,7 +297,7 @@ function ptl(l) {
 var y00 = {};
 
 Caml_obj.update_dummy(y00, {
-      TAG: /* C1 */1,
+      TAG: "C1",
       hd: 1,
       tail: y00
     });

jscomp/test/record_extension_test.js

@@ -48,7 +48,7 @@ function f2_with(x) {
     return x;
   } else {
     return {
-            TAG: /* C */0,
+            TAG: "C",
             x: 0,
             y: x.y
           };

jscomp/test/record_regression.js

@@ -61,28 +61,28 @@ function setAA(ao) {
 }
 
 var ir0 = {
-  TAG: /* V0 */0,
+  TAG: "V0",
   x0: "v0",
   x3: 3
 };
 
 var ir1 = {
-  TAG: /* V0 */0,
+  TAG: "V0",
   x0: "v0",
   x1: "v1",
   x3: 3
 };
 
 var ir2 = {
-  TAG: /* V0 */0,
+  TAG: "V0",
   x0: "v0",
   x1: "v1",
   x2: 2,
   x3: 3
 };
 
 var ir3 = {
-  TAG: /* V1 */1,
+  TAG: "V1",
   y0: "v0",
   y1: 1
 };