paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 09:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix disposenode bug.

Browse Source 
git-svn-id: trunk@3838 -
This commit is contained in:
daniel 2006-06-11 06:24:01 +00:00
parent 9a3335e194
commit 42b9201728
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fv/outline.pas
View File

@ -98,13 +98,16 @@ end;
procedure disposenode(node:Pnode);
var next:Pnode;
begin
while node<>nil do
begin
disposenode(node^.childlist);
disposestr(node^.text);
next:=node^.next;
dispose(node);
node:=node^.next;
node:=next;
end;
end;