From 3d1b4b1b63571c618787158c75a8557593be9053 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Fri, 23 Mar 2012 13:48:34 +0000
Subject: [PATCH] * Added a typecast to avoid range error in 64-bit debug
 builds

git-svn-id: trunk@20596 -
---
 packages/fcl-xml/src/xmlutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-xml/src/xmlutils.pp b/packages/fcl-xml/src/xmlutils.pp
index b59b6316b1..d3b9b7bc44 100644
--- a/packages/fcl-xml/src/xmlutils.pp
+++ b/packages/fcl-xml/src/xmlutils.pp
@@ -693,7 +693,7 @@ var
   idx: Integer;
   HashValue: LongWord;
 begin
-  HashValue := Hash(PtrUInt(uri), localName, localLength);
+  HashValue := Hash(LongWord(PtrUInt(uri)), localName, localLength);
 
   mask := (1 shl FSizeLog) - 1;
   step := (HashValue and (not mask)) shr (FSizeLog-1) and (mask shr 2) or 1;