Преглед на файлове

* remove number of errors during linking

git-svn-id: trunk@3989 -
peter преди 19 години
родител
ревизия
283f7ec301
променени са 1 файла, в които са добавени 7 реда и са изтрити 0 реда
  1. 7 0
      compiler/pmodules.pas

+ 7 - 0
compiler/pmodules.pas

@@ -1481,6 +1481,13 @@ implementation
                  else
                    linker.MakeExecutable;
                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;