From 439347c67be2ac8e95fb8bad7aaf1b2b03e43ae0 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 30 Mar 2012 01:28:01 +0000
Subject: [PATCH] lazutils: use Int64 instead of LongInt for BlockRead
 operations result

git-svn-id: trunk@36436 -
---
 components/lazutils/laz_xmlread.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/lazutils/laz_xmlread.pas b/components/lazutils/laz_xmlread.pas
index 83aa5a53c1..28a1d98073 100644
--- a/components/lazutils/laz_xmlread.pas
+++ b/components/lazutils/laz_xmlread.pas
@@ -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;