paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 13:10:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix memleak with top_local

Browse Source
This commit is contained in:
peter 2004-03-14 22:47:56 +00:00
parent 96f3186e09
commit a627c15298
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/aasmtai.pas
View File

@ -1617,17 +1617,7 @@ implementation
begin begin
for i:=0 to opercnt-1 do for i:=0 to opercnt-1 do
begin begin
with oper[i]^ do clearop(i);
begin
case typ of
top_ref:
dispose(ref);
{$ifdef ARM}
top_shifterop:
dispose(shifterop);
{$endif ARM}
end;
end;
dispose(oper[i]); dispose(oper[i]);
end; end;
inherited destroy; inherited destroy;
@ -2002,7 +1992,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.77 2004-03-14 20:10:56 peter Revision 1.78 2004-03-14 22:47:56 peter
* fix memleak with top_local
Revision 1.77 2004/03/14 20:10:56 peter
* disable some debuginfo info when valgrind support is used * disable some debuginfo info when valgrind support is used
Revision 1.76 2004/03/02 17:32:12 florian Revision 1.76 2004/03/02 17:32:12 florian