record_renaming support

Author: bobzhang

jscomp/common/bs_version.ml

@@ -22,7 +22,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)    
-let version = "6.3.0-dev.1"
+let version = "7.0.0-dev.2"
 let header = 
    "// Generated by BUCKLESCRIPT, PLEASE EDIT WITH CARE"  
 let package_name = "bs-platform"   

jscomp/core/js_dump.ml

@@ -811,8 +811,9 @@ and expression_desc cxt ~(level:int) f x : cxt  =
         (Ext_list.map_combine fields el Ext_ident.convert)))
   | Caml_block(el,_, _, Blk_record fields) ->        
       expression_desc cxt ~level f (Object (
-        (Ext_list.map_combine (Array.to_list fields) el Ext_ident.convert)))      
-        (*FIXME: avoid allocaton *)
+        (List.combine (Array.to_list fields) el )))      
+        (* name convention of Record is slight different from modules 
+        *)
   | Caml_block( el, mutable_flag, tag, tag_info)
     ->
     (* Note that, if we ignore more than tag [0] we loose some information

jscomp/core/js_exp_make.ml

@@ -397,7 +397,7 @@ let array_index_by_int ?comment (e : t)  (pos : int32) : t =
   | _ -> { expression_desc = Array_index (e, int ?comment pos); comment = None} 
 
 let record_access (e : t) (name : string) (pos : int32) = 
-  let name = Ext_ident.convert name in 
+  (* let name = Ext_ident.convert name in  *)
   match e.expression_desc with
   | Array (l,_) (* Float i -- should not appear here *)
   | Caml_block (l,_, _, _) when no_side_effect e