From 1cd3fb9f4caddc32438cd56bd7812394a6e5e347 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 4 May 2000 20:43:33 +0000
Subject: [PATCH]   * don't write rst files if errors found

---
 compiler/pmodules.pas | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index 97e937a4ca..4506eb8380 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -1286,11 +1286,13 @@ unit pmodules;
          consume(_POINT);
 
          If ResourceStringList<>Nil then
-           begin
-           insertresourcestrings;
-           current_module^.flags:=current_module^.flags or uf_has_resources;
-           WriteResourceFile(Current_module^.ModuleName^);
-           end;
+          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;
 
          { avoid self recursive destructor call !! PM }
          aktprocsym^.definition^.localst:=nil;
@@ -1582,10 +1584,12 @@ unit pmodules;
          current_module^.localsymtable:=nil;
 
          If ResourceStringList<>Nil then
-           begin
-           insertresourcestrings;
-           WriteResourceFile(Current_module^.ModuleName^);
-           end;
+          begin
+            insertresourcestrings;
+            { only write if no errors found }
+            if (Errorcount=0) then
+             WriteResourceFile(Current_module^.ModuleName^);
+          end;
 
          codegen_doneprocedure;
 
@@ -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
 
@@ -1799,4 +1806,4 @@ end.
     * Pavel's changes for reloc section in executable
     + warning that -g needs -WN under win32
 
-}
\ No newline at end of file
+}