compiler: remove unused variables (reduce hints)

git-svn-id: trunk@15093 -

compiler/cmsgs.pas

@@ -391,8 +391,7 @@ end;
 
 function TMessage.ClearVerbosity(nr:longint):boolean;
 var
-  hp: pchar;
+  i: longint;
-  i, txtbegin: longint;
 begin
   result:=false;
   i:=nr div 1000;

compiler/ogmacho.pas

@@ -494,7 +494,6 @@ implementation
       relpc       : Boolean;
       relextern   : Boolean;
       reltype     : Integer;
-      spos        : LongWord;
 
     begin
       s:=TMachoObjSection(p);

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

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

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