* libI77/rdfmt.c (rd_I): Delete unused variable(s).

	* libU77/access_.c (G77_access_0): Likewise.
	* libU77/chdir_.c (G77_chdir_0): Likewise.
	* libU77/chmod_.c (G77_chmod_0): Likewise.
	* libU77/ctime_.c (G77_ctime_0): Likewise.
	* libU77/link_.c (G77_link_0): Likewise.
	* libU77/lstat_.c (G77_lstat_0): Likewise.
	* libU77/rename_.c (G77_rename_0): Likewise.
	* libU77/stat_.c (G77_stat_0): Likewise.
	* libU77/symlnk_.c (G77_symlnk_0): Likewise.
	* libU77/unlink_.c (G77_unlink_0): Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54168 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index cab86be..2d4db47 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,17 @@
+Sun Jun  2 08:58:05 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * libI77/rdfmt.c (rd_I): Delete unused variable(s).
+       * libU77/access_.c (G77_access_0): Likewise.
+       * libU77/chdir_.c (G77_chdir_0): Likewise.
+       * libU77/chmod_.c (G77_chmod_0): Likewise.
+       * libU77/ctime_.c (G77_ctime_0): Likewise.
+       * libU77/link_.c (G77_link_0): Likewise.
+       * libU77/lstat_.c (G77_lstat_0): Likewise.
+       * libU77/rename_.c (G77_rename_0): Likewise.
+       * libU77/stat_.c (G77_stat_0): Likewise.
+       * libU77/symlnk_.c (G77_symlnk_0): Likewise.
+       * libU77/unlink_.c (G77_unlink_0): Likewise.
+
 Sun Jun  2 08:55:20 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * libI77/inquire.c (f_inqu): Avoid ambiguous else clauses.

diff --git a/libf2c/libI77/rdfmt.c b/libf2c/libI77/rdfmt.c
index 1006ab1..5371dc3 100644 (file)
--- a/libf2c/libI77/rdfmt.c
+++ b/libf2c/libI77/rdfmt.c
@@ -96,7 +96,7 @@ rd_Z (Uint * n, int w, ftnlen len)
 static int
 rd_I (Uint * n, int w, ftnlen len, register int base)
 {
-  int bad, ch, sign;
+  int ch, sign;
   longint x = 0;
 
   if (w <= 0)

diff --git a/libf2c/libU77/access_.c b/libf2c/libU77/access_.c
index 02dcd51..0a2dbce 100644 (file)
--- a/libf2c/libU77/access_.c
+++ b/libf2c/libU77/access_.c
@@ -51,7 +51,6 @@ integer
 G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
 {
   char *buff;
-  char *bp, *blast;
   int amode, i;
 
   buff = malloc (Lname + 1);

diff --git a/libf2c/libU77/chdir_.c b/libf2c/libU77/chdir_.c
index d9afb57..bebdeb0 100644 (file)
--- a/libf2c/libU77/chdir_.c
+++ b/libf2c/libU77/chdir_.c
@@ -38,7 +38,6 @@ integer
 G77_chdir_0 (const char *name, const ftnlen Lname)
 {
   char *buff;
-  char *bp, *blast;
   int i;
 
   buff = malloc (Lname + 1);

diff --git a/libf2c/libU77/chmod_.c b/libf2c/libU77/chmod_.c
index 554d259..86e620c 100644 (file)
--- a/libf2c/libU77/chmod_.c
+++ b/libf2c/libU77/chmod_.c
@@ -50,7 +50,6 @@ G77_chmod_0 ( /* const */ char *name, /* const */ char *mode,
             const ftnlen Lname, const ftnlen Lmode)
 {
   char *buff;
-  char *bp, *blast;
   int i;
   ftnlen l, l2;
   ftnlen six = 6;

diff --git a/libf2c/libU77/ctime_.c b/libf2c/libU77/ctime_.c
index 34e6d7c..56e6605 100644 (file)
--- a/libf2c/libU77/ctime_.c
+++ b/libf2c/libU77/ctime_.c
@@ -42,7 +42,6 @@ Boston, MA 02111-1307, USA.  */
 /* Character */ void
 G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
 {
-  int i, l;
   int s_copy ();
   time_t stime = *xstime;
 

diff --git a/libf2c/libU77/link_.c b/libf2c/libU77/link_.c
index 88c110f..f3070e4 100644 (file)
--- a/libf2c/libU77/link_.c
+++ b/libf2c/libU77/link_.c
@@ -42,7 +42,6 @@ G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1,
 {
 #if defined (HAVE_LINK)
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
   buff1 = malloc (Lpath1 + 1);

diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c
index 0d5a830..3914cc6 100644 (file)
--- a/libf2c/libU77/lstat_.c
+++ b/libf2c/libU77/lstat_.c
@@ -37,7 +37,6 @@ G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
 {
 #if HAVE_LSTAT
   char *buff;
-  char *bp, *blast;
   int err;
   struct stat buf;
 

diff --git a/libf2c/libU77/rename_.c b/libf2c/libU77/rename_.c
index bef384b..59759bc 100644 (file)
--- a/libf2c/libU77/rename_.c
+++ b/libf2c/libU77/rename_.c
@@ -36,7 +36,6 @@ G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1,
              const ftnlen Lpath2)
 {
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
   buff1 = malloc (Lpath1 + 1);

diff --git a/libf2c/libU77/stat_.c b/libf2c/libU77/stat_.c
index b864da2..65a63b7 100644 (file)
--- a/libf2c/libU77/stat_.c
+++ b/libf2c/libU77/stat_.c
@@ -33,7 +33,6 @@ integer
 G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
 {
   char *buff;
-  char *bp, *blast;
   int err;
   struct stat buf;
 

diff --git a/libf2c/libU77/symlnk_.c b/libf2c/libU77/symlnk_.c
index f51739a..92ec605 100644 (file)
--- a/libf2c/libU77/symlnk_.c
+++ b/libf2c/libU77/symlnk_.c
@@ -41,7 +41,6 @@ G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1,
 {
 #if HAVE_SYMLINK
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
   buff1 = (char *) malloc (Lpath1 + 1);

diff --git a/libf2c/libU77/unlink_.c b/libf2c/libU77/unlink_.c
index 2d8fbcb..08222d9 100644 (file)
--- a/libf2c/libU77/unlink_.c
+++ b/libf2c/libU77/unlink_.c
@@ -39,7 +39,6 @@ integer
 G77_unlink_0 (const char *str, const ftnlen Lstr)
 {
   char *buff;
-  char *bp, *blast;
   int i;
 
   buff = malloc (Lstr + 1);