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

lazutils: use Int64 instead of LongInt for BlockRead operations result

Browse Source 
git-svn-id: trunk@36436 -
This commit is contained in:
paul 2012-03-30 01:28:01 +00:00
parent a17cb11168
commit 439347c67b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/laz_xmlread.pas
View File

@ -1337,7 +1337,7 @@ procedure ReadXMLFile(out ADoc: TXMLDocument; var f: File);
var
reader: TXMLReader;
buf: PChar;
BufSize: LongInt;
BufSize: Int64;
begin
ADoc := nil;
BufSize := FileSize(f) + 1;
@ -1411,7 +1411,7 @@ procedure ReadXMLFragment(AParentNode: TDOMNode; var f: File);
var
Reader: TXMLReader;
buf: PChar;
BufSize: LongInt;
BufSize: Int64;
begin
BufSize := FileSize(f) + 1;
if BufSize <= 1 then
@ -1479,7 +1479,7 @@ procedure ReadDTDFile(var ADoc: TXMLDocument; var f: File);
var
Reader: TXMLReader;
buf: PChar;
BufSize: LongInt;
BufSize: Int64;
begin
ADoc := nil;
BufSize := FileSize(f) + 1;