From a254f34a2606fa1c67f42df35bae1ee7c7958c9e Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 31 Jan 2014 17:29:08 +0000
Subject: [PATCH] IDE: In All Compiler Options, improve the order of generated
 options when original data was on the same line.

git-svn-id: trunk@43860 -
---
 ide/compiler.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ide/compiler.pp b/ide/compiler.pp
index a1a5d7a590..b0533d0c1c 100644
--- a/ide/compiler.pp
+++ b/ide/compiler.pp
@@ -1198,6 +1198,7 @@ var
   sl: TStringList;
 begin
   Result := mrOK;
+  fCurOrigLine := 0;
   fRootOptGroup.DeselectAll;
   fDefines.Clear;
   fInvalidOptions.Clear;
@@ -1206,7 +1207,6 @@ begin
     // Separate options that are on one line.
     for i := 0 to aStrings.Count-1 do
     begin
-      fCurOrigLine := i;
       s := Trim(aStrings[i]);
       if s = '' then Continue;
       sl.Clear;
@@ -1222,6 +1222,7 @@ begin
         else
           if not fRootOptGroup.SelectOption(s) then
             fInvalidOptions.AddObject(s, TObject(Pointer(i)));
+        Inc(fCurOrigLine);
       end;
     end;
   finally