···154154155155let syntax_highlighting_locs src =
156156 try
157157+ Lexer.init ();
157158 let lexbuf = Lexing.from_string
158159 #if OCAML_VERSION >= (4,8,0)
159160 ~with_positions:true
···175176 collect lexbuf
176177 with e ->
177178 Format.eprintf "Error during syntax highlighting: %s\n%!" (Printexc.to_string e);
178178- []179179+ []
+3-7
test/generators/cases/alerts.mli
···1717(* At the top-level of a module. *)
18181919module Top1 : sig
2020- [@@@deprecated "A"]
21202222- (** Top-comment. *)
2323-end
2424-2525-module Top2 : sig
2626- [@@@deprecated "A"]
2727-2121+ (* On OCaml 4.04 to 4.06, this top-comment is lost by the parser if there's
2222+ no empty line before it. *)
2823 (** Top-comment. *)
2924end
2525+[@@deprecated "A"]
30263127(* Deprecated alert tag. *)
3228