* prefetch next items in TLinkedList.clear, removes most l2 cache misses

git-svn-id: trunk@13706 -
This commit is contained in:
Jonas Maebe 2009-09-13 15:30:53 +00:00
parent abda06eb20
commit dac2903107

View File

@ -2014,6 +2014,7 @@ end;
while assigned(NewNode) do
begin
Next:=NewNode.Next;
prefetch(next.next);
NewNode.Free;
NewNode:=Next;
end;