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

* don't call DoneDebugInfo twice in tmodule.reset

Browse Source 
* call DoneDebugInfo in tmodule.destroy (fixes all remaining dwarf
    memory leaks)

git-svn-id: trunk@9526 -
This commit is contained in:
Jonas Maebe 2007-12-25 23:46:30 +00:00
parent 9a614617e4
commit d740304b77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fmodule.pas
View File

@ -553,6 +553,7 @@ implementation
procinfo:=hpi; procinfo:=hpi;
end; end;
end; end;
DoneDebugInfo(self);
used_units.free; used_units.free;
dependent_units.free; dependent_units.free;
resourcefiles.Free; resourcefiles.Free;
@ -682,7 +683,6 @@ implementation
sourcefiles.free; sourcefiles.free;
sourcefiles:=tinputfilemanager.create; sourcefiles:=tinputfilemanager.create;
asmdata:=TAsmData.create(realmodulename^); asmdata:=TAsmData.create(realmodulename^);
DoneDebugInfo(self);
InitDebugInfo(self); InitDebugInfo(self);
_exports.free; _exports.free;
_exports:=tlinkedlist.create; _exports:=tlinkedlist.create;