fix warnings for docs

Author: bobzhang

jscomp/runtime/caml_format.ml

@@ -402,7 +402,7 @@ let caml_int64_format fmt x =
         begin         
           let y = Caml_int64.discard_sign  x in
           (* 2 ^  63 + y `div_mod` 8 *)        
-          let quotient_l  = 1152921504606846976L (**)
+          let quotient_l  = 1152921504606846976L 
             (* {lo =   0n; hi =  268435456n } *) (* 2 ^ 31 / 8 *)
           in 
 

jscomp/runtime/caml_module.ml

@@ -21,11 +21,11 @@
  * 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. *)
-
 (** This module replaced camlinternalMod completely. 
   Note we can replace {!CamlinternalMod} completely, but it is not replaced 
   due to we believe this is an even low level dependency
 *)
+
 [@@@warning "-37"] (* `Function` may be used in runtime *)
 
 type shape = 

jscomp/runtime/caml_oo.ml

@@ -57,7 +57,7 @@ let caml_get_public_method
   let offs =  caml_methods_cache.(cacheid) in
   if (Caml_obj_extern.magic meths.(offs) : int) = tag then meths.(offs - 1)
   else
-    (** TODO: binary search *)    
+    (* TODO: binary search *)    
     let rec aux (i : int) : int =     
       if i < 3 then assert false       
       else if (Caml_obj_extern.magic meths.(i) : int) = tag then

jscomp/runtime/curry.ml

@@ -23,21 +23,21 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-(** Generated by scripts/curry_gen.ml *)  
+(* Generated by scripts/curry_gen.ml *)  
 external function_length : 'a -> int = "#function_length"
 external apply_args : ('a -> 'b) -> _ array -> 'b = "#apply"
 external sub : 'a array -> int -> int -> 'a array = "caml_array_sub"
 
-(** Public *)
+(* Public *)
 let rec app f args = 
   let init_arity = function_length f in
   let arity = if init_arity = 0 then 1 else init_arity in (* arity fixing *)
   let len = Caml_array_extern.length args in
   let d = arity - len in 
   if d = 0 then 
-    apply_args f  args (**f.apply (null,args) *)
+    apply_args f  args (* f.apply (null,args) *)
   else if d < 0 then 
-    (** TODO: could avoid copy by tracking the index *)
+    (* TODO: could avoid copy by tracking the index *)
     app (Obj.magic (apply_args f (sub args 0 arity)))
       (sub args arity (-d))
   else 
@@ -73,12 +73,13 @@ let curry_1 o a0 arity =
   | 7 -> apply7 (Obj.magic o) a0
   | _ -> Obj.magic (app o [|a0|])    
 
-(** Public *)  
+(* Public *)  
 let _1 o a0 =
   let arity = function_length o in
   if arity = 1 then apply1 o a0
   else curry_1 o a0 arity     
-(** Public *)
+
+(* Public *)
 let __1 o =
   let arity = function_length o in
   if arity = 1 then o
@@ -97,12 +98,13 @@ let curry_2 o a0 a1 arity =
   | 7 -> apply7 (Obj.magic o) a0 a1
   | _ -> Obj.magic (app o [|a0;a1|])    
 
-(** Public *)  
+(* Public *)  
 let _2 o a0 a1 =
   let arity = function_length o in
   if arity = 2 then apply2 o a0 a1
   else curry_2 o a0 a1 arity     
-(** Public *)
+
+(* Public *)
 let __2 o =
   let arity = function_length o in
   if arity = 2 then o
@@ -121,12 +123,13 @@ let curry_3 o a0 a1 a2 arity =
   | 7 -> apply7 (Obj.magic o) a0 a1 a2
   | _ -> Obj.magic (app o [|a0;a1;a2|])    
 
-(** Public *)  
+(* Public *)  
 let _3 o a0 a1 a2 =
   let arity = function_length o in
   if arity = 3 then apply3 o a0 a1 a2
   else curry_3 o a0 a1 a2 arity     
-(** Public *)
+
+(* Public *)
 let __3 o =
   let arity = function_length o in
   if arity = 3 then o
@@ -145,12 +148,13 @@ let curry_4 o a0 a1 a2 a3 arity =
   | 7 -> apply7 (Obj.magic o) a0 a1 a2 a3
   | _ -> Obj.magic (app o [|a0;a1;a2;a3|])    
 
-(** Public *)  
+(* Public *)  
 let _4 o a0 a1 a2 a3 =
   let arity = function_length o in
   if arity = 4 then apply4 o a0 a1 a2 a3
   else curry_4 o a0 a1 a2 a3 arity     
-(** Public *)
+
+(* Public *)
 let __4 o =
   let arity = function_length o in
   if arity = 4 then o
@@ -169,12 +173,13 @@ let curry_5 o a0 a1 a2 a3 a4 arity =
   | 7 -> apply7 (Obj.magic o) a0 a1 a2 a3 a4
   | _ -> Obj.magic (app o [|a0;a1;a2;a3;a4|])    
 
-(** Public *)  
+(* Public *)  
 let _5 o a0 a1 a2 a3 a4 =
   let arity = function_length o in
   if arity = 5 then apply5 o a0 a1 a2 a3 a4
   else curry_5 o a0 a1 a2 a3 a4 arity     
-(** Public *)
+
+(* Public *)
 let __5 o =
   let arity = function_length o in
   if arity = 5 then o
@@ -193,12 +198,13 @@ let curry_6 o a0 a1 a2 a3 a4 a5 arity =
   | 7 -> apply7 (Obj.magic o) a0 a1 a2 a3 a4 a5
   | _ -> Obj.magic (app o [|a0;a1;a2;a3;a4;a5|])    
 
-(** Public *)  
+(* Public *)  
 let _6 o a0 a1 a2 a3 a4 a5 =
   let arity = function_length o in
   if arity = 6 then apply6 o a0 a1 a2 a3 a4 a5
   else curry_6 o a0 a1 a2 a3 a4 a5 arity     
-(** Public *)
+
+(* Public *)
 let __6 o =
   let arity = function_length o in
   if arity = 6 then o
@@ -217,12 +223,13 @@ let curry_7 o a0 a1 a2 a3 a4 a5 a6 arity =
   | 7 -> apply7 (Obj.magic o) a0 a1 a2 a3 a4 a5 a6
   | _ -> Obj.magic (app o [|a0;a1;a2;a3;a4;a5;a6|])    
 
-(** Public *)  
+(* Public *)  
 let _7 o a0 a1 a2 a3 a4 a5 a6 =
   let arity = function_length o in
   if arity = 7 then apply7 o a0 a1 a2 a3 a4 a5 a6
   else curry_7 o a0 a1 a2 a3 a4 a5 a6 arity     
-(** Public *)
+
+(* Public *)
 let __7 o =
   let arity = function_length o in
   if arity = 7 then o
@@ -241,12 +248,13 @@ let curry_8 o a0 a1 a2 a3 a4 a5 a6 a7 arity =
   | 7 -> app (apply7 (Obj.magic o) a0 a1 a2 a3 a4 a5 a6) [|a7|]
   | _ -> Obj.magic (app o [|a0;a1;a2;a3;a4;a5;a6;a7|])    
 
-(** Public *)  
+(* Public *)  
 let _8 o a0 a1 a2 a3 a4 a5 a6 a7 =
   let arity = function_length o in
   if arity = 8 then apply8 o a0 a1 a2 a3 a4 a5 a6 a7
   else curry_8 o a0 a1 a2 a3 a4 a5 a6 a7 arity     
-(** Public *)
+
+(* Public *)
 let __8 o =
   let arity = function_length o in
   if arity = 8 then o

jscomp/runtime/js.ml

@@ -52,6 +52,7 @@ type +'a t
     ]}
  *)
 
+[@@@warning "-49"]
 (* internal types for FFI, these types are not used by normal users *)
 
 (**/**)

jscomp/runtime/release.ninja

@@ -1,6 +1,6 @@
 
 bsc = ../lib/bsc.exe
-bsc_no_open_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 -nopervasives  -unsafe -warn-error A -w -40-49-103 -bin-annot
+bsc_no_open_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 -nopervasives  -unsafe -w +50 -warn-error A  -bin-annot
 bsc_flags = $bsc_no_open_flags -open Bs_stdlib_mini
 
 rule cc

scripts/curry_gen.ml

@@ -35,21 +35,21 @@ let prelude ={|
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-(** Generated by scripts/curry_gen.ml *)  
+(* Generated by scripts/curry_gen.ml *)  
 external function_length : 'a -> int = "#function_length"
 external apply_args : ('a -> 'b) -> _ array -> 'b = "#apply"
 external sub : 'a array -> int -> int -> 'a array = "caml_array_sub"
 
-(** Public *)
+(* Public *)
 let rec app f args = 
   let init_arity = function_length f in
   let arity = if init_arity = 0 then 1 else init_arity in (* arity fixing *)
   let len = Caml_array_extern.length args in
   let d = arity - len in 
   if d = 0 then 
-    apply_args f  args (**f.apply (null,args) *)
+    apply_args f  args (* f.apply (null,args) *)
   else if d < 0 then 
-    (** TODO: could avoid copy by tracking the index *)
+    (* TODO: could avoid copy by tracking the index *)
     app (Obj.magic (apply_args f (sub args 0 arity)))
       (sub args arity (-d))
   else 
@@ -114,12 +114,13 @@ let curry_%d o %s arity =
   match arity with
   |%s    
 
-(** Public *)  
+(* Public *)  
 let _%d o %s =
   let arity = function_length o in
   if arity = %d then apply%d o %s
   else curry_%d o %s arity     
-(** Public *)
+
+(* Public *)
 let __%d o =
   let arity = function_length o in
   if arity = %d then o

scripts/ninja.js

@@ -879,7 +879,7 @@ async function runtimeNinja(devmode = true) {
     : "release.ninja";
   var templateRuntimeRules = `
 ${BSC_COMPILER}
-bsc_no_open_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 -nopervasives  -unsafe -warn-error A -w -40-49-103 -bin-annot
+bsc_no_open_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 -nopervasives  -unsafe -w +50 -warn-error A  -bin-annot
 bsc_flags = $bsc_no_open_flags -open Bs_stdlib_mini
 ${ruleCC(ninjaCwd)}
 ${ninjaQuickBuidList([
@@ -1608,7 +1608,7 @@ function nativeNinja() {
   var templateNative = `
 subninja ${getPreprocessorFileName()}
 rule optc
-    command = $ocamlopt -safe-string -I +compiler-libs -opaque ${includes} -g -w a-50+6-40-30-23 -warn-error +a -absname -c $in
+    command = $ocamlopt -safe-string -I +compiler-libs -opaque ${includes} -g -w a-50+6-40-30-23 -warn-error A -absname -c $in
     description = $out : $in
 rule archive
     command = $ocamlopt -a $in -o $out