Replace TIMES conditional stuff removed in
error by last change. From-SVN: r21027
This commit is contained in:
parent
da490d1483
commit
c7fb2688ea
|
@ -1,4 +1,4 @@
|
|||
/* Copyright (C) 1996 Free Software Foundation, Inc.
|
||||
/* Copyright (C) 1996, 1998 Free Software Foundation, Inc.
|
||||
This file is part of GNU Fortran libU77 library.
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
|
@ -29,11 +29,14 @@ Boston, MA 02111-1307, USA. */
|
|||
# include <time.h>
|
||||
# endif
|
||||
#endif
|
||||
#if HAVE_SYS_TIMES_H
|
||||
# include <sys/times.h>
|
||||
#endif
|
||||
#include <limits.h>
|
||||
#if HAVE_UNISTD_H
|
||||
# include <unistd.h>
|
||||
#endif
|
||||
#include <errno.h> /* for ENOSYS */
|
||||
#include "f2c.h"
|
||||
|
||||
#ifdef KR_headers
|
||||
|
@ -43,6 +46,7 @@ int G77_system_clock_0 (count, count_rate, count_max)
|
|||
int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
|
||||
#endif
|
||||
{
|
||||
#if defined (HAVE_TIMES)
|
||||
struct tms buffer;
|
||||
unsigned long cnt;
|
||||
if (count_rate) {
|
||||
|
@ -52,6 +56,8 @@ int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
|
|||
*count_rate = CLOCKS_PER_SECOND;
|
||||
#elif defined CLK_TCK
|
||||
*count_rate = CLK_TCK;
|
||||
#elif defined HZ
|
||||
*count_rate = HZ;
|
||||
#else
|
||||
#error Dont know clock tick length
|
||||
#endif
|
||||
|
@ -64,4 +70,8 @@ int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
|
|||
else
|
||||
*count = cnt;
|
||||
return 0;
|
||||
#else /* ! HAVE_TIMES */
|
||||
errno = ENOSYS;
|
||||
return -1;
|
||||
#endif /* ! HAVE_TIMES */
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue