From f1bd686065a6147f1f048a68e0da0fd968125ff9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 14 Mar 2008 20:37:44 +0000
Subject: [PATCH]   * re-applied r7485, which got lost in r7639 because an old 
    revision (r6623) of the file was renamed to cfileutl     (mantis #10873)

git-svn-id: trunk@10488 -
---
 compiler/cfileutl.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index 6ba6f289e5..4085729d2b 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -254,6 +254,10 @@ implementation
                  ((dir.Name<>'.') and
                   (dir.Name<>'..')) then
                 begin
+                  { Force Archive bit so the attribute always has a value. This is needed
+                    to be able to see the difference in the directoryentries lookup if a file
+                    exists or not }
+                  Dir.Attr:=Dir.Attr or faArchive;
                   if not(tf_files_case_sensitive in source_info.flags) then
                     if (tf_files_case_aware in source_info.flags) then
                       begin