diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 7e705f1961c..b3582a17ad4 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,12 @@ +Mon Jun 3 22:24:48 2002 Kaveh R. Ghazi + + * 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 * libF77/lbitbits.c (lbit_cshift): disambiguate expressions diff --git a/libf2c/libF77/main.c b/libf2c/libF77/main.c index d1b4f4bf7ca..a3955cbc1a7 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 f8ec7dc0e90..b926367b930 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 8a66f06dc62..706b5dd3d9c 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 diff --git a/libf2c/libI77/wref.c b/libf2c/libI77/wref.c index f3c490c4fdf..0dc30919da4 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 cc3961b4dff..dc9a8639df2 100644 --- a/libf2c/libU77/dtime_.c +++ b/libf2c/libU77/dtime_.c @@ -44,13 +44,6 @@ Boston, MA 02111-1307, USA. */ #include /* 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 f942ea829b6..d0edb2fbcd3 100644 --- a/libf2c/libU77/etime_.c +++ b/libf2c/libU77/etime_.c @@ -44,13 +44,6 @@ Boston, MA 02111-1307, USA. */ #include /* 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;