* removed some unused variables

compiler/compiler.pas

@@ -366,9 +366,11 @@ function Compile(const cmd:string):longint;
 
 var
   starttime  : real;
+{$ifdef SHOWUSEDMEM}
 {$ifdef HASGETHEAPSTATUS}
   hstatus : TFPCHeapStatus;
 {$endif HASGETHEAPSTATUS}
+{$endif SHOWUSEDMEM}
 begin
   try
     try
@@ -441,7 +443,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.58  2005-02-28 15:38:38  marco
+  Revision 1.59  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.58  2005/02/28 15:38:38  marco
    * getFPCheapstatus  (no, FPC HEAP, not FP CHEAP!)
 
   Revision 1.57  2005/02/15 19:15:45  peter

compiler/dwarf.pas

@@ -213,7 +213,6 @@ implementation
         );
       var
         i : integer;
-        v : int64;
       begin
         list.concat(tai_const.create_8bit(op));
         for i:=0 to ops-1 do
@@ -421,7 +420,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2005-02-14 17:13:06  peter
+  Revision 1.6  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.5  2005/02/14 17:13:06  peter
     * truncate log
 
 }

compiler/ncgutil.pas

@@ -1334,8 +1334,6 @@ implementation
         i : longint;
         currpara : tparavarsym;
         paraloc  : pcgparalocation;
-        hreflo,
-        hrefhi,
         href     : treference;
         sizeleft : aint;
 {$ifdef sparc}
@@ -2367,7 +2365,6 @@ implementation
 
     procedure gen_intf_wrapper(list:taasmoutput;_class:tobjectdef);
       var
-        rawdata: taasmoutput;
         i,j,
         proccount : longint;
         tmps : string;
@@ -2408,7 +2405,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.264  2005-03-09 22:37:24  peter
+  Revision 1.265  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.264  2005/03/09 22:37:24  peter
   put intf wrappers in code section
 
   Revision 1.263  2005/03/02 19:44:11  jonas

compiler/pinline.pas

@@ -620,11 +620,9 @@ implementation
         highppn,
         npara,
         paras   : tnode;
-        temp    : ttempcreatenode;
         ppn     : tcallparanode;
         paradef : tdef;
         counter : integer;
-        newstatement : tstatementnode;
 {$ifdef ansistring_bits}
         mode    : byte;
 {$endif ansistring_bits}
@@ -743,7 +741,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.41  2005-03-05 16:37:42  florian
+  Revision 1.42  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.41  2005/03/05 16:37:42  florian
     * fixed copy(dyn. array,...);
 
   Revision 1.40  2005/03/03 19:36:42  jonas

compiler/pmodules.pas

@@ -922,7 +922,10 @@ implementation
          main_file: tinputfile;
          st     : tsymtable;
          unitst : tglobalsymtable;
-         store_crc,store_interface_crc : cardinal;
+{$ifdef EXTDEBUG}
+         store_crc,
+{$endif EXTDEBUG}
+         store_interface_crc : cardinal;
          s1,s2  : ^string; {Saves stack space}
          force_init_final : boolean;
          pd : tprocdef;
@@ -1273,7 +1276,9 @@ implementation
 
          { Write out the ppufile after the object file has been created }
          store_interface_crc:=current_module.interface_crc;
+{$ifdef EXTDEBUG}
          store_crc:=current_module.crc;
+{$endif EXTDEBUG}
          if (Errorcount=0) then
            tppumodule(current_module).writeppu;
 
@@ -1622,7 +1627,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.185  2005-02-14 17:13:07  peter
+  Revision 1.186  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.185  2005/02/14 17:13:07  peter
     * truncate log
 
   Revision 1.184  2005/02/06 21:33:28  peter

compiler/powerpc/cgcpu.pas

@@ -394,8 +394,6 @@ const
 
     { calling a procedure by name }
     procedure tcgppc.a_call_name(list : taasmoutput;const s : string);
-      var
-        href : treference;
       begin
          { MacOS: The linker on MacOS (PPCLink) inserts a call to glue code,
            if it is a cross-TOC call. If so, it also replaces the NOP
@@ -521,8 +519,7 @@ const
                      ((A_LWZ,A_LWZU),(A_LWZX,A_LWZUX)));
        var
          op: tasmop;
-         tmpreg: tregister;
-         ref2, tmpref: treference;
+         ref2: treference;
 
        begin
           { TODO: optimize/take into consideration fromsize/tosize. Will }
@@ -847,7 +844,6 @@ const
         l : tasmlabel);
 
         var
-          p: taicpu;
           scratch_register: TRegister;
           signed: boolean;
 
@@ -884,7 +880,6 @@ const
         reg1,reg2 : tregister;l : tasmlabel);
 
         var
-          p: taicpu;
           op: tasmop;
 
         begin
@@ -1050,16 +1045,11 @@ const
 
 
      var regcounter,firstregfpu,firstreggpr: TSuperRegister;
-         href,href2 : treference;
+         href : treference;
          usesfpr,usesgpr,gotgot : boolean;
-         parastart : aint;
-         l : tasmlabel;
          regcounter2, firstfpureg: Tsuperregister;
-         i : integer;
-         hp: tparavarsym;
          cond : tasmcond;
          instr : taicpu;
-         size: tcgsize;
 
       begin
         { CR and LR only have to be saved in case they are modified by the current }
@@ -1590,7 +1580,7 @@ const
      const
          macosLinkageAreaSize = 24;
 
-     var regcounter: TRegister;
+     var 
          href : treference;
          registerSaveAreaSize : longint;
 
@@ -1717,7 +1707,6 @@ const
 
        var
          ref2, tmpref: treference;
-         tmpreg:Tregister;
 
        begin
          ref2 := ref;
@@ -1813,7 +1802,6 @@ const
         src, dst: TReference;
         lab: tasmlabel;
         count, count2: aint;
-        orgsrc, orgdst: boolean;
         size: tcgsize;
 
       begin
@@ -1853,12 +1841,10 @@ const
           begin
             src.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE);
             a_loadaddr_ref_reg(list,source,src.base);
-            orgsrc := false;
           end
         else
           begin
             src := source;
-            orgsrc := true;
           end;
         { load the address of dest into dst.base }
         if (count > 4) or
@@ -1868,12 +1854,10 @@ const
           begin
             dst.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE);
             a_loadaddr_ref_reg(list,dest,dst.base);
-            orgdst := false;
           end
         else
           begin
             dst := dest;
-            orgdst := true;
           end;
 
 {$ifndef ppc603}
@@ -2044,9 +2028,7 @@ const
         end;
 
       var
-        lab : tasmsymbol;
         make_global : boolean;
-        href : treference;
       begin
         if procdef.proctypeoption<>potype_none then
           Internalerror(200006137);
@@ -2107,7 +2089,6 @@ const
 
        var
          tmpreg: tregister;
-         orgindex: tregister;
        begin
          result := false;
          if (ref.base = NR_NO) then
@@ -2420,7 +2401,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.195  2005-02-14 17:13:10  peter
+  Revision 1.196  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.195  2005/02/14 17:13:10  peter
     * truncate log
 
   Revision 1.194  2005/02/13 18:55:19  florian

compiler/powerpc/cpuinfo.pas

@@ -62,7 +62,7 @@ Const
      '604'
    );
 
-   fputypestr : array[tfputype] of string[6] = ('',
+   fputypestr : array[tfputype] of string[8] = ('',
      'SOFT',
      'STANDARD'
    );
@@ -72,7 +72,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.22  2005-02-14 17:13:10  peter
+  Revision 1.23  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.22  2005/02/14 17:13:10  peter
     * truncate log
 
 }

compiler/powerpc/nppcmat.pas

@@ -188,7 +188,6 @@ implementation
          op : topcg;
          asmop1, asmop2: tasmop;
          shiftval: aint;
-         r : Tregister;
 
       begin
          secondpass(left);
@@ -356,7 +355,7 @@ implementation
     procedure tppcunaryminusnode.pass_2;
 
       var
-        src1, src2, tmp: tregister;
+        src1: tregister;
         op: tasmop;
 
       begin
@@ -452,7 +451,6 @@ implementation
 
       var
          hl : tasmlabel;
-         regl, regh: tregister;
 
       begin
          if is_boolean(resulttype.def) then
@@ -526,7 +524,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.44  2005-02-14 17:13:10  peter
+  Revision 1.45  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.44  2005/02/14 17:13:10  peter
     * truncate log
 
 }

compiler/powerpc/nppcset.pas

@@ -64,8 +64,6 @@ implementation
 
       procedure genitem(t : pcaselabel);
 
-      var r:Tregister;
-
           procedure gensub(value:longint);
           var
             tmpreg: tregister;
@@ -156,7 +154,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.18  2005-02-14 17:13:10  peter
+  Revision 1.19  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.18  2005/02/14 17:13:10  peter
     * truncate log
 
 }

compiler/rgobj.pas

@@ -1464,7 +1464,9 @@ unit rgobj;
     procedure trgobj.generate_interference_graph(list:Taasmoutput;headertai:tai);
       var
         p : tai;
+{$ifdef EXTDEBUG}
         i : integer;
+{$endif EXTDEBUG}
         supreg : tsuperregister;
       begin
         { All allocations are available. Now we can generate the
@@ -2012,7 +2014,10 @@ unit rgobj;
 end.
 {
   $Log$
-  Revision 1.155  2005-03-20 19:47:46  peter
+  Revision 1.156  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.155  2005/03/20 19:47:46  peter
     * fix spilling code when explicit cpu registers are used in an
       instruction
 

compiler/symdef.pas

@@ -4125,7 +4125,9 @@ implementation
     function tprocdef.write_references(ppufile:tcompilerppufile;locals:boolean):boolean;
       var
         ref : tref;
+{$ifdef supportbrowser}
         pdo : tobjectdef;
+{$endif supportbrowser}
         move_last : boolean;
         d : tderef;
         oldparasymtable,
@@ -6394,7 +6396,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.300  2005-03-13 08:35:09  florian
+  Revision 1.301  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.300  2005/03/13 08:35:09  florian
     * fixed FieldAddress for 64 bit and CPUs requiring proper alignment
 
   Revision 1.299  2005/03/07 17:58:27  peter

compiler/systems/t_macos.pas

@@ -213,9 +213,9 @@ begin
     Message1(exec_i_linking,current_module.exefilename^);
 
 { Create some replacements }
+  StripStr:='';
 (*
   StaticStr:='';
-  StripStr:='';
   DynLinkStr:='';
   if (cs_link_staticflag in aktglobalswitches) then
    StaticStr:='-static';
@@ -272,7 +272,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.21  2005-02-14 17:13:10  peter
+  Revision 1.22  2005-03-25 21:55:43  jonas
+    * removed some unused variables
+
+  Revision 1.21  2005/02/14 17:13:10  peter
     * truncate log
 
   Revision 1.20  2005/02/08 22:30:32  olle