From 1ef53ca5905ecc38b3aa867921b1494bcdacdd06 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Tue, 30 Mar 2010 04:30:41 +0000
Subject: [PATCH] compiler: remove unused variables (reduce hints)

git-svn-id: trunk@15093 -
---
 compiler/cmsgs.pas         | 3 +--
 compiler/ogmacho.pas       | 1 -
 compiler/scanner.pas       | 2 --
 compiler/utils/mkarmins.pp | 8 ++++----
 compiler/utils/usubst.pp   | 2 +-
 5 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/compiler/cmsgs.pas b/compiler/cmsgs.pas
index 9b81539777..af9517a82b 100644
--- a/compiler/cmsgs.pas
+++ b/compiler/cmsgs.pas
@@ -391,8 +391,7 @@ end;
 
 function TMessage.ClearVerbosity(nr:longint):boolean;
 var
-  hp: pchar;
-  i, txtbegin: longint;
+  i: longint;
 begin
   result:=false;
   i:=nr div 1000;
diff --git a/compiler/ogmacho.pas b/compiler/ogmacho.pas
index e127287403..30400eff39 100644
--- a/compiler/ogmacho.pas
+++ b/compiler/ogmacho.pas
@@ -494,7 +494,6 @@ implementation
       relpc       : Boolean;
       relextern   : Boolean;
       reltype     : Integer;
-      spos        : LongWord;
 
     begin
       s:=TMachoObjSection(p);
diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 7aea75f79c..a3ec78cd9f 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -3347,7 +3347,6 @@ In case not, the value returned can be arbitrary.
         m       : longint;
         mac     : tmacro;
         asciinr : string[6];
-        msgwritten,
         iswidestring : boolean;
       label
          exit_label;
@@ -3775,7 +3774,6 @@ In case not, the value returned can be arbitrary.
              '''','#','^' :
                begin
                  len:=0;
-                 msgwritten:=false;
                  cstringpattern:='';
                  iswidestring:=false;
                  if c='^' then
diff --git a/compiler/utils/mkarmins.pp b/compiler/utils/mkarmins.pp
index 93fb411101..ddb3edec41 100644
--- a/compiler/utils/mkarmins.pp
+++ b/compiler/utils/mkarmins.pp
@@ -179,12 +179,12 @@ var
    maxinfolen,
    code : byte;
    insns : longint;
-   attsuffile,propfile,opfile,
+   attsuffile,{propfile,}opfile,
    nopfile,attfile,
    infile,insfile : text;
    { instruction fields }
    skip : boolean;
-   last,
+   {last,}
    ops    : longint;
    attopcode,
    opcode,
@@ -333,7 +333,7 @@ begin
         { codes }
         skipspace;
         j:=0;
-        last:=0;
+(*        last:=0;*)
         if s[i] in ['\','0'..'9'] then
           begin
              while not(s[i] in [' ',#9]) do
@@ -352,7 +352,7 @@ begin
                   end;
 *)
                  codes:=codes+'#'+tostr(code);
-                 last:=code;
+(*                 last:=code;*)
                  inc(j);
                end;
           end
diff --git a/compiler/utils/usubst.pp b/compiler/utils/usubst.pp
index 56c0ed38f7..cf553ae373 100644
--- a/compiler/utils/usubst.pp
+++ b/compiler/utils/usubst.pp
@@ -53,7 +53,7 @@ end;
 Function AddPair(List : TStrings; Const NV : String) : Boolean;
 
 Var
-  P,I : Integer;
+  P : Integer;
   N,V : string;
 
 begin