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

* Fixed memory leak

Browse Source
This commit is contained in:
daniel 2004-02-22 13:01:15 +00:00
parent 00dbe6655d
commit c57e542a81
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgcal.pas
View File

@ -1091,6 +1091,7 @@ implementation
current_procinfo:=cprocinfo.create(nil); current_procinfo:=cprocinfo.create(nil);
current_procinfo.procdef:=tprocdef(procdefinition); current_procinfo.procdef:=tprocdef(procdefinition);
current_procinfo.flags:=oldprocinfo.flags; current_procinfo.flags:=oldprocinfo.flags;
current_procinfo.aktlocaldata.destroy;
current_procinfo.aktlocaldata:=oldprocinfo.aktlocaldata; current_procinfo.aktlocaldata:=oldprocinfo.aktlocaldata;
{ when the oldprocinfo is also being inlined reuse the { when the oldprocinfo is also being inlined reuse the
@ -1214,7 +1215,7 @@ implementation
{ restore } { restore }
current_procinfo.aktlocaldata:=nil; current_procinfo.aktlocaldata:=nil;
current_procinfo.free; current_procinfo.destroy;
current_procinfo:=oldprocinfo; current_procinfo:=oldprocinfo;
inlining_procedure:=oldinlining_procedure; inlining_procedure:=oldinlining_procedure;
end; end;
@ -1235,7 +1236,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.157 2004-02-22 12:04:04 florian Revision 1.158 2004-02-22 13:01:15 daniel
* Fixed memory leak
Revision 1.157 2004/02/22 12:04:04 florian
+ nx86set added + nx86set added
* some more x86-64 fixes * some more x86-64 fixes