fix #3967

Author: bobzhang

jscomp/core/js_exp_make.ml

@@ -289,7 +289,20 @@ let dummy_obj ?comment (info : Lam_tag_info.t)  : t =
     for record it is [{}]
     for other it is [[]]
    *)
-  {comment  ; expression_desc = Array ([],Mutable)}
+  match info with
+  | Blk_record _ 
+  | Blk_module _ 
+    -> 
+    {comment ; expression_desc = Object ([])}
+  | Blk_constructor _ 
+  | Blk_tuple | Blk_array
+  | Blk_variant _ | Blk_extension_slot 
+  | Blk_extension | Blk_na _ 
+  | Blk_record_inlined _ 
+  | Blk_record_ext _ 
+  | Blk_class | Blk_module_export 
+    ->
+    {comment  ; expression_desc = Array ([],Mutable)}
 
 
 (* TODO: complete 

jscomp/test/gpr_1716_test.js

@@ -29,9 +29,9 @@ function eq(loc, x, y) {
   return /* () */0;
 }
 
-var a = [];
+var a = { };
 
-var b = [];
+var b = { };
 
 Caml_obj.caml_update_dummy(a, {
       b: b

jscomp/test/queue_402.js

@@ -21,7 +21,7 @@ function clear(q) {
 
 function add(x, q) {
   if (q.length === 0) {
-    var cell = [];
+    var cell = { };
     cell.content = x;
     cell.next = cell;
     q.length = 1;
@@ -71,7 +71,7 @@ function copy(q) {
           };
   } else {
     var tail = q.tail;
-    var tail$prime = [];
+    var tail$prime = { };
     Caml_obj.caml_update_dummy(tail$prime, {
           content: tail.content,
           next: tail$prime

jscomp/test/rec_fun_test.js

@@ -35,7 +35,7 @@ var called = {
 };
 
 function g(param) {
-  var v = [];
+  var v = { };
   var next = function (i, b) {
     called.contents = called.contents + 1 | 0;
     if (b) {

jscomp/test/recursive_records_test.js

@@ -18,14 +18,14 @@ function eq(loc, x, y) {
   return Mt.eq_suites(test_id, suites, loc, x, y);
 }
 
-var rec_cell = [];
+var rec_cell = { };
 
 rec_cell.content = 3;
 
 rec_cell.next = rec_cell;
 
 function f0(x) {
-  var rec_cell = [];
+  var rec_cell = { };
   Caml_obj.caml_update_dummy(rec_cell, {
         content: Caml_int32.imul(x, x) - 6 | 0,
         next: rec_cell

lib/4.06.1/unstable/js_compiler.ml

@@ -95035,7 +95035,20 @@ let dummy_obj ?comment (info : Lam_tag_info.t)  : t =
     for record it is [{}]
     for other it is [[]]
    *)
-  {comment  ; expression_desc = Array ([],Mutable)}
+  match info with
+  | Blk_record _ 
+  | Blk_module _ 
+    -> 
+    {comment ; expression_desc = Object ([])}
+  | Blk_constructor _ 
+  | Blk_tuple | Blk_array
+  | Blk_variant _ | Blk_extension_slot 
+  | Blk_extension | Blk_na _ 
+  | Blk_record_inlined _ 
+  | Blk_record_ext _ 
+  | Blk_class | Blk_module_export 
+    ->
+    {comment  ; expression_desc = Array ([],Mutable)}
 
 
 (* TODO: complete 

lib/4.06.1/whole_compiler.ml

@@ -85968,7 +85968,20 @@ let dummy_obj ?comment (info : Lam_tag_info.t)  : t =
     for record it is [{}]
     for other it is [[]]
    *)
-  {comment  ; expression_desc = Array ([],Mutable)}
+  match info with
+  | Blk_record _ 
+  | Blk_module _ 
+    -> 
+    {comment ; expression_desc = Object ([])}
+  | Blk_constructor _ 
+  | Blk_tuple | Blk_array
+  | Blk_variant _ | Blk_extension_slot 
+  | Blk_extension | Blk_na _ 
+  | Blk_record_inlined _ 
+  | Blk_record_ext _ 
+  | Blk_class | Blk_module_export 
+    ->
+    {comment  ; expression_desc = Array ([],Mutable)}
 
 
 (* TODO: complete