Kaynağa Gözat

* More uniform error message

git-svn-id: trunk@36924 -
michael 8 yıl önce
ebeveyn
işleme
c929e0285b
1 değiştirilmiş dosya ile 5 ekleme ve 2 silme
  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);
           end;
       except
-        on e: EParserError do
+        on E: EParserError do
           If Options.StopOnParseError then
             Raise
           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;
     if Not ParseOnly then
       begin