paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 01:29:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

* in some cases a writeln of temp. ansistrings cause a memory leak, fixed

Browse Source
This commit is contained in:
florian 1999-02-05 10:56:19 +00:00
parent 9709b802ba
commit 9bcf29803e
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cg386inl.pas
View File

@ -556,6 +556,8 @@ implementation
hregister : tregister;
otlabel,oflabel : plabel;
oldpushedparasize : longint;
oldrl : plinkedlist;
begin
{ save & reset pushedparasize }
oldpushedparasize:=pushedparasize;
@ -1001,14 +1003,20 @@ implementation
end;
else internalerror(9);
end;
{ reset pushedparasize }
{ remove temp. objects, we don't generate them here }
removetemps(exprasmlist,temptoremove);
temptoremove^.clear;
{ reset pushedparasize }
pushedparasize:=oldpushedparasize;
end;
end.
{
$Log$
Revision 1.24 1999-01-21 22:10:39 peter
Revision 1.25 1999-02-05 10:56:19 florian
* in some cases a writeln of temp. ansistrings cause a memory leak, fixed
Revision 1.24 1999/01/21 22:10:39 peter
* fixed array of const
* generic platform independent high() support