Commits

camlspotter committed c5d5107

removing Warnings

  • Participants
  • Parent commits 214e717

Comments (0)

Files changed (3)

 FILES[] =
     misc
     linenum
-    warnings
     location
     pos
     parser
 
   | 23 ->
 # 328 "lexer.mll"
-      ( let loc = Location.curr lexbuf in
-        Location.prerr_warning loc Warnings.Comment_start;
+      ( (* let loc = Location.curr lexbuf in
+           Location.prerr_warning loc Warnings.Comment_start; *)
         comment_start_loc := [Location.curr lexbuf];
         comment lexbuf;
         (* token lexbuf *)
 
   | 24 ->
 # 335 "lexer.mll"
-      ( let loc = Location.curr lexbuf in
-        Location.prerr_warning loc Warnings.Comment_not_end;
+      ( (* let loc = Location.curr lexbuf in
+           Location.prerr_warning loc Warnings.Comment_not_end; *)
         lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_curr_pos - 1;
         let curpos = lexbuf.lex_curr_p in
         lexbuf.lex_curr_p <- { curpos with pos_cnum = curpos.pos_cnum - 1 };
           raise (Error (Illegal_escape (Lexing.lexeme lexbuf),
                         Location.curr lexbuf))
 *)
-          let loc = Location.curr lexbuf in
-          Location.prerr_warning loc Warnings.Illegal_backslash;
+          (* let loc = Location.curr lexbuf in
+             Location.prerr_warning loc Warnings.Illegal_backslash; *)
           store_string_char (Lexing.lexeme_char lexbuf 0);
           store_string_char (Lexing.lexeme_char lexbuf 1);
           string lexbuf
 
   | 6 ->
 # 494 "lexer.mll"
-      ( if not (in_comment ()) then
-          Location.prerr_warning (Location.curr lexbuf) Warnings.Eol_in_string;
+      ( (* if not (in_comment ()) then
+           Location.prerr_warning (Location.curr lexbuf) Warnings.Eol_in_string; *)
         update_loc lexbuf None 1 false 0;
         let s = Lexing.lexeme lexbuf in
         for i = 0 to String.length s - 1 do

File location.mli

 val print: formatter -> t -> unit
 val print_error: formatter -> t -> unit
 val print_error_cur_file: formatter -> unit
+(*
 val print_warning: t -> formatter -> Warnings.t -> unit
 val prerr_warning: t -> Warnings.t -> unit
+*)
 val echo_eof: unit -> unit
 (* val reset: unit -> unit *)