Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

nouveaux warnings 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6924 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2005-06-22 13:52:36 +00:00
parent be2320a1fd
commit 7ccab6d02a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/lexer299.mll
View File

@ -326,9 +326,8 @@ rule token = parse
{ let loc = { Location.loc_start = Lexing.lexeme_start_p lexbuf;
Location.loc_end = Lexing.lexeme_end_p lexbuf;
Location.loc_ghost = false }
and warn = Warnings.Comment "the start of a comment"
in
Location.prerr_warning loc warn;
Location.prerr_warning loc (Warnings.Comment_start);
comment_start_pos := [Lexing.lexeme_start lexbuf];
comment lexbuf;
token lexbuf
@ -337,9 +336,8 @@ rule token = parse
{ let loc = { Location.loc_start = Lexing.lexeme_start_p lexbuf;
Location.loc_end = Lexing.lexeme_end_p lexbuf;
Location.loc_ghost = false }
and warn = Warnings.Comment "not the end of a comment"
in
Location.prerr_warning loc warn;
Location.prerr_warning loc Warnings.Comment_not_end;
lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_curr_pos - 1;
STAR
}