paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Tnamed_object done also removed left and right

Browse Source
This commit is contained in:
pierre 1999-03-19 16:35:29 +00:00
parent a299ce06e8
commit 0e31a84f5b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cobjects.pas
View File

@ -865,6 +865,10 @@ end;
destructor Tnamed_object.done;
begin
stringdispose(_name);
if assigned(left) then
dispose(left,done);
if assigned(right) then
dispose(right,done);
end;
function Tnamed_object.name:string;
@ -1559,7 +1563,10 @@ end;
end.
{
$Log$
Revision 1.20 1999-03-18 20:30:45 peter
Revision 1.21 1999-03-19 16:35:29 pierre
* Tnamed_object done also removed left and right
Revision 1.20 1999/03/18 20:30:45 peter
+ .a writer
Revision 1.19 1999/03/01 13:32:00 pierre