Browse Source

* remove number of errors during linking

git-svn-id: trunk@3989 -
peter 19 years ago
parent
commit
283f7ec301
1 changed files with 7 additions and 0 deletions
  1. 7 0
      compiler/pmodules.pas

+ 7 - 0
compiler/pmodules.pas

@@ -1481,6 +1481,13 @@ implementation
                  else
                  else
                    linker.MakeExecutable;
                    linker.MakeExecutable;
                end;
                end;
+
+             { Give Fatal with error count for linker errors }
+             if (Errorcount>0) and not status.skip_error then
+              begin
+                Message1(unit_f_errors_in_unit,tostr(Errorcount));
+                status.skip_error:=true;
+              end;
           end;
           end;
       end;
       end;