From 79866f9824793143d971d3e71d4f9f59507ad51c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 30 Oct 2015 15:12:37 +0000
Subject: [PATCH] * free a bunch of extra data after a unit is compiled, as
it is no longer needed
git-svn-id: trunk@32203 -
---
compiler/fmodule.pas | 32 ++++++++++++++++++++++++++++++++
1 file changed, 32 insertions(+)
diff --git a/compiler/fmodule.pas b/compiler/fmodule.pas
index eb614e7ec6..ac1316eebb 100644
--- a/compiler/fmodule.pas
+++ b/compiler/fmodule.pas
@@ -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;