paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:11:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More uniform error message

Browse Source 
git-svn-id: trunk@36924 -
This commit is contained in:
michael 2017-08-16 08:47:49 +00:00
parent 2ac3610048
commit c929e0285b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/fpdoc/mkfpdoc.pp
View File

@ -277,11 +277,14 @@ begin
ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget); ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget);
end; end;
except except
on e: EParserError do on E: EParserError do
If Options.StopOnParseError then If Options.StopOnParseError then
Raise Raise
else else
DoLog('%s(%d,%d): %s',[e.Filename, e.Row, e.Column, e.Message]); begin
DoLog('Error: %s(%d,%d): %s',[E.Filename, E.Row, E.Column, E.Message]);
DoLog('Ignoring error, continuing with next unit (if any).');
end;
end; end;
if Not ParseOnly then if Not ParseOnly then
begin begin