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

* fix heap leaks

Browse Source
This commit is contained in:
carl 2002-10-05 15:18:42 +00:00
parent ebbf4d8d14
commit d170f6625f
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgutil.pas
View File

@ -1209,7 +1209,8 @@ implementation
paraloc : tparalocation;
begin
stackalloclist:=taasmoutput.Create;
if not inlined then
stackalloclist:=taasmoutput.Create;
{ the actual stack allocation code, symbol entry point and
gdb stabs information is generated AFTER the rest of this
@ -1483,7 +1484,7 @@ implementation
cg.g_stackcheck(stackalloclist,stackframe);
end;
list.insertlist(stackalloclist);
{ stackalloclist.free;}
stackalloclist.free;
end;
{************************* End Stack allocation **************************}
end;
@ -1853,7 +1854,10 @@ implementation
end.
{
$Log$
Revision 1.52 2002-09-30 07:00:46 florian
Revision 1.53 2002-10-05 15:18:42 carl
* fix heap leaks
Revision 1.52 2002/09/30 07:00:46 florian
* fixes to common code to get the alpha compiler compiled applied
Revision 1.51 2002/09/22 14:02:35 carl

7
compiler/pdecvar.pas
View File

@ -569,12 +569,17 @@ implementation
end;
block_type:=old_block_type;
current_object_option:=old_current_object_option;
{ free the list }
sc.free;
end;
end.
{
$Log$
Revision 1.36 2002-10-05 12:43:26 carl
Revision 1.37 2002-10-05 15:18:43 carl
* fix heap leaks
Revision 1.36 2002/10/05 12:43:26 carl
* fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi)