paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 09:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* re-applied r7485, which got lost in r7639 because an old

Browse Source 
revision (r6623) of the file was renamed to cfileutl
    (mantis #10873)

git-svn-id: trunk@10488 -
This commit is contained in:
Jonas Maebe 2008-03-14 20:37:44 +00:00
parent 4a7f6bccf9
commit f1bd686065
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cfileutl.pas
View File

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