Increase status.errorcount only inside GenerateError procedure, to simplify debugging

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@23398 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 1 deletions

diff --git a/compiler/comphook.pas b/compiler/comphook.pas
index b7183d6a13..1bbcb8df13 100644
--- a/compiler/comphook.pas
+++ b/compiler/comphook.pas
@@ -79,7 +79,10 @@ type
     currentmodulestate : string[20];
   { Total Status }
     compiledlines : longint;  { the number of lines which are compiled }
-    errorcount,
+    errorcount,               { this field should never be increased directly,
+                                use Verbose.GenerateError procedure to do this,
+                                this allows easier error catching using GDB by
+                                adding a single breakpoint at this procedure }
     countWarnings,
     countNotes,
     countHints    : longint;  { number of found errors/warnings/notes/hints }