paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't write rst files if errors found

Browse Source
This commit is contained in:
peter 2000-05-04 20:43:33 +00:00
parent bab6ab93b6
commit 1cd3fb9f4c
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pmodules.pas
View File

@ -1289,6 +1289,8 @@ unit pmodules;
begin
insertresourcestrings;
current_module^.flags:=current_module^.flags or uf_has_resources;
{ only write if no errors found }
if (Errorcount=0) then
WriteResourceFile(Current_module^.ModuleName^);
end;
@ -1584,6 +1586,8 @@ unit pmodules;
If ResourceStringList<>Nil then
begin
insertresourcestrings;
{ only write if no errors found }
if (Errorcount=0) then
WriteResourceFile(Current_module^.ModuleName^);
end;
@ -1700,7 +1704,10 @@ unit pmodules;
end.
{
$Log$
Revision 1.192 2000-05-03 14:39:51 pierre
Revision 1.193 2000-05-04 20:43:33 peter
* don't write rst files if errors found
Revision 1.192 2000/05/03 14:39:51 pierre
* Use RestoreUnitsSyms to avoid wrong hints about unused units
* Avoid hints about unsused units if thet have a init or finalize code