* removed compiler warnings

compiler/cg64f32.pas

@@ -358,7 +358,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.3  2002-01-24 12:33:52  jonas
+  Revision 1.4  2002-03-04 19:10:11  peter
+    * removed compiler warnings
+
+  Revision 1.3  2002/01/24 12:33:52  jonas
     * adapted ranges of native types to int64 (e.g. high cardinal is no
       longer longint($ffffffff), but just $fffffff in psystem)
     * small additional fix in 64bit rangecheck code generation for 32 bit
@@ -374,11 +377,12 @@ end.
       qword is a special case
 
   Revision 1.2  2001/12/30 17:24:48  jonas
-    * range checking is now processor independent (part in cgobj, part in
+    * range checking is now processor independent (part in cgobj,
-    cg64f32) and should work correctly again (it needed some changes after
+      part in cg64f32) and should work correctly again (it needed
-    the changes of the low and high of tordef's to int64)
+      some changes after the changes of the low and high of
-  * maketojumpbool() is now processor independent (in ncgutil)
+      tordef's to int64)
-  * getregister32 is now called getregisterint
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.1  2001/12/29 15:29:58  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/cgbase.pas

@@ -507,8 +507,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2001-12-30 17:24:48  jonas
+  Revision 1.6  2002-03-04 19:10:11  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.5  2001/12/30 17:24:48  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.4  2001/11/06 14:53:48  jonas
     * compiles again with -dmemdebug

compiler/cgobj.pas

@@ -399,8 +399,8 @@ unit cgobj;
 
     procedure tcg.g_decrstrref(list : taasmoutput;const ref : treference;t : tdef);
 
-      var
+{      var
-         pushedregs : tpushed;
+         pushedregs : tpushed; }
 
       begin
 (*
@@ -425,8 +425,8 @@ unit cgobj;
     { that r points to the data to initialize             }
     procedure tcg.g_initialize(list : taasmoutput;t : tdef;const ref : treference;is_already_ref : boolean);
 
-      var
+{      var
-         hr : treference;
+         hr : treference; }
 
       begin
 (*
@@ -450,8 +450,8 @@ unit cgobj;
 
     procedure tcg.g_finalize(list : taasmoutput;t : tdef;const ref : treference;is_already_ref : boolean);
 
-      var
+{      var
-         r : treference;
+         r : treference; }
 
       begin
 (*
@@ -478,8 +478,8 @@ unit cgobj;
     { generates the code for initialisation of local data }
     procedure tcg.g_initialize_data(list : taasmoutput;p : tsym);
 
-      var
+{      var
-         hr : treference;
+         hr : treference; }
 
       begin
 (*
@@ -510,8 +510,8 @@ unit cgobj;
     { generates the code for incrementing the reference count of parameters }
     procedure tcg.g_incr_data(list : taasmoutput;p : tsym);
 
-      var
+{      var
-         hr : treference;
+         hr : treference; }
 
       begin
 (*
@@ -540,8 +540,8 @@ unit cgobj;
     { generates the code for finalisation of local data }
     procedure tcg.g_finalize_data(list : taasmoutput;p : tnamedindexitem);
 
-      var
+ {     var
-         hr : treference;
+         hr : treference; }
 
       begin
 (*
@@ -847,7 +847,7 @@ unit cgobj;
     end;
 
     procedure tcg.g_exitcode(list : taasmoutput;parasize:longint;nostackframe,inlined:boolean);
-
+(*
       var
   {$ifdef GDB}
          mangled_length : longint;
@@ -856,7 +856,7 @@ unit cgobj;
          nofinal,noreraiselabel : tasmlabel;
          hr : treference;
          r : tregister;
-
+*)
       begin
 (*
          if aktexitlabel^.is_used then
@@ -1434,8 +1434,11 @@ finalization
 end.
 {
   $Log$
-  Revision 1.6  2001-12-30 17:24:48  jonas
+  Revision 1.7  2002-03-04 19:10:11  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.6  2001/12/30 17:24:48  jonas
+    * range checking is now processor independent (part in cgobj, part in    cg64f32) and should work correctly again (it needed some changes after    the changes of the low and high of tordef's to int64)  * maketojumpbool() is now processor independent (in ncgutil)  * getregister32 is now called getregisterint
 
   Revision 1.5  2001/12/29 15:28:58  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/i386/cga.pas

@@ -2987,7 +2987,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.15  2002-01-24 18:25:53  peter
+  Revision 1.16  2002-03-04 19:10:12  peter
+    * removed compiler warnings
+
+  Revision 1.15  2002/01/24 18:25:53  peter
    * implicit result variable generation for assembler routines
    * removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead
 
@@ -2995,7 +2998,12 @@ end.
     * fixed init/final for value parameters
 
   Revision 1.13  2001/12/30 17:24:45  jonas
-    * range checking is now processor independent (part in cgobj, part in    cg64f32) and should work correctly again (it needed some changes after    the changes of the low and high of tordef's to int64)  * maketojumpbool() is now processor independent (in ncgutil)  * getregister32 is now called getregisterint
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.12  2001/12/29 15:28:58  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/i386/cgcpu.pas

@@ -270,7 +270,6 @@ unit cgcpu;
       var
         opcode: tasmop;
         power: longint;
-        scratch_register: TRegister;
 
       begin
         Case Op of
@@ -342,7 +341,6 @@ unit cgcpu;
       var
         opcode: tasmop;
         power: longint;
-        scratch_register: TRegister;
 
       begin
         Case Op of
@@ -604,7 +602,6 @@ unit cgcpu;
         size: tcgsize; src1, src2, dst: tregister);
       var
         tmpref: treference;
-        power: longint;
         opsize: topsize;
       begin
         opsize := regsize(src1);
@@ -880,8 +877,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.6  2001-12-30 17:24:46  jonas
+  Revision 1.7  2002-03-04 19:10:12  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.6  2001/12/30 17:24:46  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.5  2001/12/29 15:29:59  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/i386/cpubase.pas

@@ -957,8 +957,16 @@ end;
 end.
 {
   $Log$
-  Revision 1.9  2001-12-30 17:24:46  jonas
+  Revision 1.10  2002-03-04 19:10:12  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.9  2001/12/30 17:24:46  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.8  2001/12/29 15:29:59  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/i386/csopt386.pas

@@ -1394,7 +1394,7 @@ procedure DoCSE(AsmL: TAAsmOutput; First, Last: Tai; findPrevSeqs, doSubOpts: bo
 {marks the instructions that can be removed by RemoveInstructs. They're not
  removed immediately because sometimes an instruction needs to be checked in
  two different sequences}
-var cnt, cnt2, cnt3, orgNrOfMods: longint;
+var cnt, cnt2, {cnt3,} orgNrOfMods: longint;
     p, hp1, hp2, prevSeq, prevSeq_next: Tai;
     hp3, hp4: Tai;
     hp5 : Tai;
@@ -1956,7 +1956,10 @@ End.
 
 {
   $Log$
-  Revision 1.23  2001-12-04 15:58:13  jonas
+  Revision 1.24  2002-03-04 19:10:12  peter
+    * removed compiler warnings
+
+  Revision 1.23  2001/12/04 15:58:13  jonas
     * unnecessary loads of constants are now also remove by
       removePrevNotUsedLoad()
 

compiler/i386/daopt386.pas

@@ -1991,10 +1991,11 @@ Var
     Cnt, InstrCnt : Longint;
     InstrProp: TInsProp;
     UsedRegs: TRegSet;
-    prev, p, hp : Tai;
+    prev,p  : Tai;
     TmpRef: TReference;
     TmpReg: TRegister;
 {$ifdef AnalyzeLoops}
+    hp : Tai;
     TmpState: Byte;
 {$endif AnalyzeLoops}
 Begin
@@ -2591,7 +2592,10 @@ End.
 
 {
   $Log$
-  Revision 1.25  2001-12-29 15:29:59  jonas
+  Revision 1.26  2002-03-04 19:10:13  peter
+    * removed compiler warnings
+
+  Revision 1.25  2001/12/29 15:29:59  jonas
     * powerpc/cgcpu.pas compiles :)
     * several powerpc-related fixes
     * cpuasm unit is now based on common tainst unit

compiler/i386/n386add.pas

@@ -156,7 +156,6 @@ interface
       var
         pushedregs : tpushed;
         href       : treference;
-        pushed,
         cmpop      : boolean;
         regstopush : byte;
       begin
@@ -264,8 +263,6 @@ interface
       label do_normal;
 
       var
-         unusedregisters : tregisterset;
-         usablecount : byte;
          hregister,hregister2 : tregister;
          noswap,popeax,popedx,
          pushed,pushedfpu,
@@ -291,7 +288,6 @@ interface
 {$ifdef SUPPORT_MMX}
          mmxbase : tmmxtype;
 {$endif SUPPORT_MMX}
-         pushedreg : tpushed;
          regstopush: byte;
 
       procedure firstjmp64bitcmp;
@@ -1863,8 +1859,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.28  2001-12-30 17:24:46  jonas
+  Revision 1.29  2002-03-04 19:10:13  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.28  2001/12/30 17:24:46  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.27  2001/12/29 15:29:58  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/i386/n386cal.pas

@@ -257,7 +257,7 @@ implementation
          unusedregisters : tregisterset;
          usablecount : byte;
          pushed : tpushed;
-         hr,funcretref,refcountedtemp : treference;
+         funcretref,refcountedtemp : treference;
          hregister,hregister2 : tregister;
          oldpushedparasize : longint;
          { true if ESI must be loaded again after the subroutine }
@@ -1593,7 +1593,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.40  2001-12-31 09:53:15  jonas
+  Revision 1.41  2002-03-04 19:10:13  peter
+    * removed compiler warnings
+
+  Revision 1.40  2001/12/31 09:53:15  jonas
     * changed remaining "getregister32" calls to "getregisterint"
 
   Revision 1.39  2001/12/29 15:32:13  jonas

compiler/i386/n386cnv.pas

@@ -492,8 +492,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.29  2001-12-30 17:24:46  jonas
+  Revision 1.30  2002-03-04 19:10:13  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.29  2001/12/30 17:24:46  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.28  2001/12/11 08:14:17  jonas
     * part of my fix for dynarray -> open array conversion, forgot to
@@ -533,7 +541,7 @@ end.
   Revision 1.21  2001/08/28 13:24:47  jonas
     + compilerproc implementation of most string-related type conversions
     - removed all code from the compiler which has been replaced by
-      compilerproc implementations (using {$ifdef hascompilerproc} is not
+      compilerproc implementations (using $ifdef hascompilerproc is not
       necessary in the compiler)
 
   Revision 1.20  2001/08/26 13:36:57  florian

compiler/i386/n386inl.pas

@@ -729,8 +729,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.31  2001-12-30 17:24:46  jonas
+  Revision 1.32  2002-03-04 19:10:14  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.31  2001/12/30 17:24:46  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.30  2001/12/10 14:34:04  jonas
     * fixed type conversions from dynamic arrays to open arrays

compiler/i386/n386ld.pas

@@ -1091,8 +1091,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.28  2001-12-30 17:24:46  jonas
+  Revision 1.29  2002-03-04 19:10:14  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.28  2001/12/30 17:24:46  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.27  2001/12/17 23:16:05  florian
     * array of const can now take widestring parameters as well

compiler/i386/n386mat.pas

@@ -64,18 +64,11 @@ implementation
 
     procedure ti386moddivnode.pass_2;
       var
-         unusedregisters : tregisterset;
-         usablecount, regstopush : byte;
          hreg1 : tregister;
          hreg2 : tregister;
          shrdiv, pushed,popeax,popedx : boolean;
-
          power : longint;
          hl : tasmlabel;
-         hloc : tlocation;
-         pushedreg : tpushed;
-         typename,opname : string[6];
-
       begin
          shrdiv := false;
          secondpass(left);
@@ -300,7 +293,7 @@ implementation
          hregister1,hregister2,hregister3,
          hregisterhigh,hregisterlow : tregister;
          pushed,popecx : boolean;
-         op,opd : tasmop;
+         op : tasmop;
          l1,l2,l3 : tasmlabel;
 
       begin
@@ -320,10 +313,6 @@ implementation
 
          if is_64bitint(left.resulttype.def) then
            begin
-              if nodetype = shln then
-                opd:=A_SHLD
-              else opd:=A_SHRD;
-
               { load left operator in a register }
               if left.location.loc<>LOC_REGISTER then
                 begin
@@ -999,8 +988,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.22  2001-12-30 17:24:47  jonas
+  Revision 1.23  2002-03-04 19:10:14  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.22  2001/12/30 17:24:47  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.21  2001/12/29 15:27:24  jonas
     * made 'mod powerof2' -> 'and' optimization processor independent

compiler/i386/n386mem.pas

@@ -701,8 +701,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.19  2001-12-30 17:24:47  jonas
+  Revision 1.20  2002-03-04 19:10:14  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.19  2001/12/30 17:24:47  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.18  2001/12/03 21:48:43  peter
     * freemem change to value parameter

compiler/i386/n386util.pas

@@ -1199,8 +1199,16 @@ implementation
 end.
 {
   $Log$
-  Revision 1.25  2001-12-30 17:24:47  jonas
+  Revision 1.26  2002-03-04 19:10:14  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.25  2001/12/30 17:24:47  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.24  2001/12/03 21:48:43  peter
     * freemem change to value parameter

compiler/ncgflw.pas

@@ -154,7 +154,6 @@ implementation
          org_list,
          then_list,
          else_list : taasmoutput;
-         regcounter: tregister;
 
       begin
          otlabel:=truelabel;
@@ -649,8 +648,16 @@ begin
 end.
 {
   $Log$
-  Revision 1.7  2001-12-30 17:24:48  jonas
+  Revision 1.8  2002-03-04 19:10:11  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
+
+  Revision 1.7  2001/12/30 17:24:48  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 
   Revision 1.6  2001/12/29 15:28:57  jonas
     * powerpc/cgcpu.pas compiles :)

compiler/ncgutil.pas

@@ -213,8 +213,14 @@ end.
 
 {
   $Log$
-  Revision 1.1  2001-12-30 17:24:48  jonas
+  Revision 1.2  2002-03-04 19:10:11  peter
-    * range checking is now processor independent (part in cgobj, part in
    cg64f32) and should work correctly again (it needed some changes after
    the changes of the low and high of tordef's to int64)
  * maketojumpbool() is now processor independent (in ncgutil)
  * getregister32 is now called getregisterint
+    * removed compiler warnings
-
 
+  Revision 1.1  2001/12/30 17:24:48  jonas
+    * range checking is now processor independent (part in cgobj,
+      part in cg64f32) and should work correctly again (it needed
+      some changes after the changes of the low and high of
+      tordef's to int64)
+    * maketojumpbool() is now processor independent (in ncgutil)
+    * getregister32 is now called getregisterint
 }

compiler/ncon.pas

@@ -688,8 +688,6 @@ implementation
       end;
 
     function tguidconstnode.det_resulttype:tnode;
-      var
-        srsym : ttypesym;
       begin
         result:=nil;
         resulttype.setdef(rec_tguid);
@@ -720,7 +718,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.24  2001-10-20 19:28:38  peter
+  Revision 1.25  2002-03-04 19:10:11  peter
+    * removed compiler warnings
+
+  Revision 1.24  2001/10/20 19:28:38  peter
     * interface 2 guid support
     * guid constants support
 

compiler/nmat.pas

@@ -217,7 +217,7 @@ implementation
 
     function tmoddivnode.firstoptimize: tnode;
       var
-        power, shiftval : longint;
+        power{,shiftval} : longint;
         newtype: tnodetype;
       begin
         result := nil;
@@ -678,7 +678,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.28  2002-02-11 11:45:51  michael
+  Revision 1.29  2002-03-04 19:10:11  peter
+    * removed compiler warnings
+
+  Revision 1.28  2002/02/11 11:45:51  michael
   * Compilation without mmx support fixed from Peter
 
   Revision 1.27  2001/12/29 15:27:24  jonas

compiler/symtable.pas

@@ -1501,16 +1501,11 @@ implementation
 
 
     procedure tglobalsymtable.load(ppufile:tcompilerppufile);
-{$ifdef GDB}
-      var
-        storeGlobalTypeCount : pword;
-{$endif GDB}
       begin
 {$ifdef GDB}
          if cs_gdb_dbx in aktglobalswitches then
            begin
               UnitTypeCount:=1;
-              storeGlobalTypeCount:=PGlobalTypeCount;
               PglobalTypeCount:=@UnitTypeCount;
            end;
 {$endif GDB}
@@ -2068,7 +2063,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.55  2002-02-03 09:30:07  peter
+  Revision 1.56  2002-03-04 19:10:11  peter
+    * removed compiler warnings
+
+  Revision 1.55  2002/02/03 09:30:07  peter
     * more fixes for protected handling
 
   Revision 1.54  2002/01/29 21:30:25  peter

compiler/targets/t_sunos.pas

@@ -261,7 +261,7 @@ Var
   gprtobj,
   prtobj       : string[80];
   HPath        : TStringListItem;
-  s,s1,s2      : string;
+  s,s2         : string;
   linkdynamic,
   linklibc     : boolean;
 begin
@@ -555,7 +555,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.15  2001-12-15 05:29:36  carl
+  Revision 1.16  2002-03-04 19:10:14  peter
+    * removed compiler warnings
+
+  Revision 1.15  2001/12/15 05:29:36  carl
   + crtbegin.o and crtend.o now not linked anymore since they can cause conflicts with
      GCC and the native C library...