* removed warnings/notes

compiler/assemble.pas

@@ -201,7 +201,6 @@ end;
 procedure TAsmList.RemoveAsm;
 var
   g : file;
-  i : word;
 begin
   if cs_asm_leave in aktglobalswitches then
    exit;
@@ -213,7 +212,7 @@ begin
      {$I-}
       erase(g);
      {$I+}
-     i:=ioresult;
+     if ioresult<>0 then;
    end;
 end;
 
@@ -429,8 +428,6 @@ end;
 
 
 Constructor TAsmList.Init(smart:boolean);
-var
-  i : word;
 begin
 { load start values }
   asmfile:=current_module^.asmfilename^;
@@ -449,7 +446,7 @@ begin
      {$I-}
       mkdir(path);
      {$I+}
-     i:=ioresult;
+     if ioresult<>0 then;
      path:=FixPath(path,false);
    end
   else
@@ -567,7 +564,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.61  2000-02-09 13:22:45  peter
+  Revision 1.62  2000-02-24 18:41:38  peter
+    * removed warnings/notes
+
+  Revision 1.61  2000/02/09 13:22:45  peter
     * log truncated
 
   Revision 1.60  2000/01/11 09:52:06  peter

compiler/cg386mat.pas

@@ -52,7 +52,10 @@ implementation
 
     procedure secondmoddiv(var p : ptree);
       var
-         hreg1, hreg2 : tregister;
+         hreg1 : tregister;
+{$ifdef newOptimizations}
+         hreg2 : tregister;
+{$endif}
          shrdiv, andmod, pushed,popeax,popedx : boolean;
 
          power : longint;
@@ -334,7 +337,6 @@ implementation
          hregisterhigh,hregisterlow : tregister;
          pushed,popecx : boolean;
          op : tasmop;
-         hr : preference;
          l1,l2,l3 : pasmlabel;
 
       begin
@@ -676,8 +678,6 @@ implementation
            emit_reg_reg(A_MOVQ,S_NO,R_MM7,p^.location.register);
         end;
 {$endif}
-      var
-         hr : preference;
 
       begin
          if is_64bitint(p^.left^.resulttype) then
@@ -818,8 +818,6 @@ implementation
       var
          hl : pasmlabel;
          opsize : topsize;
-         hr : preference;
-
       begin
          if is_boolean(p^.resulttype) then
           begin
@@ -992,7 +990,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.43  2000-02-18 21:25:48  florian
+  Revision 1.44  2000-02-24 18:41:38  peter
+    * removed warnings/notes
+
+  Revision 1.43  2000/02/18 21:25:48  florian
     * fixed a bug in int64/qword handling was a quite ugly one
 
   Revision 1.42  2000/02/09 13:22:47  peter

compiler/csopt386.pas

@@ -908,7 +908,14 @@ Procedure DoCSE(AsmL: PAasmOutput; First, Last: Pai);
  two different sequences}
 Var Cnt, Cnt2: Longint;
     p, hp1, hp2: Pai;
-    hp3, hp4, hp5: pai;
+    hp3, hp4: pai;
+{$ifdef replacereg}
+    hp5 : pai;
+{$else}
+  {$ifdef csdebug}
+    hp5 : pai;
+  {$endif}
+{$endif}
     RegInfo: TRegInfo;
     RegCounter: TRegister;
     TmpState: Byte;
@@ -1234,7 +1241,10 @@ End.
 
 {
  $Log$
- Revision 1.53  2000-02-19 13:50:29  jonas
+ Revision 1.54  2000-02-24 18:41:38  peter
+   * removed warnings/notes
+
+ Revision 1.53  2000/02/19 13:50:29  jonas
    * fixed bug in -dnewoptizations (showed itself  only if -Or was
      used as well I think)
 

compiler/daopt386.pas

@@ -358,9 +358,9 @@ End;
 Procedure RemoveLastDeallocForFuncRes(asmL: PAasmOutput; p: pai);
 
   Procedure DoRemoveLastDeallocForFuncRes(asmL: PAasmOutput; reg: TRegister);
-  var hp, hp2: pai;
+  var
+    hp2: pai;
   begin
-    hp := nil;
     hp2 := p;
     repeat
       hp2 := pai(hp2^.previous);
@@ -2129,7 +2129,10 @@ End.
 
 {
  $Log$
- Revision 1.83  2000-02-10 14:57:14  jonas
+ Revision 1.84  2000-02-24 18:41:38  peter
+   * removed warnings/notes
+
+ Revision 1.83  2000/02/10 14:57:14  jonas
    * fixed bug due to lack of support for top_symbol operands
 
  Revision 1.82  2000/02/09 13:22:51  peter

compiler/files.pas

@@ -390,8 +390,6 @@ uses
 
 
     procedure tinputfile.close;
-      var
-        i : word;
       begin
         if is_macro then
          begin
@@ -408,7 +406,7 @@ uses
            {$I-}
             system.close(f);
            {$I+}
-           i:=ioresult;
+           if ioresult<>0 then;
            closed:=true;
          end;
         if assigned(buf) then
@@ -421,8 +419,6 @@ uses
 
 
     procedure tinputfile.tempclose;
-      var
-        i : word;
       begin
         if is_macro then
          exit;
@@ -431,7 +427,7 @@ uses
            {$I-}
             system.close(f);
            {$I+}
-           i:=ioresult;
+           if ioresult<>0 then;
            Freemem(buf,maxbufsize);
            buf:=nil;
            closed:=true;
@@ -1357,7 +1353,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.115  2000-02-10 16:00:23  peter
+  Revision 1.116  2000-02-24 18:41:38  peter
+    * removed warnings/notes
+
+  Revision 1.115  2000/02/10 16:00:23  peter
     * dont' check for ppl files as they aren't used atm.
 
   Revision 1.114  2000/02/09 13:22:52  peter

compiler/gendef.pas

@@ -66,7 +66,6 @@ end;
 destructor tdeffile.done;
 var
   f : file;
-  i : word;
 begin
   if WrittenOnDisk and
      not(cs_link_extern in aktglobalswitches) then
@@ -75,7 +74,7 @@ begin
      {$I-}
       erase(f);
      {$I+}
-     i:=ioresult;
+     if ioresult<>0 then;
    end;
   importlist.done;
   exportlist.done;
@@ -165,7 +164,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.6  2000-02-09 13:22:53  peter
+  Revision 1.7  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.6  2000/02/09 13:22:53  peter
     * log truncated
 
   Revision 1.5  2000/01/07 01:14:27  peter

compiler/link.pas

@@ -427,7 +427,6 @@ var
   cmdstr,
   binstr  : string;
   success : boolean;
-  cnt     : longint;
 begin
   MakeStaticLibrary:=false;
 { remove the library, to be sure that it is rewritten }
@@ -522,7 +521,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.83  2000-02-09 13:22:54  peter
+  Revision 1.84  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.83  2000/02/09 13:22:54  peter
     * log truncated
 
   Revision 1.82  2000/01/14 14:40:37  pierre

compiler/og386.pas

@@ -153,8 +153,6 @@ unit og386;
 ****************************************************************************}
 
     constructor tobjectoutput.init(smart:boolean);
-      var
-        i : longint;
       begin
         smarthcount:=0;
         objsmart:=smart;
@@ -167,7 +165,7 @@ unit og386;
            {$I-}
             mkdir(path);
            {$I+}
-           i:=ioresult;
+           if ioresult<>0 then;
            path:=FixPath(path,false);
          end
         else
@@ -275,7 +273,10 @@ unit og386;
 end.
 {
   $Log$
-  Revision 1.17  2000-02-09 13:22:54  peter
+  Revision 1.18  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.17  2000/02/09 13:22:54  peter
     * log truncated
 
   Revision 1.16  2000/01/07 01:14:27  peter

compiler/owbase.pas

@@ -84,8 +84,6 @@ end;
 
 
 procedure tobjectwriter.close;
-var
-  i : longint;
 begin
   if bufidx>0 then
    writebuf;
@@ -96,7 +94,7 @@ begin
      {$I-}
       system.erase(f);
      {$I+}
-     i:=ioresult;
+     if ioresult<>0 then;
    end;
   opened:=false;
   size:=0;
@@ -148,7 +146,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.4  2000-02-09 13:22:55  peter
+  Revision 1.5  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.4  2000/02/09 13:22:55  peter
     * log truncated
 
   Revision 1.3  2000/01/07 01:14:28  peter

compiler/pexports.pas

@@ -39,7 +39,6 @@ unit pexports;
 
       var
          hp : pexported_item;
-         code : integer;
          DefString:string;
          ProcName:string;
          InternalProcName:string;
@@ -156,7 +155,10 @@ end.
 
 {
   $Log$
-  Revision 1.20  2000-02-23 23:06:39  florian
+  Revision 1.21  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.20  2000/02/23 23:06:39  florian
     + the expr for names and indizies of exports sections support now
       every type of expressions which evalute to a constant
 

compiler/ptype.pas

@@ -287,7 +287,7 @@ uses
 
         var
            hp2,datacoll : pparaitem;
-           p,p2 : ppropertysym;
+           p : ppropertysym;
            overriden : psym;
            hs : string;
            varspez : tvarspez;
@@ -1539,7 +1539,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.19  2000-02-21 22:17:49  florian
+  Revision 1.20  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.19  2000/02/21 22:17:49  florian
     * fixed 819
 
   Revision 1.18  2000/02/09 13:23:01  peter

compiler/t_win32.pas

@@ -976,7 +976,7 @@ var
   peheader : tpeheader;
   firstsecpos,
   maxfillsize,
-  i,l,peheaderpos : longint;
+  l,peheaderpos : longint;
   coffsec : tcoffsechdr;
   secroot,hsecroot : psecfill;
   zerobuf : pointer;
@@ -1076,14 +1076,17 @@ begin
   freemem(zerobuf,maxfillsize);
   close(f);
   {$I+}
-  i:=ioresult;
+  if ioresult<>0 then;
   postprocessexecutable:=true;
 end;
 
 end.
 {
   $Log$
-  Revision 1.18  2000-01-12 10:31:45  peter
+  Revision 1.19  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.18  2000/01/12 10:31:45  peter
     * fixed group() writing
 
   Revision 1.17  2000/01/11 09:52:07  peter

compiler/tccal.pas

@@ -382,7 +382,6 @@ implementation
          hp,procs,hp2 : pprocdefcoll;
          pd : pprocdef;
          oldcallprocsym : pprocsym;
-         nextprocsym : pprocsym;
          def_from,def_to,conv_to : pdef;
          hpt,pt,inlinecode : ptree;
          exactmatch,inlined : boolean;
@@ -390,6 +389,7 @@ implementation
          lastparatype : pdef;
          pdc : pparaitem;
 {$ifdef TEST_PROCSYMS}
+         nextprocsym : pprocsym;
          symt : psymtable;
 {$endif TEST_PROCSYMS}
 
@@ -582,8 +582,6 @@ implementation
                        end;
                      nextprocsym:=srsym;
                   end;
-{$else TEST_PROCSYMS}
-                nextprocsym:=nil;
 {$endif TEST_PROCSYMS}
                    { determine length of parameter list }
                    pt:=p^.left;
@@ -1233,7 +1231,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.80  2000-02-17 14:53:43  florian
+  Revision 1.81  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.80  2000/02/17 14:53:43  florian
     * some updates for the newcg
 
   Revision 1.79  2000/02/09 13:23:07  peter

compiler/tcld.pas

@@ -201,8 +201,10 @@ implementation
 *****************************************************************************}
 
     procedure firstassignment(var p : ptree);
+{$ifdef dummyi386}
       var
-         hp : ptree;
+        hp : ptree;
+{$endif}
       begin
          { must be made unique }
          set_unique(p^.left);
@@ -267,7 +269,6 @@ implementation
              end;
             { we call STRCOPY }
             procinfo^.flags:=procinfo^.flags or pi_do_call;
-            hp:=p^.right;
             { test for s:=s+anything ... }
             { the problem is for
               s:=s+s+s;
@@ -485,7 +486,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.60  2000-02-17 14:53:43  florian
+  Revision 1.61  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.60  2000/02/17 14:53:43  florian
     * some updates for the newcg
 
   Revision 1.59  2000/02/09 13:23:07  peter

compiler/tpexcept.pas

@@ -353,8 +353,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.11  2000-02-11 23:59:35  jonas
-    + {$asmmode att} for people with -Rintel in their ppc386.cfg
+  Revision 1.12  2000-02-24 18:41:39  peter
+    * removed warnings/notes
+
+  Revision 1.11  2000/02/11 23:59:35  jonas
+    + $asmmode att for people with -Rintel in their ppc386.cfg
 
   Revision 1.10  2000/02/09 13:23:08  peter
     * log truncated