diff options
Diffstat (limited to 'compiler/cclasses.pas')
-rw-r--r-- | compiler/cclasses.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas index c987958387..a86e33ecac 100644 --- a/compiler/cclasses.pas +++ b/compiler/cclasses.pas @@ -1919,14 +1919,14 @@ end; procedure TLinkedList.clear; var - NewNode : TLinkedListItem; + NewNode, Next : TLinkedListItem; begin NewNode:=FFirst; while assigned(NewNode) do begin - FFirst:=NewNode.Next; + Next:=NewNode.Next; NewNode.Free; - NewNode:=FFirst; + NewNode:=Next; end; FLast:=nil; FFirst:=nil; |