* Removed/ifdefed/commented unused local variables.

git-svn-id: trunk@11438 -

compiler/i386/csopt386.pas

@@ -69,9 +69,9 @@ end;
 function modifiesConflictingMemLocation(p1: tai; supreg: tsuperregister; c: tregContent;
    var regsStillValid: tregset; onlymem: boolean; var invalsmemwrite: boolean): boolean;
 var
-  p, hp: taicpu;
+  p: taicpu;
   tmpRef: treference;
-  r,regCounter: tsuperregister;
+  regCounter: tsuperregister;
   opCount: longint;
   dummy: boolean;
 begin
@@ -231,8 +231,7 @@ function CheckSequence(p: tai; var prev: tai; supreg: tsuperregister; var Found:
 var
   regsNotRead, regsStillValid : tregset;
   checkingPrevSequences,
-  passedFlagsModifyingInstr,
-  invalsmemwrite               : boolean;
+  passedFlagsModifyingInstr   : boolean;
 
   function getPrevSequence(p: tai; supreg: tsuperregister; currentPrev: tai; var newPrev: tai): tsuperregister;
 
@@ -1423,7 +1422,7 @@ function ReplaceReg(asml: TAsmList; orgsupreg, newsupreg: tsuperregister; p,
 { where newsupreg was replaced by orgsupreg                                    }
 var
   endP, hp: tai;
-  removeLast, sequenceEnd, newRegModified, orgRegRead,
+  removeLast, newRegModified, orgRegRead,
     stateChanged, readStateChanged: Boolean;
 {$ifdef replaceregdebug}
   l: longint;
@@ -1683,7 +1682,7 @@ procedure loadcseregs(asml: TAsmList; const reginfo: toptreginfo; curseqend, pre
 var
   regsloaded: tregset;
   regloads, reguses: array[RS_EAX..RS_EDI] of tai;
-  regcounter, substreg: tsuperregister;
+  regcounter: tsuperregister;
   hp, hp2: tai;
   insertpos, insertoptinfo, prevseq_next: tai;
   i: longint;
@@ -1835,7 +1834,7 @@ procedure doCSE(asml: TAsmList; First, Last: tai; findPrevSeqs, doSubOpts: boole
  two different sequences}
 var cnt, cnt2, {cnt3,} orgNrofMods: longint;
     p, hp1, hp2, prevSeq: tai;
-    hp3, hp4: tai;
+    hp4: tai;
     hp5 : tai;
     reginfo: toptreginfo;
     memreg: tregister;

compiler/systems/t_emx.pas

@@ -156,7 +156,6 @@ procedure write_ar(const name:string;size:longint);
 
 var ar:ar_hdr;        {PackTime is platform independent}
     time:TSystemTime;
-    dummy:word;
     numtime:longint;
     tmp:string[19];
 begin
@@ -456,7 +455,6 @@ var
   AppTypeStr,
   StripStr: string[40];
   RsrcStr : string;
-  DS,NS,ES : string;
   OutName: string;
 begin
   if not(cs_link_nolink in current_settings.globalswitches) then

compiler/systems/t_watcom.pas

@@ -69,9 +69,9 @@ end;
 Function TLinkerWatcom.WriteResponseFile(isdll:boolean) : Boolean;
 Var
   linkres  : TLinkRes;
-  i        : longint;
+  {i        : longint;}
   s        : string;
-  linklibc : boolean;
+  {linklibc : boolean;}
 begin
   WriteResponseFile:=False;
 

compiler/x86/agx86int.pas

@@ -958,6 +958,7 @@ implementation
             comment : '; ';
           );
 
+{$ifdef x86_64}
        as_x86_64_masm_info : tasminfo =
           (
             id     : as_x86_64_masm;
@@ -969,6 +970,7 @@ implementation
             labelprefix : '@@';
             comment : '; ';
           );
+{$endif x86_64}
 
 initialization
 {$ifdef x86_64}

compiler/x86/rgx86.pas

@@ -296,9 +296,9 @@ implementation
     procedure trgx86fpu.saveusedfpuregisters(list: TAsmList;
                                              var saved : tpushedsavedfpu;
                                              const s: tcpuregisterset);
-      var
+     { var
          r : tregister;
-         hr : treference;
+         hr : treference; }
       begin
         used_in_proc:=used_in_proc+s;
 
@@ -332,11 +332,11 @@ implementation
 
     procedure trgx86fpu.restoreusedfpuregisters(list : TAsmList;
                                                 const saved : tpushedsavedfpu);
-
+{
       var
          r,r2 : tregister;
          hr : treference;
-
+}
       begin
 {$warning TODO firstsavefpureg}
 (*