change tag to TAG for easy renaming later

Author: bobzhang

jscomp/core/js_dump_lit.ml

@@ -71,7 +71,7 @@ let true_ = "true"
 let false_ = "false"
 
 let debugger = "debugger"
-let tag = "tag"
+let tag = "TAG"
 let bind = "bind"
 let math = "Math"
 let apply = "apply"

jscomp/runtime/bs_stdlib_mini.mli

@@ -57,7 +57,7 @@ module Obj : sig
   external set_field : t -> int -> t -> unit = "%obj_set_field"
   external tag : t -> int = "caml_obj_tag" 
   (* The compiler ensures (|0) operation *)
-  external set_tag : t -> int -> unit = "tag" [@@bs.set]  
+  external set_tag : t -> int -> unit = "TAG" [@@bs.set]  
   external repr : 'a -> t = "%identity"
   external obj : t -> 'a = "%identity"
   external magic : 'a -> 'b = "%identity"  

jscomp/runtime/caml_obj.ml

@@ -80,8 +80,8 @@ let caml_obj_dup : Obj.t -> Obj.t = [%raw{|function(x){
     for(var i = 0 ; i < len ; ++i){
       v[i] = x[i]
     }
-    if(x.tag !== undefined){
-      v.tag = x.tag 
+    if(x.TAG !== undefined){
+      v.TAG = x.TAG // TODO this can be removed eventually
     }  
     return v 
   } 
@@ -106,8 +106,8 @@ let update_dummy : _ -> _ -> unit= [%raw{|function(x,y){
     for(k = 0; k < y.length ; ++k){
       x[k] = y[k]
     }
-    if(y.tag !== undefined){
-      x.tag = y.tag
+    if(y.TAG !== undefined){
+      x.TAG = y.TAG
     }
   } else {
     for (var k in y){

jscomp/runtime/caml_parser.ml

@@ -241,7 +241,7 @@ let caml_parse_engine : parse_tables -> parser_env -> (*Parsing.parser_input *)O
             /* symb_start and symb_end */
             case Automata.TOKEN_READ:
                 if (typeof arg !== 'number') {
-                    env[env_curr_char] = tables[tbl_transl_block][arg.tag | 0 /* + 1 */];
+                    env[env_curr_char] = tables[tbl_transl_block][arg.TAG | 0 /* + 1 */];
                     env[env_lval] = arg._0; // token carries payload
                 }
                 else {

jscomp/stdlib-406/camlinternalOO.ml

@@ -16,7 +16,7 @@
 
 let new_object_tag_block  : int -> Obj.t = [%raw{|function(size){
   var v = new Array(size)
-  v.tag = 248 // tag
+  v.TAG = 248 // tag
   return v
 }|}]