paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 12:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* free a bunch of extra data after a unit is compiled, as it is no longer

Browse Source 
needed

git-svn-id: trunk@32203 -
This commit is contained in:
Jonas Maebe 2015-10-30 15:12:37 +00:00
parent 4decb81ac4
commit 79866f9824
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/fmodule.pas
View File

@ -1038,6 +1038,38 @@ implementation
macrosymtablestack.free;
macrosymtablestack:=nil;
end;
extendeddefs.free;
extendeddefs:=nil;
genericdummysyms.free;
genericdummysyms:=nil;
waitingforunit.free;
waitingforunit:=nil;
localmacrosymtable.free;
localmacrosymtable:=nil;
ptrdefs.free;
ptrdefs:=nil;
arraydefs.free;
arraydefs:=nil;
procaddrdefs.free;
procaddrdefs:=nil;
{$ifdef llvm}
llvmdefs.free;
llvmdefs:=nil;
{$endif llvm}
checkforwarddefs.free;
checkforwarddefs:=nil;
tcinitcode.free;
tcinitcode:=nil;
localunitsearchpath.free;
localunitsearchpath:=nil;
localobjectsearchpath.free;
localobjectsearchpath:=nil;
localincludesearchpath.free;
localincludesearchpath:=nil;
locallibrarysearchpath.free;
locallibrarysearchpath:=nil;
localframeworksearchpath.free;
localframeworksearchpath:=nil;
end;