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

* fixed 64-bit size of findmatch. (mantis 13504) Tested with $12000001 bytes large file, matched to the byte.

Browse Source 
git-svn-id: trunk@13014 -
This commit is contained in:
marco 2009-04-16 05:38:00 +00:00
parent 1ff5458a91
commit 97093e4f2b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/sysutils.pp
View File

@ -380,7 +380,7 @@ begin
end; end;
{ Convert some attributes back } { Convert some attributes back }
WinToDosTime(F.FindData.ftLastWriteTime,F.Time); WinToDosTime(F.FindData.ftLastWriteTime,F.Time);
f.size:=F.FindData.NFileSizeLow; f.size:=F.FindData.NFileSizeLow+(qword(maxdword)+1)*F.FindData.NFileSizeHigh;
f.attr:=F.FindData.dwFileAttributes; f.attr:=F.FindData.dwFileAttributes;
f.Name:=StrPas(@F.FindData.cFileName[0]); f.Name:=StrPas(@F.FindData.cFileName[0]);
Result:=0; Result:=0;