From cbd3930dc47f9dfbfb586279fb38258f69fba6f5 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 23 Apr 2013 19:28:17 +0000
Subject: [PATCH] Packager: Prevent "List index out of bounds" error when
 restoring previously deleted item. Issue #24313, patch from Cyrax

git-svn-id: trunk@40883 -
---
 packager/packagedefs.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/packager/packagedefs.pas b/packager/packagedefs.pas
index 7755939ab6..9314b798d1 100644
--- a/packager/packagedefs.pas
+++ b/packager/packagedefs.pas
@@ -2304,7 +2304,10 @@ end;
 
 function TLazPackage.GetRemovedFiles(Index: integer): TPkgFile;
 begin
-  Result:=TPkgFile(FRemovedFiles[Index]);
+  If (Index >= 0) And (Index < FRemovedFiles.Count) Then
+    Result:=TPkgFile(FRemovedFiles[Index])
+  Else
+    Result := NIL;
 end;
 
 function TLazPackage.GetFileCount: integer;