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

* 64bit compile fix

Browse Source 
git-svn-id: trunk@5118 -
This commit is contained in:
peter 2006-10-31 12:15:03 +00:00
parent d21842fe61
commit 4700eee7cf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cfileutils.pas
View File

@ -153,9 +153,9 @@ implementation
(dir.Name<>'..') then (dir.Name<>'..') then
begin begin
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(Dir.Attr)) DirectoryEntries.Add(Lower(Dir.Name),Pointer(Ptrint(Dir.Attr)))
else else
DirectoryEntries.Add(Dir.Name,Pointer(Dir.Attr)); DirectoryEntries.Add(Dir.Name,Pointer(Ptrint(Dir.Attr)));
end; end;
until findnext(dir) <> 0; until findnext(dir) <> 0;
end; end;