File tree Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -225,7 +225,7 @@ let cleanFileName str =
225225
226226let readingFromStdin = ref false
227227
228- let startParsing ?(useBasename =true ) (fname : string ) =
228+ let startParsing ?(useBasename =false ) (fname : string ) =
229229 (* We only support one open file at a time *)
230230 if ! current != dummyinfo then begin
231231 s (error " Errormsg.startParsing supports only one open file: You want to open %s and %s is still open\n " fname ! current.fileName);
Original file line number Diff line number Diff line change @@ -161,8 +161,8 @@ val locUnknown: location
161161val readingFromStdin : bool ref
162162
163163
164- (* Call this function to start parsing. useBasename is by default "true ",
165- meaning that the error information maintains only the basename . If the
164+ (* Call this function to start parsing. useBasename is by default "false ",
165+ meaning that the error information maintains the full filename . If the
166166 file name is - then it reads from stdin. *)
167167val startParsing : ?useBasename : bool -> string ->
168168 Lexing .lexbuf
You can’t perform that action at this time.
0 commit comments