浏览代码

* More uniform error message

git-svn-id: trunk@36924 -
michael 8 年之前
父节点
当前提交
c929e0285b
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      utils/fpdoc/mkfpdoc.pp

+ 5 - 2
utils/fpdoc/mkfpdoc.pp

@@ -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