paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-20 11:59:02 +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); Procedure TFPCustomHashTable.ChangeTableSize(const ANewSize: Longword);
var var
SavedTable: TFPObjectList; SavedTable, List: TFPObjectList;
SavedTableSize: Longword; SavedTableSize: Longword;
i, j: Longword; i, j: Longword;
temp: THTCustomNode; temp: THTCustomNode;
@ -1175,15 +1175,15 @@ begin
InitializeHashTable; InitializeHashTable;
if SavedTableSize>0 Then if SavedTableSize>0 Then
for i:=0 to SavedTableSize-1 do for i:=0 to SavedTableSize-1 do
if Assigned(SavedTable[i]) then begin
for j:=0 to TFPObjectList(SavedTable[i]).Count -1 do List:=TFPObjectList(SavedTable[i]);
if Assigned(List) then
for j:=0 to List.Count -1 do
begin begin
temp:=THTCustomNode(List[j]);
if TFPObjectList(SavedTable[i])[j]=nil then ;
temp:=THTCustomNode(TFPObjectList(SavedTable[i])[j]);
AddNode(temp); AddNode(temp);
end; end;
end;
SavedTable.Free; SavedTable.Free;
end; end;