avoid magic number..

Author: bobzhang

jscomp/stdlib/camlinternalOO.ml

@@ -44,7 +44,8 @@ let params = {
 (**** Parameters ****)
 #if BS then(* {!Translobj.oo_prim : string -> lambda} not by slot *)
 module Sys = struct 
-  let word_size = 32
+  external word_size : unit -> int = "%word_size"
+  let word_size = word_size ()
 end
 #end
 let step = Sys.word_size / 16

jscomp/stdlib/gc.ml

@@ -12,7 +12,8 @@
 (***********************************************************************)
 #if BS then
 module Sys = struct
-  let word_size = 8
+  external word_size : unit -> int = "%word_size"
+  let word_size = word_size ()
 end
 #end
 type stat = {

lib/js/camlinternalOO.js

@@ -709,7 +709,7 @@ function get_variable(table, name) {
             Caml_builtin_exceptions.assert_failure,
             [
               "camlinternalOO.ml",
-              284,
+              285,
               50
             ]
           ];

lib/js/gc.js

@@ -236,7 +236,7 @@ function print_stat(c) {
 
 function allocated_bytes() {
   var match = Caml_gc.caml_gc_counters(/* () */0);
-  return (match[0] + match[2] - match[1]) * 1;
+  return (match[0] + match[2] - match[1]) * 4;
 }
 
 function call_alarm(arec) {