Merged revisions 10488 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r10488 | jonas | 2008-03-14 21:37:44 +0100 (Fri, 14 Mar 2008) | 4 lines

  * 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: branches/fixes_2_2@10489 -

compiler/cfileutils.pas

@@ -220,6 +220,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