main.c (f_setarg, f_setsig): Prototype.

	* libF77/main.c (f_setarg, f_setsig): Prototype.
	* libI77/lread.c (quad_read): Delete.
	* libI77/uio.c: Include config.h.
	* libI77/wref.c (wrt_E): Cast isdigit arg to unsigned char.
	* libU77/dtime_.c (clk_tck): Move to the scope where it is used.
	* libU77/etime_.c (clk_tck): Likewise.

From-SVN: r54224

7 files changed, 25 insertions, 16 deletions

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 7e705f1..b3582a1 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,12 @@
+Mon Jun  3 22:24:48 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* libF77/main.c (f_setarg, f_setsig): Prototype.
+	* libI77/lread.c (quad_read): Delete.
+	* libI77/uio.c: Include config.h.
+	* libI77/wref.c (wrt_E): Cast isdigit arg to unsigned char.
+	* libU77/dtime_.c (clk_tck): Move to the scope where it is used.
+	* libU77/etime_.c (clk_tck): Likewise.
+
 Mon Jun  3 22:23:03 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* libF77/lbitbits.c (lbit_cshift): disambiguate expressions
diff --git a/libf2c/libF77/main.c b/libf2c/libF77/main.c
index d1b4f4b..a3955cb 100644
--- a/libf2c/libF77/main.c
+++ b/libf2c/libF77/main.c
@@ -13,6 +13,8 @@ extern int atexit (void (*)(void));
 
 extern void f_init (void);
 extern int MAIN__ (void);
+extern void f_setarg (int, char **);
+extern void f_setsig (void);
 
 int
 main (int argc, char **argv)
diff --git a/libf2c/libI77/lread.c b/libf2c/libI77/lread.c
index f8ec7dc..b926367 100644
--- a/libf2c/libI77/lread.c
+++ b/libf2c/libI77/lread.c
@@ -13,7 +13,6 @@ extern int f__fmtlen;
 
 #ifdef Allow_TYQUAD
 static longint f__llx;
-static int quad_read;
 #endif
 
 #undef abs
diff --git a/libf2c/libI77/uio.c b/libf2c/libI77/uio.c
index 8a66f06..706b5dd 100644
--- a/libf2c/libI77/uio.c
+++ b/libf2c/libI77/uio.c
@@ -1,3 +1,4 @@
+#include "config.h"
 #include "f2c.h"
 #include "fio.h"
 #include <sys/types.h>
diff --git a/libf2c/libI77/wref.c b/libf2c/libI77/wref.c
index f3c490c..0dc30919 100644
--- a/libf2c/libI77/wref.c
+++ b/libf2c/libI77/wref.c
@@ -82,7 +82,7 @@ wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
   sprintf (buf, "%#.*E", d, dd);
 #ifndef VAX
   /* check for NaN, Infinity */
-  if (!isdigit (buf[0]))
+  if (!isdigit ((unsigned char) buf[0]))
     {
       switch (buf[0])
 	{
diff --git a/libf2c/libU77/dtime_.c b/libf2c/libU77/dtime_.c
index cc3961b..dc9a863 100644
--- a/libf2c/libU77/dtime_.c
+++ b/libf2c/libU77/dtime_.c
@@ -44,13 +44,6 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-/* For dtime, etime we store the clock tick parameter (clk_tck) the
-   first time either of them is invoked rather than each time.  This
-   approach probably speeds up each invocation by avoiding a system
-   call each time, but means that the overhead of the first call is
-   different to all others. */
-static long clk_tck = 0;
-
 double
 G77_dtime_0 (real tarray[2])
 {
@@ -136,6 +129,12 @@ G77_dtime_0 (real tarray[2])
     (float) (rbuff.ru_stime).tv_usec / 1000000.0;
   tarray[1] = stime - old_stime;
 #else /* HAVE_GETRUSAGE */
+  /* For dtime, etime we store the clock tick parameter (clk_tck) the
+     first time either of them is invoked rather than each time.  This
+     approach probably speeds up each invocation by avoiding a system
+     call each time, but means that the overhead of the first call is
+     different to all others. */
+  static long clk_tck = 0;
   time_t utime, stime;
   static time_t old_utime = 0, old_stime = 0;
   struct tms buffer;
diff --git a/libf2c/libU77/etime_.c b/libf2c/libU77/etime_.c
index f942ea8..d0edb2f 100644
--- a/libf2c/libU77/etime_.c
+++ b/libf2c/libU77/etime_.c
@@ -44,13 +44,6 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>		/* for ENOSYS */
 #include "f2c.h"
 
-/* For dtime, etime we store the clock tick parameter (clk_tck) the
-   first time either of them is invoked rather than each time.  This
-   approach probably speeds up each invocation by avoiding a system
-   call each time, but means that the overhead of the first call is
-   different to all others. */
-static long clk_tck = 0;
-
 double
 G77_etime_0 (real tarray[2])
 {
@@ -131,6 +124,12 @@ G77_etime_0 (real tarray[2])
   tarray[1] = ((float) (rbuff.ru_stime).tv_sec +
 	       (float) (rbuff.ru_stime).tv_usec / 1000000.0);
 #else /* HAVE_GETRUSAGE */
+  /* For dtime, etime we store the clock tick parameter (clk_tck) the
+     first time either of them is invoked rather than each time.  This
+     approach probably speeds up each invocation by avoiding a system
+     call each time, but means that the overhead of the first call is
+     different to all others. */
+  static long clk_tck = 0;
   struct tms buffer;
 
 /* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf;