- removed unused units form uses-clause and unused local vars

compiler/i386/n386flw.pas

@@ -54,12 +54,12 @@ interface
 implementation
 
     uses
-      verbose,globtype,globals,systems,
-      symconst,symdef,symsym,aasm,types,
+      verbose,systems,
+      symsym,aasm,
       cgbase,temp_gen,pass_2,
       cpubase,cpuasm,
-      pass_1,nld,ncon,
-      cga,tgcpu,n386util,regvars;
+      nld,ncon,
+      cga,tgcpu;
 
 {*****************************************************************************
                              SecondRaise
@@ -737,7 +737,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.17  2001-09-29 21:34:04  jonas
+  Revision 1.18  2001-09-30 16:16:28  jonas
+    - removed unused units form uses-clause and unused local vars
+
+  Revision 1.17  2001/09/29 21:34:04  jonas
     - removed unused code (replaced by processor independent code)
 
   Revision 1.16  2001/09/28 20:39:33  jonas

compiler/i386/n386inl.pas

@@ -39,42 +39,13 @@ implementation
     uses
       globtype,systems,
       cutils,verbose,globals,fmodule,
-      symconst,symbase,symtype,symdef,symsym,aasm,types,
+      symconst,symtype,symdef,aasm,types,
       cgbase,temp_gen,pass_1,pass_2,
       cpubase,
       nbas,ncon,ncal,ncnv,nld,
       cga,tgcpu,n386util;
 
 
-{*****************************************************************************
-                                Helpers
-*****************************************************************************}
-
-    { reverts the parameter list }
-    var nb_para : longint;
-
-    function reversparameter(p : tnode) : tnode;
-
-       var
-         hp1,hp2 : tnode;
-
-      begin
-         hp1:=nil;
-         nb_para := 0;
-         while assigned(p) do
-           begin
-              { pull out }
-              hp2:=p;
-              p:=tbinarynode(p).right;
-              inc(nb_para);
-              { pull in }
-              tbinarynode(hp2).right:=hp1;
-              hp1:=hp2;
-           end;
-         reversparameter:=hp1;
-       end;
-
-
 {*****************************************************************************
                               TI386INLINENODE
 *****************************************************************************}
@@ -88,8 +59,6 @@ implementation
          incdecop:array[in_inc_x..in_dec_x] of tasmop=(A_INC,A_DEC);
          addsubop:array[in_inc_x..in_dec_x] of tasmop=(A_ADD,A_SUB);
        var
-         aktfile : treference;
-         ft : tfiletyp;
          opsize : topsize;
          op,
          asmop : tasmop;
@@ -874,7 +843,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.26  2001-09-28 20:38:51  jonas
+  Revision 1.27  2001-09-30 16:16:28  jonas
+    - removed unused units form uses-clause and unused local vars
+
+  Revision 1.26  2001/09/28 20:38:51  jonas
     * fixed big bug in my previous changes (the arguent for bts/btr is always
       a 32 bit register, but it wasn't cleared properly if the value was only
       an 8 bit one)

compiler/ncgcnv.pas

@@ -49,12 +49,10 @@ interface
   implementation
 
     uses
-      globtype,
-      cutils,cclasses,globals,verbose,
-      aasm,symconst,symsym,symtable,symdef,symtype,types,
+      cutils,verbose,
+      aasm,symconst,symdef,
       ncon,ncal,
-      htypechk,
-      cpubase,cpuasm,
+      cpubase,
       pass_2,
       cgbase,
       cga,cgobj,cgcpu,
@@ -424,7 +422,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2001-09-29 21:32:47  jonas
+  Revision 1.2  2001-09-30 16:16:28  jonas
+    - removed unused units form uses-clause and unused local vars
+
+  Revision 1.1  2001/09/29 21:32:47  jonas
     * almost all second pass typeconvnode helpers are now processor independent
     * fixed converting boolean to int64/qword
     * fixed register allocation bugs which could cause internalerror 10

compiler/ninl.pas

@@ -56,7 +56,7 @@ implementation
 
     uses
       verbose,globals,systems,
-      globtype, cutils, aasm,
+      globtype, cutils,
       symbase,symconst,symtype,symdef,symsym,symtable,types,
       pass_1,
       ncal,ncon,ncnv,nadd,nld,nbas,nflw,nmem,
@@ -101,8 +101,6 @@ implementation
         dest,
         source  : tcallparanode;
         newnode : tnode;
-        len,
-        fraclen : longint;
         procname: string;
         is_real : boolean;
 
@@ -269,7 +267,6 @@ implementation
         p1            : tnode;
         filetemp,
         temp          : ttempcreatenode;
-        tempref       : ttemprefnode;
         procprefix,
         name          : string[31];
         srsym         : tvarsym;
@@ -1044,9 +1041,7 @@ implementation
          hp        : tnode;
          srsym     : tsym;
          def       : tdef;
-         p1,hpp    : tnode;
-         isreal,
-         oneisreal : boolean;
+         isreal    : boolean;
       label
          myexit;
       begin
@@ -1915,9 +1910,6 @@ implementation
       var
          srsym   : tsym;
          hp,hpp  : tnode;
-         extra_register,
-         iswrite,
-         file_is_typed : boolean;
 
       begin
          result:=nil;
@@ -2264,7 +2256,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.61  2001-09-24 16:09:55  jonas
+  Revision 1.62  2001-09-30 16:16:28  jonas
+    - removed unused units form uses-clause and unused local vars
+
+  Revision 1.61  2001/09/24 16:09:55  jonas
     * check if amount of dimensions passed to setlength for dynamic arrays
       is correct