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

rtl: shortened TFPCustomHashTable.ChangeTableSize

Browse Source
This commit is contained in:
mattias 2018-05-02 07:34:25 +00:00
parent 38ebbaabed
commit d03983b70e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/contnrs.pas
View File

@ -1163,7 +1163,7 @@ end;
Procedure TFPCustomHashTable.ChangeTableSize(const ANewSize: Longword);
var
SavedTable: TFPObjectList;
SavedTable, List: TFPObjectList;
SavedTableSize: Longword;
i, j: Longword;
temp: THTCustomNode;
@ -1175,15 +1175,15 @@ begin
InitializeHashTable;
if SavedTableSize>0 Then
for i:=0 to SavedTableSize-1 do
if Assigned(SavedTable[i]) then
for j:=0 to TFPObjectList(SavedTable[i]).Count -1 do
begin
List:=TFPObjectList(SavedTable[i]);
if Assigned(List) then
for j:=0 to List.Count -1 do
begin
if TFPObjectList(SavedTable[i])[j]=nil then ;
temp:=THTCustomNode(TFPObjectList(SavedTable[i])[j]);
temp:=THTCustomNode(List[j]);
AddNode(temp);
end;
end;
SavedTable.Free;
end;