fix test cases

Author: Hongbo Zhang

jscomp/lam.ml

@@ -676,7 +676,13 @@ let lam_prim ~primitive:(p : Lambda.primitive) ~args  : t =
   | Pbigstring_set_16 x -> prim ~primitive:(Pbigstring_set_16 x) ~args
   | Pbigstring_set_32 x -> prim ~primitive:(Pbigstring_set_32 x) ~args
   | Pbigstring_set_64 x -> prim ~primitive:(Pbigstring_set_64 x) ~args
-  | Pctconst x -> prim ~primitive:(Pctconst x) ~args
+  | Pctconst x ->
+    begin match x with
+      | Word_size ->
+        Lift.int 32 (* TODO: documentation*)        
+      | _ -> prim ~primitive:(Pctconst x) ~args         
+    end
+
   | Pbbswap x -> prim ~primitive:(Pbbswap x) ~args
   | Pcvtbint (a,b) -> prim ~primitive:(Pcvtbint (a,b)) ~args
   | Pbintcomp (a,b) -> prim ~primitive:(Pbintcomp (a,b)) ~args

jscomp/test/string_bound_get_test.js

@@ -11,7 +11,9 @@ function u_b() {
   return Caml_string.get(v, -1);
 }
 
-var u_d = Caml_string.get("ghos", -1);
+function u_d() {
+  return Caml_string.get("ghos", -1);
+}
 
 var u_e = new Array(32);
 

jscomp/test/string_bound_get_test.ml

@@ -6,7 +6,7 @@ let u_a = v.[0]
 let u_b () = v.[-1]
 let u_c = "ghos".[0]
 
-let u_d = "ghos".[-1]
+let u_d () = "ghos".[-1]
 
 let u_e = Bytes.create 32
 

lib/js/sys.js

@@ -8,8 +8,6 @@ var match_001 = /* array */[];
 
 var big_endian = /* false */0;
 
-var word_size = 64;
-
 var unix = /* true */1;
 
 var win32 = /* false */0;
@@ -38,6 +36,8 @@ var executable_name = "cmd";
 
 var os_type = "Unix";
 
+var word_size = 32;
+
 var sigabrt = -1;
 
 var sigalrm = -2;