From 507da49bf038e7dd8c09766477d1d9fc2328d82a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 17 Mar 2019 20:50:37 +0000
Subject: [PATCH] codetools: fixed mem leak FPM.UnitToSrc

git-svn-id: trunk@60711 -
---
 components/codetools/definetemplates.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas
index aa74a6c03f..f543225dca 100644
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@@ -2089,6 +2089,7 @@ begin
 
         if FPMSourcePath<>'' then begin
           //debugln(['GatherUnitsInFPMSources ',FPMFilename,' ',FPMSourcePath]);
+          FreeAndNil(FPM.UnitToSrc);
           FPM.UnitToSrc:=GatherUnitSourcesInDirectory(FPMSourcePath,3);
         end;
       end;
@@ -8144,7 +8145,7 @@ begin
   FreeAndNil(Units);
   FreeAndNil(Includes);
   FreeAndNil(UnitToFPM);
-  FreeAndNil(FPMNameToFPM);
+  FreeAndNil(FPMNameToFPM); // this frees the FPMs
 end;
 
 function TPCTargetConfigCache.Equals(Item: TPCTargetConfigCache;