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

* Merging revisions 342 from trunk:

Browse Source 
------------------------------------------------------------------------
    r342 | mattias | 2019-03-04 14:52:35 +0100 (Mon, 04 Mar 2019) | 1 line
    
    rtl: less hints
    ------------------------------------------------------------------------
This commit is contained in:
michael 2019-04-04 18:30:50 +00:00
parent d2f37d31a3
commit 74a7874b96
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/rtl/contnrs.pas
View File

@ -1819,7 +1819,7 @@ end;
Function TBucketList.BucketFor(AItem: JSValue): Integer;
begin
// JSValues on average have a granularity of 4
Result:=(PtrInt(AItem) shr 2) and FBucketMask;
Result:=(longword(AItem) shr 2) and FBucketMask;
end;
constructor TBucketList.Create(ABuckets: TBucketListSizes);