From 9e7a4be0abb6f29cfe9278a660872c5a25f09ede Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 13 Jul 2013 12:43:36 +0000
Subject: [PATCH] IDE: fixed uninitialized var

git-svn-id: trunk@42075 -
---
 ide/compiler.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/compiler.pp b/ide/compiler.pp
index f0238c31ce..1de16fd954 100644
--- a/ide/compiler.pp
+++ b/ide/compiler.pp
@@ -110,7 +110,6 @@ type
   private
     fOption: string;                    // Option without the leading '-'
     fEditKind: TCompilerOptEditKind;
-    fSelections: TStringList;           // Used if EditKind = oeList
     fDescription: string;
     fIndentation: integer;              // Indentation level in "fpc -h" output.
     procedure ParseOption(aDescr: string; aIndent: integer);
@@ -482,6 +481,7 @@ var
   Opt1, Opt2: string;
   i: Integer;
 begin
+  Result:=-1;
   Opt1 := Copy(aDescr, aIndent+1, Length(aDescr));
   if AnsiStartsStr('<n>', Opt1) then
     fAllowNum := True             // Number will be added to GUI later
@@ -498,7 +498,7 @@ begin
     if Opt1 <> '' then    // Can be empty when line in help output is split.
       fOptionSet.Add(Opt1);
     if Opt2 <> '' then
-      fOptionSet.Add(Opt2);
+      Result:=fOptionSet.Add(Opt2);
   end;
 end;