From be8d4b2e2654af8939d08af633cbf1c119eac912 Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Wed, 7 May 2003 11:55:34 +0000
Subject: [PATCH] - unused units removed from uses clause - unused variables
 removed from implemntation declarations

---
 compiler/sparc/cpugas.pas | 27 +++++++--------------------
 1 file changed, 7 insertions(+), 20 deletions(-)

diff --git a/compiler/sparc/cpugas.pas b/compiler/sparc/cpugas.pas
index 36576b0d02..9a0c1bfc9a 100644
--- a/compiler/sparc/cpugas.pas
+++ b/compiler/sparc/cpugas.pas
@@ -22,34 +22,17 @@ unit CpuGas;
 {$MACRO ON}{$INCLUDE fpcdefs.inc}
 interface
 uses
-  cclasses,cpubase,
-  globals,
-  aasmbase,aasmtai,aasmcpu,assemble,aggas;
+  cpubase,
+  aasmtai,aasmcpu,assemble,aggas;
 type
   TGasSPARC=class(TGnuAssembler)
     procedure WriteInstruction(hp:Tai);override;
   end;
 implementation
 uses
-  finput,
   cutils,systems,
   verbose;
 {$DEFINE gas_reg2str:=std_reg2str}
-const
-  line_length = 70;
-var
-{$ifdef GDB}
-      n_line:byte;     { different types of source lines }
-      linecount,
-      includecount:longint;
-      funcname:pchar;
-      stabslastfileinfo:tfileposinfo;
-{$endif}
-      lastsec:tsection; { last section type written }
-      lastfileinfo:tfileposinfo;
-      infile,
-      lastinfile:tinputfile;
-      symendcount:longint;
 function GetReferenceString(var ref:TReference):string;
   begin
     GetReferenceString:='+';
@@ -209,7 +192,11 @@ initialization
 end.
 {
     $Log$
-    Revision 1.13  2003-05-06 14:55:27  mazen
+    Revision 1.14  2003-05-07 11:55:34  mazen
+    - unused units removed from uses clause
+    - unused variables removed from implemntation declarations
+
+    Revision 1.13  2003/05/06 14:55:27  mazen
     * comment changed to ;# instead of ##
     * .bss section changed to .section ".bss"