remove unused code in stdlib

Author: bobzhang

jscomp/stdlib-406/camlinternalOO.ml

@@ -468,7 +468,7 @@ let create_object_and_run_initializers obj_0 table =
 let sendself obj lab =
   (magic obj : (obj -> t) array array).(0).(lab) obj
 *)
-external send : obj -> tag -> 'a = "%send"
+(* external send : obj -> tag -> 'a = "%send" *)
 external sendcache : obj -> tag -> t -> int -> 'a = "%sendcache"
 external sendself : obj -> label -> 'a = "%sendself"
 external get_public_method : obj -> tag -> closure

jscomp/stdlib-406/hashtbl.ml

@@ -17,8 +17,8 @@
 
 external seeded_hash_param :
   int -> int -> int -> 'a -> int = "caml_hash" [@@noalloc]
-external old_hash_param :
-  int -> int -> 'a -> int = "caml_hash_univ_param" [@@noalloc]
+(* external old_hash_param :
+  int -> int -> 'a -> int = "caml_hash_univ_param" [@@noalloc] *)
 
 let hash x = seeded_hash_param 10 100 0 x
 let hash_param n1 n2 x = seeded_hash_param n1 n2 0 x

jscomp/stdlib-406/release.ninja

@@ -1,6 +1,6 @@
 
 bsc = ../lib/bsc.exe
-bsc_flags = -absname -no-alias-deps -bs-no-version-header -bs-diagnose -bs-no-check-div-by-zero -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:lib/js  -bs-package-output es6:lib/es6  -nostdlib  -w -40-49-103-3 -bin-annot  -bs-no-warn-unimplemented-external  -I runtime  -I others
+bsc_flags = -absname -no-alias-deps -bs-no-version-header -bs-diagnose -bs-no-check-div-by-zero -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:lib/js  -bs-package-output es6:lib/es6  -nostdlib  -w -9-3-106 -warn-error A  -I runtime  -I others
 
 rule cc
     command = $bsc -bs-cmi -bs-cmj $bsc_flags   -I stdlib-406  $in

jscomp/stdlib-406/sys.ml

@@ -24,12 +24,12 @@ type backend_type =
   | Other of string
 (* System interface *)
 
-external get_config: unit -> string * int * bool = "caml_sys_get_config"
+(* external get_config: unit -> string * int * bool = "caml_sys_get_config" *)
 external get_argv: unit -> string * string array = "caml_sys_get_argv"
 external big_endian : unit -> bool = "%big_endian"
 external word_size : unit -> int = "%word_size"
 external int_size : unit -> int = "%int_size"
-external max_wosize : unit -> int = "%max_wosize"
+(* external max_wosize : unit -> int = "%max_wosize" *)
 external unix : unit -> bool = "%ostype_unix"
 external win32 : unit -> bool = "%ostype_win32"
 external cygwin : unit -> bool = "%ostype_cygwin"