paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 08:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* force Archvie bit for file to get a difference if a fileexists or not

Browse Source 
git-svn-id: trunk@7485 -
This commit is contained in:
peter 2007-05-27 10:50:51 +00:00
parent fa5e232055
commit 2e55b74a87
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cfileutils.pas
View File

@ -153,6 +153,10 @@ implementation
(dir.Name<>'.') or (dir.Name<>'.') or
(dir.Name<>'..') then (dir.Name<>'..') then
begin 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 not(tf_files_case_sensitive in source_info.flags) then
DirectoryEntries.Add(Lower(Dir.Name),Pointer(Ptrint(Dir.Attr))) DirectoryEntries.Add(Lower(Dir.Name),Pointer(Ptrint(Dir.Attr)))
else else