* 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

@@ -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