From d648f9c796d3f16b9ad7aec22215d775862f7c3e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 25 Aug 1998 16:44:16 +0000
Subject: [PATCH]   * openppu was true even if the object file is missing    
 this lead to trying to open a filename without extension     and prevented
 the 'make cycle' to work for win32

---
 compiler/files.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/files.pas b/compiler/files.pas
index 34456b59dc..b238a30aa4 100644
--- a/compiler/files.pas
+++ b/compiler/files.pas
@@ -421,11 +421,13 @@ unit files;
                   begin
                     Message(unit_d_obj_and_asm_are_older_than_ppu);
                     do_compile:=true;
+                    { we should try to get the source file }
+                    exit;
                   end
                  else
                   begin
                     Message(unit_d_obj_is_older_than_asm);
-                    do_assemble:=true;
+                    exit;
                   end;
                end;
             end;
@@ -642,7 +644,12 @@ unit files;
 end.
 {
   $Log$
-  Revision 1.38  1998-08-19 10:06:12  peter
+  Revision 1.39  1998-08-25 16:44:16  pierre
+    * openppu was true even if the object file is missing
+      this lead to trying to open a filename without extension
+      and prevented the 'make cycle' to work for win32
+
+  Revision 1.38  1998/08/19 10:06:12  peter
     * fixed filenames and removedir which supports slash at the end
 
   Revision 1.37  1998/08/18 20:52:19  peter