OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sys_clock_.c: File renamed from system_clock_.c.

Browse Source 
* libU77/sys_clock_.c: File renamed from system_clock_.c.
        libU77/Makefile.in, Makefile.in : Reference sys_clock_.*, not
        system_clock_.*.
        * libU77/dtime_.c (clk_tck): Try also HZ macro.
        * libU77/access.c (G77_access_0): Check malloc return value against 0,
        not NULL.
        libU77/getlog_.c, libU77/ttynam_.c, libU77/chdir_.c: Ditto.
        libU77/chmod_.c, libU77/rename_.c: Ditto.

From-SVN: r15821
This commit is contained in:
Philippe De Muyter 1997-10-01 09:43:22 +02:00 committed by Jeff Law
parent 3c8f617e2f
commit 56f21d6ffd
12 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/f/runtime/ChangeLog.egcs
View File

@ -1,3 +1,14 @@
Wed Oct 1 01:46:16 1997 Philippe De Muyter <phdm@info.ucl.ac.be>
* libU77/sys_clock_.c: File renamed from system_clock_.c.
libU77/Makefile.in, Makefile.in : Reference sys_clock_.*, not
system_clock_.*.
* libU77/dtime_.c (clk_tck): Try also HZ macro.
* libU77/access.c (G77_access_0): Check malloc return value against 0,
not NULL.
libU77/getlog_.c, libU77/ttynam_.c, libU77/chdir_.c: Ditto.
libU77/chmod_.c, libU77/rename_.c: Ditto.
1997-09-19 Dave Love <d.love@dl.ac.uk>
* libU77/dtime_.c (G77_dtime_0): Fix types in HAVE_GETRUSAGE case

2
gcc/f/runtime/Makefile.in
View File

@ -131,7 +131,7 @@ UOBJ = libU77/VersionU.o libU77/gerror_.o libU77/perror_.o libU77/ierrno_.o \
libU77/vxtidate_.o libU77/gmtime_.o libU77/fdate_.o libU77/secnds_.o \
libU77/bes.o libU77/dbes.o libU77/chdir_.o libU77/chmod_.o \
libU77/lnblnk_.o libU77/hostnm_.o libU77/rename_.o libU77/fgetc_.o \
libU77/fputc_.o libU77/umask_.o libU77/system_clock_.o libU77/date_.o \
libU77/fputc_.o libU77/umask_.o libU77/sys_clock_.o libU77/date_.o \
libU77/second_.o libU77/flush1_.o libU77/alarm_.o libU77/mclock_.o \
libU77/symlnk_.o

6
gcc/f/runtime/libU77/Makefile.in
View File

@ -58,7 +58,7 @@ OBJS = VersionU.o gerror_.o perror_.o ierrno_.o itime_.o time_.o \
vxttime_.o vxtidate_.o gmtime_.o fdate_.o secnds_.o \
bes.o dbes.o \
chdir_.o chmod_.o lnblnk_.o hostnm_.o rename_.o fgetc_.o fputc_.o \
umask_.o system_clock_.o date_.o second_.o flush1_.o mclock_.o \
umask_.o sys_clock_.o date_.o second_.o flush1_.o mclock_.o \
alarm_.o
SRCS = Version.c gerror_.c perror_.c ierrno_.c itime_.c time_.c \
unlink_.c fnum_.c getpid_.c getuid_.c getgid_.c kill_.c rand_.c \
@ -68,7 +68,7 @@ SRCS = Version.c gerror_.c perror_.c ierrno_.c itime_.c time_.c \
vxttime_.c vxtidate_.c gmtime_.c fdate_.c secnds_.c \
bes.c dbes.c \
chdir_.c chmod_.c lnblnk_.c hostnm_.c rename_.c fgetc_.c fputc_.c \
umask_.c system_clock_.c date_.c second_.c flush1_.c mclock_.c \
umask_.c sys_clock_.c date_.c second_.c flush1_.c mclock_.c \
alarm_.c
F2C_H = ../../../include/f2c.h
@ -146,7 +146,7 @@ hostnm_.o: hostnm_.c
rename_.o: rename_.c
fputc_.o: fputc_.c
fgetc_.o: fgetc_.c
system_clock_.o: system_clock_.c
sys_clock_.o: sys_clock_.c
umask_.o: umask_.c
flush1_.o: flush1_.c
mclock_.o: mclock_.c

4
gcc/f/runtime/libU77/access_.c
View File

@ -25,7 +25,7 @@ Boston, MA 02111-1307, USA. */
#if HAVE_STDLIB_H
# include <stdlib.h>
#else
# include <stdio.h> /* for NULL */
# include <stdio.h>
#endif
#include <errno.h>
@ -62,7 +62,7 @@ integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen L
int amode, i;
buff = malloc (Lname+1);
if (buff == NULL) return -1;
if (!buff) return -1;
g_char (name, Lname, buff);
amode = 0;
for (i=0;i<Lmode;i++) {

2
gcc/f/runtime/libU77/chdir_.c
View File

@ -49,7 +49,7 @@ integer G77_chdir_0 (const char *name, const ftnlen Lname)
int i;
buff = malloc (Lname+1);
if (buff == NULL) return -1;
if (!buff) return -1;
g_char (name, Lname, buff);
i = chdir (buff);
free (buff);

4
gcc/f/runtime/libU77/chmod_.c
View File

@ -29,7 +29,7 @@ Boston, MA 02111-1307, USA. */
#if HAVE_STDLIB_H
# include <stdlib.h>
#else
# include <stdio.h> /* for NULL */
# include <stdio.h>
#endif
#include "f2c.h"
@ -62,7 +62,7 @@ integer G77_chmod_0 (/* const */ char *name, /* const */ char *mode, const ftnle
char chmod_path [] = CHMOD_PATH;
l = strlen (chmod_path);
buff = malloc (Lname+Lmode+l+3+13+1);
if (buff == NULL) return -1;
if (!buff) return -1;
ii[0] = l; a[0] = chmod_path;
ii[1] = 1; a[1] = " ";
ii[2] = Lmode; a[2] = mode;

4
gcc/f/runtime/libU77/dtime_.c
View File

@ -22,7 +22,9 @@ Boston, MA 02111-1307, USA. */
#if HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <sys/types.h>
#include <sys/times.h>
#include <sys/param.h>
#if HAVE_GETRUSAGE
# include <sys/time.h>
# include <sys/resource.h>
@ -70,6 +72,8 @@ double G77_dtime_0 (real tarray[2])
if (! clk_tck) clk_tck = CLOCKS_PER_SECOND;
# elif defined CLK_TCK
if (! clk_tck) clk_tck = CLK_TCK;
# elif defined HZ
if (! clk_tck) clk_tck = HZ;
# elif defined HAVE_GETRUSAGE
# else
#error Dont know clock tick length

2
gcc/f/runtime/libU77/etime_.c
View File

@ -66,6 +66,8 @@ double G77_etime_0 (real tarray[2])
if (! clk_tck) clk_tck = CLOCKS_PER_SECOND;
# elif defined CLK_TCK
if (! clk_tck) clk_tck = CLK_TCK;
# elif defined HZ
if (! clk_tck) clk_tck = HZ;
# elif defined HAVE_GETRUSAGE
# else
#error Dont know clock tick length

1
gcc/f/runtime/libU77/getlog_.c
View File

@ -19,6 +19,7 @@ Boston, MA 02111-1307, USA. */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <sys/types.h>
#if HAVE_STDLIB_H
# include <stdlib.h>
#else

3
gcc/f/runtime/libU77/rename_.c
View File

@ -19,6 +19,9 @@ Boston, MA 02111-1307, USA. */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#if HAVE_UNISTD_H
# include <unistd.h>
#endif
#if HAVE_STDLIB_H
# include <stdlib.h>
#endif

2
gcc/f/runtime/libU77/system_clock_.c → gcc/f/runtime/libU77/sys_clock_.c
View File

@ -51,6 +51,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

1
gcc/f/runtime/libU77/ttynam_.c
View File

@ -19,6 +19,7 @@ Boston, MA 02111-1307, USA. */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <sys/types.h>
#if STDC_HEADERS
# include <stdlib.h>
#endif