From d4249c0b3a3ded1e2c29bff503e70bfaf68611be Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 22 Nov 2010 10:33:14 +0000
Subject: [PATCH] LCL: clean up

git-svn-id: trunk@28400 -
---
 converter/convertdelphi.pas | 1 +
 debugger/debugutils.pp      | 2 --
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas
index 59a0e226b7..65258418c4 100644
--- a/converter/convertdelphi.pas
+++ b/converter/convertdelphi.pas
@@ -66,6 +66,7 @@ type
     fConverter: TConvertDelphiPBase;
     fPath: string;
     // These 2 are references to the TConvertDelphiPBase variables.
+    // MG: No, they are not, I will delete them eventually ...
     fCachedUnitNames: TStringToStringTree;
     fCachedRealFileNames: TStringToStringTree;
   protected
diff --git a/debugger/debugutils.pp b/debugger/debugutils.pp
index a411497650..3ce6e5869b 100644
--- a/debugger/debugutils.pp
+++ b/debugger/debugutils.pp
@@ -187,7 +187,6 @@ function UnEscapeOctal(const AValue: String): String;
 var
   c, cnt, len: Integer;
   Src, Dst: PChar;
-  Oct: PChar;
 begin
   len := Length(AValue);
   if len = 0 then Exit('');
@@ -205,7 +204,6 @@ begin
       dec(cnt);
       if Src^ <> '\'
       then begin
-        Oct := Src;
         c := 0;
         while (Src^ in ['0'..'7']) and (cnt > 0)
         do begin