From 1c8d3ab9b07bcd8f1939418c3165cf1a9f9bdfc2 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 13 Apr 2009 13:12:27 +0000
Subject: [PATCH] ide: fix memory leak if lpi contains duplicates for units and
 show unit dialog was shown

git-svn-id: trunk@19408 -
---
 ide/main.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index 1cfe0ee04c..c3ef16427a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -7757,9 +7757,9 @@ begin
       if (Project1.Units[i].FileName <> '') then
       begin
         UnitName := ExtractFileName(Project1.Units[i].Filename);
-        ItemList.AddObject(UnitName,
-          TViewUnitsEntry.Create(UnitName, i,
-                                 Project1.Units[i] = ActiveUnitInfo));
+        if ItemList.IndexOf(UnitName) = -1 then
+          ItemList.AddObject(UnitName,
+            TViewUnitsEntry.Create(UnitName, i, Project1.Units[i] = ActiveUnitInfo));
       end
       else
       if Project1.MainUnitID = i then
@@ -7768,7 +7768,7 @@ begin
         if pfMainUnitIsPascalSource in Project1.Flags then
         begin
           UnitName := ExtractFileName(MainUnitInfo.Filename);
-          if UnitName <> '' then
+          if (UnitName <> '') and (ItemList.IndexOf(UnitName) = -1) then
           begin
             ItemList.AddObject(UnitName,
               TViewUnitsEntry.Create(UnitName, i, MainUnitInfo = ActiveUnitInfo));