This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Patch to remove KR_headers from libf2c part3
- From: "Kaveh R. Ghazi" <ghazi at caip dot rutgers dot edu>
- To: gcc-patches at gcc dot gnu dot org
- Cc: toon at moene dot indiv dot nluug dot nl
- Date: Fri, 31 May 2002 00:26:09 -0400 (EDT)
- Subject: Patch to remove KR_headers from libf2c part3
Part3 for libU77. Ok to install?
2002-05-30 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libU77/*: Delete KR_headers cruft.
diff -rup orig/egcc-CVS20020524/libf2c/libU77/access_.c egcc-CVS20020524/libf2c/libU77/access_.c
--- orig/egcc-CVS20020524/libf2c/libU77/access_.c 1999-09-04 11:09:18.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/access_.c 2002-05-24 22:40:21.865962873 -0400
@@ -45,17 +45,9 @@ Boston, MA 02111-1307, USA. */
# define F_OK 0
#endif
-#ifdef KR_headers
-void g_char ();
-
-integer G77_access_0 (name, mode, Lname, Lmode)
- char *name, *mode;
- ftnlen Lname, Lmode;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
-#endif
{
char *buff;
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/alarm_.c egcc-CVS20020524/libf2c/libU77/alarm_.c
--- orig/egcc-CVS20020524/libf2c/libU77/alarm_.c 2001-01-25 00:11:38.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/alarm_.c 2002-05-24 22:40:40.324200742 -0400
@@ -29,32 +29,18 @@ Boston, MA 02111-1307, USA. */
#ifndef RETSIGTYPE
/* we shouldn't rely on this... */
-#ifdef KR_headers
-#define RETSIGTYPE int
-#else
#define RETSIGTYPE void
#endif
-#endif
typedef RETSIGTYPE (*sig_type)();
-#ifdef KR_headers
-extern sig_type signal();
-#else
#include <signal.h>
typedef int (*sig_proc)(int);
-#endif
#ifndef SIG_ERR
#define SIG_ERR ((sig_type) -1)
#endif
-#ifdef KR_headers
-integer G77_alarm_0 (seconds, proc)
- integer *seconds;
- sig_type proc;
-#else
integer G77_alarm_0 (integer *seconds, sig_proc proc)
-#endif
{
int status;
#if defined (HAVE_ALARM) && defined (SIGALRM)
diff -rup orig/egcc-CVS20020524/libf2c/libU77/chdir_.c egcc-CVS20020524/libf2c/libU77/chdir_.c
--- orig/egcc-CVS20020524/libf2c/libU77/chdir_.c 1999-09-04 11:09:18.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/chdir_.c 2002-05-24 22:40:49.143325268 -0400
@@ -32,17 +32,9 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
-#ifdef KR_headers
-void g_char ();
-
-integer G77_chdir_0 (name, Lname)
- char *name;
- ftnlen Lname;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_chdir_0 (const char *name, const ftnlen Lname)
-#endif
{
char *buff;
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/chmod_.c egcc-CVS20020524/libf2c/libU77/chmod_.c
--- orig/egcc-CVS20020524/libf2c/libU77/chmod_.c 1999-09-04 11:09:18.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/chmod_.c 2002-05-24 22:40:56.212636001 -0400
@@ -41,19 +41,10 @@ Boston, MA 02111-1307, USA. */
#define CHMOD_PATH "/bin/chmod"
#endif
-#ifdef KR_headers
-extern void s_cat ();
-void g_char ();
-
-integer G77_chmod_0 (name, mode, Lname, Lmode)
- char *name, *mode;
- ftnlen Lname, Lmode;
-#else
extern void s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll);
void g_char(const char *a, ftnlen alen, char *b);
integer G77_chmod_0 (/* const */ char *name, /* const */ char *mode, const ftnlen Lname, const ftnlen Lmode)
-#endif
{
char *buff;
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/configure.in egcc-CVS20020524/libf2c/libU77/configure.in
--- orig/egcc-CVS20020524/libf2c/libU77/configure.in 2001-10-01 00:46:30.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/configure.in 2002-05-24 22:39:50.209087159 -0400
@@ -70,17 +70,6 @@ fi
dnl Checks for header files.
AC_HEADER_STDC
-dnl We could do this if we didn't know we were using gcc
-dnl AC_MSG_CHECKING(for prototype-savvy compiler)
-dnl AC_CACHE_VAL(ac_cv_sys_proto,
-dnl [AC_TRY_LINK(,
-dnl dnl looks screwy because TRY_LINK expects a function body
-dnl [return 0;} int foo (int * bar) {],
-dnl ac_cv_sys_proto=yes,
-dnl [ac_cv_sys_proto=no
-dnl AC_DEFINE(KR_headers)])])
-dnl AC_MSG_RESULT($ac_cv_sys_proto)
-
AC_HEADER_TIME
AC_CHECK_HEADERS(limits.h unistd.h sys/time.h string.h stdlib.h \
sys/param.h sys/times.h)
diff -rup orig/egcc-CVS20020524/libf2c/libU77/ctime_.c egcc-CVS20020524/libf2c/libU77/ctime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/ctime_.c 2001-01-23 18:20:29.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/ctime_.c 2002-05-24 22:41:03.671859011 -0400
@@ -39,14 +39,7 @@ Boston, MA 02111-1307, USA. */
/* may need sys/time.h & long arg for stime (bsd, svr1-3) */
-#ifdef KR_headers
-/* Character */ void G77_ctime_0 (chtime, Lchtime, xstime)
- char *chtime;
- longint * xstime;
- ftnlen Lchtime;
-#else
/* Character */ void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
-#endif
{
int i, l;
int s_copy ();
diff -rup orig/egcc-CVS20020524/libf2c/libU77/datetime_.c egcc-CVS20020524/libf2c/libU77/datetime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/datetime_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/datetime_.c 2002-05-24 22:59:59.545106567 -0400
@@ -33,11 +33,7 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-VOID s_copy ();
-#else
void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-#endif
int G77_date_and_time_0 (char *date, char *fftime, char *zone,
integer *values, ftnlen date_len,
diff -rup orig/egcc-CVS20020524/libf2c/libU77/dtime_.c egcc-CVS20020524/libf2c/libU77/dtime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/dtime_.c 2000-06-21 16:13:23.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/dtime_.c 2002-05-24 23:00:05.934546525 -0400
@@ -51,12 +51,7 @@ Boston, MA 02111-1307, USA. */
different to all others. */
static long clk_tck = 0;
-#ifdef KR_headers
-double G77_dtime_0 (tarray)
- real tarray[2];
-#else
double G77_dtime_0 (real tarray[2])
-#endif
{
#if defined (_WIN32)
static int win32_platform = -1;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/etime_.c egcc-CVS20020524/libf2c/libU77/etime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/etime_.c 2000-06-21 16:13:23.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/etime_.c 2002-05-24 23:00:12.903886499 -0400
@@ -51,12 +51,7 @@ Boston, MA 02111-1307, USA. */
different to all others. */
static long clk_tck = 0;
-#ifdef KR_headers
-double G77_etime_0 (tarray)
- real tarray[2];
-#else
double G77_etime_0 (real tarray[2])
-#endif
{
#if defined (_WIN32)
static int win32_platform = -1;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/fgetc_.c egcc-CVS20020524/libf2c/libU77/fgetc_.c
--- orig/egcc-CVS20020524/libf2c/libU77/fgetc_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/fgetc_.c 2002-05-24 23:00:26.412694079 -0400
@@ -26,14 +26,7 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-#ifdef KR_headers
-integer G77_fgetc_0 (lunit, c, Lc)
- integer *lunit;
- ftnlen Lc; /* should be 1 */
- char *c;
-#else
integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc)
-#endif
{
int err;
FILE *f = f__units[*lunit].ufd;
@@ -56,13 +49,7 @@ integer G77_fgetc_0 (const integer *luni
return 0; }
}
-#ifdef KR_headers
-integer G77_fget_0 (c, Lc)
- ftnlen Lc; /* should be 1 */
- char *c;
-#else
integer G77_fget_0 (char *c, const ftnlen Lc)
-#endif
{
integer five = 5;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/flush1_.c egcc-CVS20020524/libf2c/libU77/flush1_.c
--- orig/egcc-CVS20020524/libf2c/libU77/flush1_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/flush1_.c 2002-05-24 23:01:03.849351466 -0400
@@ -25,16 +25,9 @@ Boston, MA 02111-1307, USA. */
/* This flushes a single unit, c.f. libI77 version. */
-#ifdef KR_headers
-extern integer G77_fnum_0 ();
-
-/* Subroutine */ int G77_flush1_0 (lunit)
- integer *lunit;
-#else
extern integer G77_fnum_0 (integer *);
/* Subroutine */ int G77_flush1_0 (const integer *lunit)
-#endif
{
if (*lunit>=MXUNIT || *lunit<0)
err(1,101,"flush");
diff -rup orig/egcc-CVS20020524/libf2c/libU77/fnum_.c egcc-CVS20020524/libf2c/libU77/fnum_.c
--- orig/egcc-CVS20020524/libf2c/libU77/fnum_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/fnum_.c 2002-05-24 23:01:16.638209547 -0400
@@ -22,12 +22,7 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-#ifdef KR_headers
-integer G77_fnum_0 (lunit)
- integer *lunit;
-#else
integer G77_fnum_0 (integer *lunit)
-#endif
{
if (*lunit>=MXUNIT || *lunit<0)
err(1,101,"fnum");
diff -rup orig/egcc-CVS20020524/libf2c/libU77/fputc_.c egcc-CVS20020524/libf2c/libU77/fputc_.c
--- orig/egcc-CVS20020524/libf2c/libU77/fputc_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/fputc_.c 2002-05-24 23:01:25.877410717 -0400
@@ -26,14 +26,7 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-#ifdef KR_headers
-integer G77_fputc_0 (lunit, c, Lc)
- integer *lunit;
- ftnlen Lc; /* should be 1 */
- char *c;
-#else
integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc)
-#endif
{
int err;
FILE *f = f__units[*lunit].ufd;
@@ -51,13 +44,7 @@ integer G77_fputc_0 (const integer *luni
return 0;
}
-#ifdef KR_headers
-integer G77_fput_0 (c, Lc)
- ftnlen Lc; /* should be 1 */
- char *c;
-#else
integer G77_fput_0 (const char *c, const ftnlen Lc)
-#endif
{
integer six = 6;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/fstat_.c egcc-CVS20020524/libf2c/libU77/fstat_.c
--- orig/egcc-CVS20020524/libf2c/libU77/fstat_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/fstat_.c 2002-05-24 23:01:34.186699102 -0400
@@ -26,17 +26,9 @@ Boston, MA 02111-1307, USA. */
#include <sys/types.h>
#include <sys/stat.h>
-#ifdef KR_headers
-extern integer G77_fnum_0 ();
-
-integer G77_fstat_0 (lunit, statb)
- integer *lunit;
- integer statb[13];
-#else
extern integer G77_fnum_0 (const integer *);
integer G77_fstat_0 (const integer *lunit, integer statb[13])
-#endif
{
int err;
struct stat buf;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/gerror_.c egcc-CVS20020524/libf2c/libU77/gerror_.c
--- orig/egcc-CVS20020524/libf2c/libU77/gerror_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/gerror_.c 2002-05-24 23:01:45.715612979 -0400
@@ -32,14 +32,8 @@ Boston, MA 02111-1307, USA. */
extern char *sys_errlist [];
# define strerror(i) (sys_errlist[i])
#endif
-#ifdef KR_headers
-extern void s_copy ();
-/* Subroutine */ int G77_gerror_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
/* Subroutine */ int G77_gerror_0 (char *str, ftnlen Lstr)
-#endif
{
char * s;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/getcwd_.c egcc-CVS20020524/libf2c/libU77/getcwd_.c
--- orig/egcc-CVS20020524/libf2c/libU77/getcwd_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/getcwd_.c 2002-05-24 23:02:02.164192062 -0400
@@ -37,14 +37,8 @@ Boston, MA 02111-1307, USA. */
extern char *getcwd ();
#endif
-#ifdef KR_headers
-extern void s_copy ();
-integer G77_getcwd_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
integer G77_getcwd_0 (char *str, const ftnlen Lstr)
-#endif
{
int i;
char *ret;
@@ -62,14 +56,8 @@ integer G77_getcwd_0 (char *str, const f
# include <sys/param.h>
extern char *getwd ();
-#ifdef KR_headers
-extern VOID s_copy ();
-integer G77_getcwd_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
integer G77_getcwd_0 (char *str, const ftnlen Lstr)
-#endif
{
char pathname[MAXPATHLEN];
size_t l;
@@ -84,14 +72,8 @@ integer G77_getcwd_0 (char *str, const f
#else /* !HAVE_GETWD && !HAVE_GETCWD */
-#ifdef KR_headers
-extern VOID s_copy ();
-integer G77_getcwd_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
integer G77_getcwd_0 (char *str, const ftnlen Lstr)
-#endif
{
return errno = ENOSYS;
}
diff -rup orig/egcc-CVS20020524/libf2c/libU77/getgid_.c egcc-CVS20020524/libf2c/libU77/getgid_.c
--- orig/egcc-CVS20020524/libf2c/libU77/getgid_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/getgid_.c 2002-05-24 23:02:11.383390767 -0400
@@ -26,11 +26,7 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-#ifdef KR_headers
-integer G77_getgid_0 ()
-#else
integer G77_getgid_0 (void)
-#endif
{
#if defined (HAVE_GETGID)
return getgid ();
diff -rup orig/egcc-CVS20020524/libf2c/libU77/getlog_.c egcc-CVS20020524/libf2c/libU77/getlog_.c
--- orig/egcc-CVS20020524/libf2c/libU77/getlog_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/getlog_.c 2002-05-24 23:02:19.172684649 -0400
@@ -41,14 +41,8 @@ Boston, MA 02111-1307, USA. */
/* SGI also has character*(*) function getlog() */
-#ifdef KR_headers
-extern VOID s_copy ();
-/* Subroutine */ int G77_getlog_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
/* Subroutine */ int G77_getlog_0 (char *str, const ftnlen Lstr)
-#endif
{
size_t i;
char *p;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/getpid_.c egcc-CVS20020524/libf2c/libU77/getpid_.c
--- orig/egcc-CVS20020524/libf2c/libU77/getpid_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/getpid_.c 2002-05-24 23:02:26.671967164 -0400
@@ -25,11 +25,7 @@ Boston, MA 02111-1307, USA. */
#include <sys/types.h>
#include "f2c.h"
-#ifdef KR_headers
-integer G77_getpid_0 ()
-#else
integer G77_getpid_0 (void)
-#endif
{
return getpid ();
}
diff -rup orig/egcc-CVS20020524/libf2c/libU77/getuid_.c egcc-CVS20020524/libf2c/libU77/getuid_.c
--- orig/egcc-CVS20020524/libf2c/libU77/getuid_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/getuid_.c 2002-05-24 23:02:34.641212416 -0400
@@ -26,11 +26,7 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-#ifdef KR_headers
-integer G77_getuid_0 ()
-#else
integer G77_getuid_0 (void)
-#endif
{
#if defined (HAVE_GETUID)
return getuid ();
diff -rup orig/egcc-CVS20020524/libf2c/libU77/gmtime_.c egcc-CVS20020524/libf2c/libU77/gmtime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/gmtime_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/gmtime_.c 2002-05-24 23:02:41.700529139 -0400
@@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-/* Subroutine */ int G77_gmtime_0 (xstime, tarray)
- integer *xstime, tarray[9];
-#else
/* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9])
-#endif
{
struct tm *lt;
time_t stime = *xstime;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/idate_.c egcc-CVS20020524/libf2c/libU77/idate_.c
--- orig/egcc-CVS20020524/libf2c/libU77/idate_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/idate_.c 2002-05-24 23:05:00.407986835 -0400
@@ -37,12 +37,7 @@ Boston, MA 02111-1307, USA. */
/* libU77 one: */
-#ifdef KR_headers
-/* Subroutine */ int G77_idate_0 (iarray)
- int iarray[3];
-#else
/* Subroutine */ int G77_idate_0 (int iarray[3])
-#endif
{
struct tm *lt;
time_t tim;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/ierrno_.c egcc-CVS20020524/libf2c/libU77/ierrno_.c
--- orig/egcc-CVS20020524/libf2c/libU77/ierrno_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/ierrno_.c 2002-05-24 23:05:05.607402787 -0400
@@ -22,11 +22,7 @@ Boston, MA 02111-1307, USA. */
#include <errno.h>
#include "f2c.h"
-#ifdef KR_headers
-integer G77_ierrno_0 ()
-#else
integer G77_ierrno_0 (void)
-#endif
{
return errno;
}
diff -rup orig/egcc-CVS20020524/libf2c/libU77/irand_.c egcc-CVS20020524/libf2c/libU77/irand_.c
--- orig/egcc-CVS20020524/libf2c/libU77/irand_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/irand_.c 2002-05-24 23:05:11.566822172 -0400
@@ -31,12 +31,7 @@ Boston, MA 02111-1307, USA. */
/* Note this is per SunOS -- other s may have no arg. */
-#ifdef KR_headers
-integer G77_irand_0 (flag)
- integer *flag;
-#else
integer G77_irand_0 (integer *flag)
-#endif
{
switch (*flag) {
case 0:
diff -rup orig/egcc-CVS20020524/libf2c/libU77/isatty_.c egcc-CVS20020524/libf2c/libU77/isatty_.c
--- orig/egcc-CVS20020524/libf2c/libU77/isatty_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/isatty_.c 2002-05-24 23:05:19.416152202 -0400
@@ -25,16 +25,9 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-#ifdef KR_headers
-extern integer G77_fnum_0 ();
-
-logical G77_isatty_0 (lunit)
- integer *lunit;
-#else
extern integer G77_fnum_0 (integer *);
logical G77_isatty_0 (integer *lunit)
-#endif
{
if (*lunit>=MXUNIT || *lunit<0)
err(1,101,"isatty");
diff -rup orig/egcc-CVS20020524/libf2c/libU77/itime_.c egcc-CVS20020524/libf2c/libU77/itime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/itime_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/itime_.c 2002-05-24 23:05:26.575372864 -0400
@@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-/* Subroutine */ int G77_itime_0 (tarray)
- integer tarray[3];
-#else
/* Subroutine */ int G77_itime_0 (integer tarray[3])
-#endif
{
struct tm *lt;
time_t tim;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/kill_.c egcc-CVS20020524/libf2c/libU77/kill_.c
--- orig/egcc-CVS20020524/libf2c/libU77/kill_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/kill_.c 2002-05-24 23:05:33.344797551 -0400
@@ -26,12 +26,7 @@ Boston, MA 02111-1307, USA. */
/* fixme: bsd, svr1-3 use int, not pid_t */
-#ifdef KR_headers
-integer G77_kill_0 (pid, signum)
- integer *pid, *signum;
-#else
integer G77_kill_0 (const integer *pid, const integer *signum)
-#endif
{
#if defined (HAVE_KILL)
return kill ((pid_t) *pid, *signum) ? errno : 0;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/link_.c egcc-CVS20020524/libf2c/libU77/link_.c
--- orig/egcc-CVS20020524/libf2c/libU77/link_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/link_.c 2002-05-24 23:05:40.254119186 -0400
@@ -34,16 +34,9 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-#ifdef KR_headers
-void g_char ();
-
-integer G77_link_0 (path1, path2, Lpath1, Lpath2)
- char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
{
#if defined (HAVE_LINK)
char *buff1, *buff2;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/lstat_.c egcc-CVS20020524/libf2c/libU77/lstat_.c
--- orig/egcc-CVS20020524/libf2c/libU77/lstat_.c 1999-02-20 09:55:52.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/lstat_.c 2002-05-24 23:05:53.932811268 -0400
@@ -30,18 +30,9 @@ Boston, MA 02111-1307, USA. */
/* lstat isn't posix */
-#ifdef KR_headers
-void g_char();
-
-integer G77_lstat_0 (name, statb, Lname)
- char *name;
- integer statb[13];
- ftnlen Lname;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
-#endif
{
#if HAVE_LSTAT
char *buff;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/ltime_.c egcc-CVS20020524/libf2c/libU77/ltime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/ltime_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/ltime_.c 2002-05-24 23:05:47.703372240 -0400
@@ -33,12 +33,7 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-/* Subroutine */ int G77_ltime_0 (xstime, tarray)
- integer *xstime, tarray[9];
-#else
/* Subroutine */ int G77_ltime_0 (const integer * xstime, integer tarray[9])
-#endif
{
struct tm *lt;
time_t stime = *xstime;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/mclock_.c egcc-CVS20020524/libf2c/libU77/mclock_.c
--- orig/egcc-CVS20020524/libf2c/libU77/mclock_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/mclock_.c 2002-05-24 23:05:59.822251083 -0400
@@ -33,11 +33,7 @@ Boston, MA 02111-1307, USA. */
/* Reported by wd42ej@sgi83.wwb.noaa.gov (Russ Jones AUTO-Sun3) on AIX. */
-#ifdef KR_headers
-longint G77_mclock_0 ()
-#else
longint G77_mclock_0 (void)
-#endif
{
#if HAVE_CLOCK
return clock ();
diff -rup orig/egcc-CVS20020524/libf2c/libU77/perror_.c egcc-CVS20020524/libf2c/libU77/perror_.c
--- orig/egcc-CVS20020524/libf2c/libU77/perror_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/perror_.c 2002-05-24 23:06:16.720645532 -0400
@@ -28,12 +28,7 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-/* Subroutine */ int G77_perror_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
/* Subroutine */ int G77_perror_0 (const char *str, const ftnlen Lstr)
-#endif
{
char buff[1000];
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/rand_.c egcc-CVS20020524/libf2c/libU77/rand_.c
--- orig/egcc-CVS20020524/libf2c/libU77/rand_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/rand_.c 2002-05-24 23:06:22.760091001 -0400
@@ -34,12 +34,7 @@ Boston, MA 02111-1307, USA. */
/* Note this is per SunOS -- other s may have no arg. */
-#ifdef KR_headers
-double G77_rand_0 (flag)
- integer *flag;
-#else
double G77_rand_0 (integer *flag)
-#endif
{
switch (*flag) {
case 0:
diff -rup orig/egcc-CVS20020524/libf2c/libU77/rename_.c egcc-CVS20020524/libf2c/libU77/rename_.c
--- orig/egcc-CVS20020524/libf2c/libU77/rename_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/rename_.c 2002-05-24 23:06:29.609446847 -0400
@@ -29,16 +29,9 @@ Boston, MA 02111-1307, USA. */
#include <errno.h>
#include "f2c.h"
-#ifdef KR_headers
-void g_char ();
-
-integer G77_rename_0 (path1, path2, Lpath1, Lpath2)
- char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
{
char *buff1, *buff2;
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/sleep_.c egcc-CVS20020524/libf2c/libU77/sleep_.c
--- orig/egcc-CVS20020524/libf2c/libU77/sleep_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/sleep_.c 2002-05-24 23:06:50.177572802 -0400
@@ -25,12 +25,7 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
/* Subroutine */
-#ifdef KR_headers
-int G77_sleep_0 (seconds)
- integer *seconds;
-#else
int G77_sleep_0 (const integer *seconds)
-#endif
{
(void) sleep ((unsigned int) *seconds);
return 0;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/srand_.c egcc-CVS20020524/libf2c/libU77/srand_.c
--- orig/egcc-CVS20020524/libf2c/libU77/srand_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/srand_.c 2002-05-24 23:06:56.097011903 -0400
@@ -25,12 +25,7 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
/* Subroutine */
-#ifdef KR_headers
-int G77_srand_0 (seed)
- integer *seed;
-#else
int G77_srand_0 (const integer *seed)
-#endif
{
srand ((unsigned int) *seed);
return 0;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/stat_.c egcc-CVS20020524/libf2c/libU77/stat_.c
--- orig/egcc-CVS20020524/libf2c/libU77/stat_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/stat_.c 2002-05-24 23:07:07.356003637 -0400
@@ -27,18 +27,9 @@ Boston, MA 02111-1307, USA. */
#include <sys/stat.h>
#include "f2c.h"
-#ifdef KR_headers
-void g_char ();
-
-integer G77_stat_0 (name, statb, Lname)
- char *name;
- integer statb[13];
- ftnlen Lname;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
-#endif
{
char *buff;
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/symlnk_.c egcc-CVS20020524/libf2c/libU77/symlnk_.c
--- orig/egcc-CVS20020524/libf2c/libU77/symlnk_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/symlnk_.c 2002-05-24 23:07:17.065078780 -0400
@@ -33,16 +33,9 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-void g_char ();
-
-integer G77_symlnk_0 (path1, path2, Lpath1, Lpath2)
- char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
{
#if HAVE_SYMLINK
char *buff1, *buff2;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/sys_clock_.c egcc-CVS20020524/libf2c/libU77/sys_clock_.c
--- orig/egcc-CVS20020524/libf2c/libU77/sys_clock_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/sys_clock_.c 2002-05-24 23:07:25.774281944 -0400
@@ -43,12 +43,7 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-#ifdef KR_headers
-int G77_system_clock_0 (count, count_rate, count_max)
- integer *count, *count_rate, *count_max;
-#else
int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
-#endif
{
#if defined (HAVE_TIMES)
struct tms buffer;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/time_.c egcc-CVS20020524/libf2c/libU77/time_.c
--- orig/egcc-CVS20020524/libf2c/libU77/time_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/time_.c 2002-05-24 23:07:33.813581020 -0400
@@ -35,11 +35,7 @@ Boston, MA 02111-1307, USA. */
/* As well as this external function some compilers have an intrinsic
subroutine which fills a character argument (which is the VMS way)
-- caveat emptor. */
-#ifdef KR_headers
-longint G77_time_0 ()
-#else
longint G77_time_0 (void)
-#endif
{
/* There are potential problems with the cast of the time_t here. */
return time (NULL);
diff -rup orig/egcc-CVS20020524/libf2c/libU77/ttynam_.c egcc-CVS20020524/libf2c/libU77/ttynam_.c
--- orig/egcc-CVS20020524/libf2c/libU77/ttynam_.c 1999-06-18 04:41:09.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/ttynam_.c 2002-05-24 23:07:41.412964095 -0400
@@ -35,16 +35,9 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-#ifdef KR_headers
-extern void s_copy ();
-extern integer G77_fnum_0 ();
-/* Character */ void G77_ttynam_0 (ret_val, ret_val_len, lunit)
- char *ret_val; ftnlen ret_val_len; integer *lunit
-#else
extern integer G77_fnum_0 (integer *lunit);
extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
/* Character */ void G77_ttynam_0 (char *ret_val, ftnlen ret_val_len, integer *lunit)
-#endif
{
#if defined (HAVE_TTYNAME)
size_t i;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/umask_.c egcc-CVS20020524/libf2c/libU77/umask_.c
--- orig/egcc-CVS20020524/libf2c/libU77/umask_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/umask_.c 2002-05-24 23:07:51.342093899 -0400
@@ -23,12 +23,7 @@ Boston, MA 02111-1307, USA. */
#include <sys/stat.h>
#include "f2c.h"
-#ifdef KR_headers
-integer G77_umask_0 (mask)
- integer *mask;
-#else
integer G77_umask_0 (integer *mask)
-#endif
{
return umask ((mode_t) *mask);
}
diff -rup orig/egcc-CVS20020524/libf2c/libU77/unlink_.c egcc-CVS20020524/libf2c/libU77/unlink_.c
--- orig/egcc-CVS20020524/libf2c/libU77/unlink_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/unlink_.c 2002-05-24 23:07:58.331478751 -0400
@@ -33,16 +33,9 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-#ifdef KR_headers
-void g_char ();
-
-integer G77_unlink_0 (str, Lstr)
- char *str; ftnlen Lstr;
-#else
void g_char(const char *a, ftnlen alen, char *b);
integer G77_unlink_0 (const char *str, const ftnlen Lstr)
-#endif
{
char *buff;
char *bp, *blast;
diff -rup orig/egcc-CVS20020524/libf2c/libU77/vxtidate_.c egcc-CVS20020524/libf2c/libU77/vxtidate_.c
--- orig/egcc-CVS20020524/libf2c/libU77/vxtidate_.c 2001-10-01 00:46:30.000000000 -0400
+++ egcc-CVS20020524/libf2c/libU77/vxtidate_.c 2002-05-24 23:08:14.699830124 -0400
@@ -38,12 +38,7 @@ Boston, MA 02111-1307, USA. */
/* VMS style: */
/* Subroutine */
-#ifdef KR_headers
-int G77_vxtidate_y2kbug_0 (m, d, y)
- integer *y, *m, *d;
-#else
int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y)
-#endif
{
struct tm *lt;
time_t tim;
@@ -57,12 +52,7 @@ int G77_vxtidate_y2kbug_0 (integer *m, i
#ifdef PIC
extern const char *G77_Non_Y2K_Compliance_Message;
-# ifdef KR_headers
-int G77_vxtidate_y2kbuggy_0 (m, d, y)
- integer *y, *m, *d;
-# else
int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y)
-# endif
{
extern int G77_abort_0();
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
diff -rup orig/egcc-CVS20020524/libf2c/libU77/vxttime_.c egcc-CVS20020524/libf2c/libU77/vxttime_.c
--- orig/egcc-CVS20020524/libf2c/libU77/vxttime_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020524/libf2c/libU77/vxttime_.c 2002-05-24 23:08:26.008764095 -0400
@@ -39,13 +39,7 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
/* Subroutine */
-#ifdef KR_headers
-void G77_vxttime_0 (chtime, Lchtime)
- char chtime[8];
- ftnlen Lchtime;
-#else
void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
-#endif
{
time_t tim;
char *ctim;