paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 19:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* missing disposetree added to avoid memory loss

Browse Source
This commit is contained in:
pierre 1999-11-08 16:24:28 +00:00
parent cb390de93b
commit a4926e2d26
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ptconst.pas
View File

@ -642,6 +642,7 @@ unit ptconst;
end end
else else
Message(cg_e_illegal_expression); Message(cg_e_illegal_expression);
disposetree(p);
end; end;
{ reads a typed constant record } { reads a typed constant record }
recorddef: recorddef:
@ -763,7 +764,10 @@ unit ptconst;
end. end.
{ {
$Log$ $Log$
Revision 1.56 1999-11-08 14:02:16 florian Revision 1.57 1999-11-08 16:24:28 pierre
* missing disposetree added to avoid memory loss
Revision 1.56 1999/11/08 14:02:16 florian
* problem with "index X"-properties solved * problem with "index X"-properties solved
* typed constants of class references are now allowed * typed constants of class references are now allowed