diff options
author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2002-06-04 02:25:48 +0000 |
---|---|---|
committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2002-06-04 02:25:48 +0000 |
commit | 7210c9aa601e4c713af8aa5991fd1209dd864b64 (patch) | |
tree | 38947b5d8e852471651d7c417c25445933e1bd2c /libf2c | |
parent | ac1db652a0f9c208904e5dc831ffee202a9929e0 (diff) | |
download | gcc-7210c9aa601e4c713af8aa5991fd1209dd864b64.zip gcc-7210c9aa601e4c713af8aa5991fd1209dd864b64.tar.gz gcc-7210c9aa601e4c713af8aa5991fd1209dd864b64.tar.bz2 |
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
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/ChangeLog | 9 | ||||
-rw-r--r-- | libf2c/libF77/main.c | 2 | ||||
-rw-r--r-- | libf2c/libI77/lread.c | 1 | ||||
-rw-r--r-- | libf2c/libI77/uio.c | 1 | ||||
-rw-r--r-- | libf2c/libI77/wref.c | 2 | ||||
-rw-r--r-- | libf2c/libU77/dtime_.c | 13 | ||||
-rw-r--r-- | libf2c/libU77/etime_.c | 13 |
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; |