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

* Added a typecast to avoid range error in 64-bit debug builds

Browse Source 
git-svn-id: trunk@20596 -
This commit is contained in:
sergei 2012-03-23 13:48:34 +00:00
parent 86bf5f36ba
commit 3d1b4b1b63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-xml/src/xmlutils.pp
View File

@ -693,7 +693,7 @@ var
idx: Integer; idx: Integer;
HashValue: LongWord; HashValue: LongWord;
begin begin
HashValue := Hash(PtrUInt(uri), localName, localLength); HashValue := Hash(LongWord(PtrUInt(uri)), localName, localLength);
mask := (1 shl FSizeLog) - 1; mask := (1 shl FSizeLog) - 1;
step := (HashValue and (not mask)) shr (FSizeLog-1) and (mask shr 2) or 1; step := (HashValue and (not mask)) shr (FSizeLog-1) and (mask shr 2) or 1;