rdfmt.c (rd_I): Delete unused variable(s).

	* 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.

From-SVN: r54168

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index cab86be281b31afc72c4c92cdbc1108a3f84bc0b..2d4db47350daf3ba921e45d46297185283377bb0 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 1006ab1982dfead03a711a92d289a1946d26a3ae..5371dc3a721b19e870a6211528f4f1d3fbaaf0fe 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 02dcd51f5bc24bddd7ec73c01fa184f9c829cf26..0a2dbce9d78b6d082eb87afab2701ea35bede4f1 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 d9afb5736594245faa44b7ba405c6bf199d7fd4c..bebdeb0a0c6d3d66e3a4c7b0f8168214f80ba1d7 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 554d259a6d93b831cd743ce64622944dab091ae6..86e620cbc2f0676d5262b3d8d50af0a70d7d19b1 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 34e6d7c712e1f54d3b582b97e6c79efcfc03b64e..56e660562b7486a7ffcae9de93641c401f138dc7 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 88c110f4f5e48bd677d1f30c8cf53c4d9a5a244e..f3070e4b6e9788354ea7f2fc1187ab1862a9c4cd 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 0d5a8300910e71e6425083a56336e9e01a283133..3914cc64ff4d999835fd9f8695d04b728212b2e9 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 bef384b6fea43e51c14ea8ef19cf03e582b835ca..59759bcfb5436aa59546eaae413bd51d9cb8d190 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 b864da298e33a50bd5bc922248a157fff7386b7f..65a63b7c9f5676f843b58f82cfe39940694af433 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 f51739a7867cc625d8d613f5053cdf33110d53ef..92ec605a4231f4cf389d8c348a1c12ef4cee7dcb 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 2d8fbcba87c8745b4286e76b0b0079633e91b845..08222d9274966aed7a8823641e985fefbcf00ab5 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);