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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 7e705f1961c1cdba4905eedbb58953a9892d796e..b3582a17ad4e4565aa492688d63d7545c3f51b6d 100644 (file)
--- 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 d1b4f4bf7ca05705aaa7dcf95168fa0d73df5be1..a3955cbc1a764f76efd41f803250bee5238493ef 100644 (file)
--- 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 f8ec7dc0e90d838b8205d11a7b5883382d1c0f8d..b926367b930828f1855bb219bd39457a385ce4bc 100644 (file)
--- 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 8a66f06dc626948efda205e0e8eaf210d86c86bd..706b5dd3d9c231df7e1c9f7aa43294a2c53b268a 100644 (file)
--- 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 f3c490c4fdfce8fe2165c3d4537941b6b51828a8..0dc30919da4c0c3f9894e35a884187f48ad59b04 100644 (file)
--- 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 cc3961b4dffb3df2a526e1ed474070472d92d0ee..dc9a8639df2386549111e0bf58196b03eaa51e23 100644 (file)
--- 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 f942ea829b6e747b28802eff48136569d83e676f..d0edb2fbcd3eb41a00c5823e688bb0a5f73fbb04 100644 (file)
--- 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;