mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-19 05:54:01 +08:00
Code Issues Packages Projects Releases Wiki Activity

main.c (f_setarg, f_setsig): Prototype.

Browse Source 
* 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
This commit is contained in:
Kaveh R. Ghazi 2002-06-04 02:25:48 +00:00 committed by Kaveh Ghazi
parent ac1db652a0
commit 7210c9aa60
7 changed files with 25 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libf2c/ChangeLog
View File

@ -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

2
libf2c/libF77/main.c
View File

@ -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)

1
libf2c/libI77/lread.c
View File

@ -13,7 +13,6 @@ extern int f__fmtlen;
#ifdef Allow_TYQUAD
static longint f__llx;
static int quad_read;
#endif
#undef abs

1
libf2c/libI77/uio.c
View File

@ -1,3 +1,4 @@
#include "config.h"
#include "f2c.h"
#include "fio.h"
#include <sys/types.h>

2
libf2c/libI77/wref.c
View File

@ -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])
{

13
libf2c/libU77/dtime_.c
View File

@ -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;

13
libf2c/libU77/etime_.c
View File

@ -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;