make vendored code warning free

Author: bobzhang

odoc_gen/generator.ml

@@ -525,7 +525,7 @@ struct
               [] -> ()
             | e :: _ ->
                 let s =
-                  match (Char.uppercase (Name.simple (name e)).[0]) with
+                  match (Char.uppercase_ascii (Name.simple (name e)).[0]) with
                     'A'..'Z' as c -> String.make 1 c
                   | _ -> ""
                 in

vendor/cppo/cppo_bin.ml

@@ -1,3 +1,4 @@
+[@@@warning "a"]
 module Cppo_command : sig 
 #1 "cppo_command.mli"
 type command_token =