Patch installed: fix formatting for libf2c part 6/6
Kaveh R. Ghazi
ghazi@caip.rutgers.edu
Sat Jun 1 05:47:00 GMT 2002
Fix formatting part6
diff -rup orig/egcc-CVS20020531/libf2c/libU77/access_.c egcc-CVS20020531/libf2c/libU77/access_.c
--- orig/egcc-CVS20020531/libf2c/libU77/access_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/access_.c 2002-05-31 23:15:51.725564522 -0400
@@ -45,27 +45,40 @@ Boston, MA 02111-1307, USA. */
# define F_OK 0
#endif
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
-integer G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
+integer
+G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
{
char *buff;
char *bp, *blast;
int amode, i;
- buff = malloc (Lname+1);
- if (!buff) return -1;
+ buff = malloc (Lname + 1);
+ if (!buff)
+ return -1;
g_char (name, Lname, buff);
amode = 0;
- for (i=0;i<Lmode;i++) {
- switch (mode[i]) {
- case 'r': amode |= R_OK; break;
- case 'w': amode |= W_OK; break;
- case 'x': amode |= X_OK; break;
- case ' ': amode |= F_OK; break; /* as per Sun, at least */
- default: return EINVAL;
+ for (i = 0; i < Lmode; i++)
+ {
+ switch (mode[i])
+ {
+ case 'r':
+ amode |= R_OK;
+ break;
+ case 'w':
+ amode |= W_OK;
+ break;
+ case 'x':
+ amode |= X_OK;
+ break;
+ case ' ':
+ amode |= F_OK;
+ break; /* as per Sun, at least */
+ default:
+ return EINVAL;
+ }
}
- }
i = access (buff, amode);
free (buff);
return i;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/alarm_.c egcc-CVS20020531/libf2c/libU77/alarm_.c
--- orig/egcc-CVS20020531/libf2c/libU77/alarm_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/alarm_.c 2002-05-31 23:15:51.725564522 -0400
@@ -31,20 +31,21 @@ Boston, MA 02111-1307, USA. */
/* we shouldn't rely on this... */
#define RETSIGTYPE void
#endif
-typedef RETSIGTYPE (*sig_type)();
+typedef RETSIGTYPE (*sig_type) ();
#include <signal.h>
-typedef int (*sig_proc)(int);
+typedef int (*sig_proc) (int);
#ifndef SIG_ERR
#define SIG_ERR ((sig_type) -1)
#endif
-integer G77_alarm_0 (integer *seconds, sig_proc proc)
+integer
+G77_alarm_0 (integer * seconds, sig_proc proc)
{
int status;
#if defined (HAVE_ALARM) && defined (SIGALRM)
- if (signal(SIGALRM, (sig_type)proc) == SIG_ERR)
+ if (signal (SIGALRM, (sig_type) proc) == SIG_ERR)
status = -1;
else
status = alarm (*seconds);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/bes.c egcc-CVS20020531/libf2c/libU77/bes.c
--- orig/egcc-CVS20020531/libf2c/libU77/bes.c 1999-09-04 11:09:18.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/bes.c 2002-05-31 23:15:51.725564522 -0400
@@ -16,31 +16,43 @@ License along with GNU Fortran; see the
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
-#if 0 /* Don't include these unless necessary -- jcb. */
+#if 0 /* Don't include these unless necessary -- jcb. */
#include "f2c.h"
#include <math.h>
-double G77_besj0_0 (const real *x) {
- return j0 (*x);
+double
+G77_besj0_0 (const real * x)
+{
+ return j0 (*x);
}
-double G77_besj1_0 (const real *x) {
- return j1 (*x);
+double
+G77_besj1_0 (const real * x)
+{
+ return j1 (*x);
}
-double G77_besjn_0 (const integer *n, real *x) {
- return jn (*n, *x);
- }
+double
+G77_besjn_0 (const integer * n, real * x)
+{
+ return jn (*n, *x);
+}
-double G77_besy0_0 (const real *x) {
- return y0 (*x);
+double
+G77_besy0_0 (const real * x)
+{
+ return y0 (*x);
}
-double G77_besy1_0 (const real *x) {
- return y1 (*x);
+double
+G77_besy1_0 (const real * x)
+{
+ return y1 (*x);
}
-double G77_besyn_0 (const integer *n, real *x) {
- return yn (*n, *x);
+double
+G77_besyn_0 (const integer * n, real * x)
+{
+ return yn (*n, *x);
}
#endif
diff -rup orig/egcc-CVS20020531/libf2c/libU77/chdir_.c egcc-CVS20020531/libf2c/libU77/chdir_.c
--- orig/egcc-CVS20020531/libf2c/libU77/chdir_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/chdir_.c 2002-05-31 23:15:51.725564522 -0400
@@ -32,16 +32,18 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
-integer G77_chdir_0 (const char *name, const ftnlen Lname)
+integer
+G77_chdir_0 (const char *name, const ftnlen Lname)
{
char *buff;
char *bp, *blast;
int i;
- buff = malloc (Lname+1);
- if (!buff) return -1;
+ buff = malloc (Lname + 1);
+ if (!buff)
+ return -1;
g_char (name, Lname, buff);
i = chdir (buff);
free (buff);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/chmod_.c egcc-CVS20020531/libf2c/libU77/chmod_.c
--- orig/egcc-CVS20020531/libf2c/libU77/chmod_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/chmod_.c 2002-05-31 23:15:51.725564522 -0400
@@ -41,10 +41,13 @@ Boston, MA 02111-1307, USA. */
#define CHMOD_PATH "/bin/chmod"
#endif
-extern void s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll);
-void g_char(const char *a, ftnlen alen, char *b);
+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)
+integer
+G77_chmod_0 ( /* const */ char *name, /* const */ char *mode,
+ const ftnlen Lname, const ftnlen Lmode)
{
char *buff;
char *bp, *blast;
@@ -53,20 +56,27 @@ integer G77_chmod_0 (/* const */ char *n
ftnlen six = 6;
address a[6];
ftnlen ii[6];
- char chmod_path [] = CHMOD_PATH;
+ char chmod_path[] = CHMOD_PATH;
l = strlen (chmod_path);
- buff = malloc (Lname+Lmode+l+3+13+1);
- if (!buff) return -1;
- ii[0] = l; a[0] = chmod_path;
- ii[1] = 1; a[1] = " ";
- ii[2] = Lmode; a[2] = mode;
- ii[3] = 2; a[3] = " '";
- for (l2=Lname; (l2 > 1) && (name[l2-1] == ' '); )
+ buff = malloc (Lname + Lmode + l + 3 + 13 + 1);
+ if (!buff)
+ return -1;
+ ii[0] = l;
+ a[0] = chmod_path;
+ ii[1] = 1;
+ a[1] = " ";
+ ii[2] = Lmode;
+ a[2] = mode;
+ ii[3] = 2;
+ a[3] = " '";
+ for (l2 = Lname; (l2 > 1) && (name[l2 - 1] == ' ');)
l2--;
- ii[4] = l2; a[4] = name;
- ii[5] = 13; a[5] = "' 2>/dev/null";
- s_cat (buff, a, ii, &six, Lname+Lmode+l+3+13);
- buff[Lname+Lmode+l+3+13] = '\0';
+ ii[4] = l2;
+ a[4] = name;
+ ii[5] = 13;
+ a[5] = "' 2>/dev/null";
+ s_cat (buff, a, ii, &six, Lname + Lmode + l + 3 + 13);
+ buff[Lname + Lmode + l + 3 + 13] = '\0';
i = system (buff);
free (buff);
return i;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/ctime_.c egcc-CVS20020531/libf2c/libU77/ctime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/ctime_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/ctime_.c 2002-05-31 23:15:51.735564759 -0400
@@ -39,7 +39,8 @@ Boston, MA 02111-1307, USA. */
/* may need sys/time.h & long arg for stime (bsd, svr1-3) */
-/* Character */ void G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
+/* Character */ void
+G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
{
int i, l;
int s_copy ();
diff -rup orig/egcc-CVS20020531/libf2c/libU77/date_.c egcc-CVS20020531/libf2c/libU77/date_.c
--- orig/egcc-CVS20020531/libf2c/libU77/date_.c 2002-05-31 21:56:20.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/date_.c 2002-05-31 23:15:51.735564759 -0400
@@ -9,47 +9,47 @@
static integer c__5 = 5;
-/* Subroutine */ int G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
+/* Subroutine */ int
+G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
{
- /* System generated locals */
- address a__1[5];
- longint i__1;
- integer i__2[5];
- char ch__1[24];
-
- /* Builtin functions */
- /* Subroutine */ int s_copy(), s_cat();
-
- /* Local variables */
- static char cbuf[24];
- extern longint G77_time_0 ();
- extern /* Character */ void G77_ctime_0 ();
-
- i__1 = G77_time_0 ();
- G77_ctime_0 (ch__1, 24L, &i__1);
- s_copy(cbuf, ch__1, 24L, 24L);
+ /* System generated locals */
+ address a__1[5];
+ longint i__1;
+ integer i__2[5];
+ char ch__1[24];
+
+ /* Builtin functions */
+ /* Subroutine */ int s_copy (), s_cat ();
+
+ /* Local variables */
+ static char cbuf[24];
+ extern longint G77_time_0 ();
+ extern /* Character */ void G77_ctime_0 ();
+
+ i__1 = G77_time_0 ();
+ G77_ctime_0 (ch__1, 24L, &i__1);
+ s_copy (cbuf, ch__1, 24L, 24L);
/* Writing concatenation */
- i__2[0] = 2, a__1[0] = cbuf + 8;
- i__2[1] = 1, a__1[1] = "-";
- i__2[2] = 3, a__1[2] = cbuf + 4;
- i__2[3] = 1, a__1[3] = "-";
- i__2[4] = 2, a__1[4] = cbuf + 22;
- s_cat(buf, a__1, i__2, &c__5, buf_len);
- return 0;
-} /* date_ */
+ i__2[0] = 2, a__1[0] = cbuf + 8;
+ i__2[1] = 1, a__1[1] = "-";
+ i__2[2] = 3, a__1[2] = cbuf + 4;
+ i__2[3] = 1, a__1[3] = "-";
+ i__2[4] = 2, a__1[4] = cbuf + 22;
+ s_cat (buf, a__1, i__2, &c__5, buf_len);
+ return 0;
+} /* date_ */
#ifdef PIC
# include <stdio.h>
const char *G77_Non_Y2K_Compliance_Message =
- "Call to non Y2K compliant subroutine detected.";
+ "Call to non Y2K compliant subroutine detected.";
-int G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
+int
+G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
{
- extern int G77_abort_0();
+ extern int G77_abort_0 ();
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
- G77_abort_0();
+ G77_abort_0 ();
}
#endif
-
-
diff -rup orig/egcc-CVS20020531/libf2c/libU77/datetime_.c egcc-CVS20020531/libf2c/libU77/datetime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/datetime_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/datetime_.c 2002-05-31 23:15:51.735564759 -0400
@@ -33,14 +33,15 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
+void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
-int G77_date_and_time_0 (char *date, char *fftime, char *zone,
- integer *values, ftnlen date_len,
- ftnlen fftime_len, ftnlen zone_len)
+int
+G77_date_and_time_0 (char *date, char *fftime, char *zone,
+ integer * values, ftnlen date_len,
+ ftnlen fftime_len, ftnlen zone_len)
{
- time_t lt=time(<);
- struct tm ltime = *localtime(<), gtime = *gmtime(<);
+ time_t lt = time (<);
+ struct tm ltime = *localtime (<), gtime = *gmtime (<);
char dat[9], zon[6], ftim[11];
int i, vals[8];
@@ -49,18 +50,18 @@ int G77_date_and_time_0 (char *date, cha
vals[2] = ltime.tm_mday;
/* fixme: year boundaries */
vals[3] = (ltime.tm_min - gtime.tm_min +
- 60*(ltime.tm_hour - gtime.tm_hour +
- 24*(ltime.tm_yday -gtime.tm_yday)));
+ 60 * (ltime.tm_hour - gtime.tm_hour +
+ 24 * (ltime.tm_yday - gtime.tm_yday)));
vals[4] = ltime.tm_hour;
vals[5] = ltime.tm_min;
vals[6] = ltime.tm_sec;
- vals[7] = 0; /* no STDC/POSIX way to get this */
+ vals[7] = 0; /* no STDC/POSIX way to get this */
/* GNUish way; maybe use `ftime' on other systems. */
#if HAVE_GETTIMEOFDAY
{
struct timeval tp;
# if GETTIMEOFDAY_ONE_ARGUMENT
- if (! gettimeofday (&tp))
+ if (!gettimeofday (&tp))
# else
# if HAVE_STRUCT_TIMEZONE
struct timezone tzp;
@@ -70,26 +71,28 @@ int G77_date_and_time_0 (char *date, cha
HPUX. Configure checks if gettimeofday actually fails with a
non-NULL arg and pretends that struct timezone is missing if it
does fail. */
- if (! gettimeofday (&tp, &tzp))
+ if (!gettimeofday (&tp, &tzp))
# else
- if (! gettimeofday (&tp, (void *) 0))
+ if (!gettimeofday (&tp, (void *) 0))
# endif /* HAVE_STRUCT_TIMEZONE */
# endif /* GETTIMEOFDAY_ONE_ARGUMENT */
- vals[7] = tp.tv_usec/1000;
+ vals[7] = tp.tv_usec / 1000;
}
#endif /* HAVE_GETTIMEOFDAY */
if (values) /* null pointer for missing optional */
- for (i=0; i<=7; i++)
+ for (i = 0; i <= 7; i++)
values[i] = vals[i];
sprintf (dat, "%04d%02d%02d", vals[0], vals[1], vals[2]);
- s_copy(date, dat, date_len, 8);
- if (zone) {
- sprintf(zon, "%+03d%02d", vals[3] / 60, abs(vals[3] % 60));
- s_copy(zone, zon, zone_len, 5);
- }
- if (fftime) {
- sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]);
- s_copy(fftime, ftim, fftime_len, 10);
- }
+ s_copy (date, dat, date_len, 8);
+ if (zone)
+ {
+ sprintf (zon, "%+03d%02d", vals[3] / 60, abs (vals[3] % 60));
+ s_copy (zone, zon, zone_len, 5);
+ }
+ if (fftime)
+ {
+ sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]);
+ s_copy (fftime, ftim, fftime_len, 10);
+ }
return 0;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/dbes.c egcc-CVS20020531/libf2c/libU77/dbes.c
--- orig/egcc-CVS20020531/libf2c/libU77/dbes.c 1998-05-19 07:01:52.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/dbes.c 2002-05-31 23:15:51.735564759 -0400
@@ -16,31 +16,43 @@ License along with GNU Fortran; see the
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
-#if 0 /* Don't include these unless necessary -- dnp. */
+#if 0 /* Don't include these unless necessary -- dnp. */
#include "f2c.h"
#include <math.h>
-double G77_dbesj0_0 (const double *x) {
- return j0 (*x);
+double
+G77_dbesj0_0 (const double *x)
+{
+ return j0 (*x);
}
-double G77_dbesj1_0 (const double *x) {
- return j1 (*x);
+double
+G77_dbesj1_0 (const double *x)
+{
+ return j1 (*x);
}
-double G77_dbesjn_0 (const integer *n, double *x) {
- return jn (*n, *x);
- }
+double
+G77_dbesjn_0 (const integer * n, double *x)
+{
+ return jn (*n, *x);
+}
-double G77_dbesy0_0 (const double *x) {
- return y0 (*x);
+double
+G77_dbesy0_0 (const double *x)
+{
+ return y0 (*x);
}
-double G77_dbesy1_0 (const double *x) {
- return y1 (*x);
+double
+G77_dbesy1_0 (const double *x)
+{
+ return y1 (*x);
}
-double G77_dbesyn_0 (const integer *n, double *x) {
- return yn (*n, *x);
+double
+G77_dbesyn_0 (const integer * n, double *x)
+{
+ return yn (*n, *x);
}
#endif
diff -rup orig/egcc-CVS20020531/libf2c/libU77/dtime_.c egcc-CVS20020531/libf2c/libU77/dtime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/dtime_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/dtime_.c 2002-05-31 23:15:51.745564655 -0400
@@ -51,7 +51,8 @@ Boston, MA 02111-1307, USA. */
different to all others. */
static long clk_tck = 0;
-double G77_dtime_0 (real tarray[2])
+double
+G77_dtime_0 (real tarray[2])
{
#if defined (_WIN32)
static int win32_platform = -1;
@@ -63,7 +64,7 @@ double G77_dtime_0 (real tarray[2])
GetVersionEx (&osv);
win32_platform = osv.dwPlatformId;
}
-
+
/* We need to use this hack on non-NT platforms, where the first call
returns 0.0 and subsequent ones return the correct value. */
if (win32_platform != VER_PLATFORM_WIN32_NT)
@@ -77,7 +78,7 @@ double G77_dtime_0 (real tarray[2])
if (clock_freq == 0)
{
LARGE_INTEGER freq;
- if (! QueryPerformanceFrequency (&freq))
+ if (!QueryPerformanceFrequency (&freq))
{
errno = ENOSYS;
return 0.0;
@@ -85,15 +86,15 @@ double G77_dtime_0 (real tarray[2])
else
{
clock_freq = ((unsigned long long) freq.HighPart << 32)
- + ((unsigned) freq.LowPart);
+ + ((unsigned) freq.LowPart);
}
}
- if (! QueryPerformanceCounter (&counter_val))
+ if (!QueryPerformanceCounter (&counter_val))
return -1.0;
count = ((unsigned long long) counter_val.HighPart << 32)
- + (unsigned) counter_val.LowPart;
+ + (unsigned) counter_val.LowPart;
delta = ((double) (count - old_count)) / clock_freq;
tarray[0] = (float) delta;
tarray[1] = 0.0;
@@ -107,10 +108,10 @@ double G77_dtime_0 (real tarray[2])
GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time,
&kernel_time, &user_time);
- utime = ((unsigned long long) user_time.dwHighDateTime << 32)
- + (unsigned) user_time.dwLowDateTime;
- stime = ((unsigned long long) kernel_time.dwHighDateTime << 32)
- + (unsigned) kernel_time.dwLowDateTime;
+ utime = ((unsigned long long) user_time.dwHighDateTime << 32)
+ + (unsigned) user_time.dwLowDateTime;
+ stime = ((unsigned long long) kernel_time.dwHighDateTime << 32)
+ + (unsigned) kernel_time.dwLowDateTime;
tarray[0] = (utime - old_utime) / 1.0e7;
tarray[1] = (stime - old_stime) / 1.0e7;
@@ -126,15 +127,15 @@ double G77_dtime_0 (real tarray[2])
static float old_utime = 0.0, old_stime = 0.0;
struct rusage rbuff;
- if (getrusage (RUSAGE_SELF, &rbuff) != 0)
- abort ();
- utime = (float) (rbuff.ru_utime).tv_sec +
- (float) (rbuff.ru_utime).tv_usec/1000000.0;
- tarray[0] = utime - (float) old_utime;
- stime = (float) (rbuff.ru_stime).tv_sec +
- (float) (rbuff.ru_stime).tv_usec/1000000.0;
+ if (getrusage (RUSAGE_SELF, &rbuff) != 0)
+ abort ();
+ utime = (float) (rbuff.ru_utime).tv_sec +
+ (float) (rbuff.ru_utime).tv_usec / 1000000.0;
+ tarray[0] = utime - (float) old_utime;
+ stime = (float) (rbuff.ru_stime).tv_sec +
+ (float) (rbuff.ru_stime).tv_usec / 1000000.0;
tarray[1] = stime - old_stime;
-#else /* HAVE_GETRUSAGE */
+#else /* HAVE_GETRUSAGE */
time_t utime, stime;
static time_t old_utime = 0, old_stime = 0;
struct tms buffer;
@@ -142,24 +143,31 @@ double G77_dtime_0 (real tarray[2])
/* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf;
fixme: does using _POSIX_VERSION help? */
# if defined _SC_CLK_TCK && defined _POSIX_VERSION
- if (! clk_tck) clk_tck = sysconf(_SC_CLK_TCK);
+ if (!clk_tck)
+ clk_tck = sysconf (_SC_CLK_TCK);
# elif defined CLOCKS_PER_SECOND
- if (! clk_tck) clk_tck = CLOCKS_PER_SECOND;
+ if (!clk_tck)
+ clk_tck = CLOCKS_PER_SECOND;
# elif defined CLK_TCK
- if (! clk_tck) clk_tck = CLK_TCK;
+ if (!clk_tck)
+ clk_tck = CLK_TCK;
# elif defined HZ
- if (! clk_tck) clk_tck = HZ;
+ if (!clk_tck)
+ clk_tck = HZ;
# elif defined HAVE_GETRUSAGE
# else
- #error Dont know clock tick length
+#error Dont know clock tick length
# endif
- if (times(&buffer) == (clock_t)-1) return -1.0;
- utime = buffer.tms_utime; stime = buffer.tms_stime;
- tarray[0] = ((float)(utime - old_utime)) / (float)clk_tck;
- tarray[1] = ((float)(stime - old_stime)) / (float)clk_tck;
+ if (times (&buffer) == (clock_t) - 1)
+ return -1.0;
+ utime = buffer.tms_utime;
+ stime = buffer.tms_stime;
+ tarray[0] = ((float) (utime - old_utime)) / (float) clk_tck;
+ tarray[1] = ((float) (stime - old_stime)) / (float) clk_tck;
#endif /* HAVE_GETRUSAGE */
- old_utime = utime; old_stime = stime;
- return (tarray[0]+tarray[1]);
+ old_utime = utime;
+ old_stime = stime;
+ return (tarray[0] + tarray[1]);
#else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */
errno = ENOSYS;
return 0.0;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/etime_.c egcc-CVS20020531/libf2c/libU77/etime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/etime_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/etime_.c 2002-05-31 23:15:51.745564655 -0400
@@ -51,7 +51,8 @@ Boston, MA 02111-1307, USA. */
different to all others. */
static long clk_tck = 0;
-double G77_etime_0 (real tarray[2])
+double
+G77_etime_0 (real tarray[2])
{
#if defined (_WIN32)
static int win32_platform = -1;
@@ -64,7 +65,7 @@ double G77_etime_0 (real tarray[2])
GetVersionEx (&osv);
win32_platform = osv.dwPlatformId;
}
-
+
/* non-NT platforms don't have a clue as to how long a process has
been running, so simply return the uptime. Bad judgement call? */
if (win32_platform != VER_PLATFORM_WIN32_NT)
@@ -77,7 +78,7 @@ double G77_etime_0 (real tarray[2])
if (clock_freq == 0)
{
LARGE_INTEGER freq;
- if (! QueryPerformanceFrequency (&freq))
+ if (!QueryPerformanceFrequency (&freq))
{
errno = ENOSYS;
return 0.0;
@@ -85,19 +86,19 @@ double G77_etime_0 (real tarray[2])
else
{
clock_freq = ((unsigned long long) freq.HighPart << 32)
- + ((unsigned) freq.LowPart);
- if (! QueryPerformanceCounter (&counter_val))
+ + ((unsigned) freq.LowPart);
+ if (!QueryPerformanceCounter (&counter_val))
return -1.0;
old_count = ((unsigned long long) counter_val.HighPart << 32)
- + (unsigned) counter_val.LowPart;
+ + (unsigned) counter_val.LowPart;
}
}
- if (! QueryPerformanceCounter (&counter_val))
+ if (!QueryPerformanceCounter (&counter_val))
return -1.0;
count = ((unsigned long long) counter_val.HighPart << 32)
- + (unsigned) counter_val.LowPart;
+ + (unsigned) counter_val.LowPart;
tarray[0] = usertime = (double) (count - old_count) / clock_freq;
tarray[1] = systime = 0.0;
}
@@ -109,13 +110,13 @@ double G77_etime_0 (real tarray[2])
GetProcessTimes (GetCurrentProcess (), &creation_time, &exit_time,
&kernel_time, &user_time);
utime = ((unsigned long long) user_time.dwHighDateTime << 32)
- + (unsigned) user_time.dwLowDateTime;
+ + (unsigned) user_time.dwLowDateTime;
stime = ((unsigned long long) kernel_time.dwHighDateTime << 32)
- + (unsigned) kernel_time.dwLowDateTime;
+ + (unsigned) kernel_time.dwLowDateTime;
tarray[0] = usertime = utime / 1.0e7;
tarray[1] = systime = stime / 1.0e7;
- }
+ }
return usertime + systime;
#elif defined (HAVE_GETRUSAGE) || defined (HAVE_TIMES)
@@ -123,34 +124,39 @@ double G77_etime_0 (real tarray[2])
#ifdef HAVE_GETRUSAGE
struct rusage rbuff;
- if (getrusage (RUSAGE_SELF, &rbuff) != 0)
- abort ();
- tarray[0] = ((float) (rbuff.ru_utime).tv_sec +
- (float) (rbuff.ru_utime).tv_usec/1000000.0);
- tarray[1] = ((float) (rbuff.ru_stime).tv_sec +
- (float) (rbuff.ru_stime).tv_usec/1000000.0);
-#else /* HAVE_GETRUSAGE */
+ if (getrusage (RUSAGE_SELF, &rbuff) != 0)
+ abort ();
+ tarray[0] = ((float) (rbuff.ru_utime).tv_sec +
+ (float) (rbuff.ru_utime).tv_usec / 1000000.0);
+ tarray[1] = ((float) (rbuff.ru_stime).tv_sec +
+ (float) (rbuff.ru_stime).tv_usec / 1000000.0);
+#else /* HAVE_GETRUSAGE */
struct tms buffer;
/* NeXTStep seems to define _SC_CLK_TCK but not to have sysconf;
fixme: does using _POSIX_VERSION help? */
# if defined _SC_CLK_TCK && defined _POSIX_VERSION
- if (! clk_tck) clk_tck = sysconf(_SC_CLK_TCK);
+ if (!clk_tck)
+ clk_tck = sysconf (_SC_CLK_TCK);
# elif defined CLOCKS_PER_SECOND
- if (! clk_tck) clk_tck = CLOCKS_PER_SECOND;
+ if (!clk_tck)
+ clk_tck = CLOCKS_PER_SECOND;
# elif defined CLK_TCK
- if (! clk_tck) clk_tck = CLK_TCK;
+ if (!clk_tck)
+ clk_tck = CLK_TCK;
# elif defined HZ
- if (! clk_tck) clk_tck = HZ;
+ if (!clk_tck)
+ clk_tck = HZ;
# elif defined HAVE_GETRUSAGE
# else
- #error Dont know clock tick length
+#error Dont know clock tick length
# endif
- if (times(&buffer) == (clock_t)-1) return -1.0;
- tarray[0] = (float) buffer.tms_utime / (float)clk_tck;
- tarray[1] = (float) buffer.tms_stime / (float)clk_tck;
+ if (times (&buffer) == (clock_t) - 1)
+ return -1.0;
+ tarray[0] = (float) buffer.tms_utime / (float) clk_tck;
+ tarray[1] = (float) buffer.tms_stime / (float) clk_tck;
#endif /* HAVE_GETRUSAGE */
- return (tarray[0]+tarray[1]);
+ return (tarray[0] + tarray[1]);
#else /* ! HAVE_GETRUSAGE && ! HAVE_TIMES */
errno = ENOSYS;
return 0.0;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/fdate_.c egcc-CVS20020531/libf2c/libU77/fdate_.c
--- orig/egcc-CVS20020531/libf2c/libU77/fdate_.c 2001-01-23 18:20:30.000000000 -0500
+++ egcc-CVS20020531/libf2c/libU77/fdate_.c 2002-05-31 23:15:51.745564655 -0400
@@ -43,12 +43,13 @@ Boston, MA 02111-1307, USA. */
also a subroutine version. Of course, the calling convention is
essentially the same for both. */
-/* Character *24 */ void G77_fdate_0 (char *ret_val, ftnlen ret_val_len)
+/* Character *24 */ void
+G77_fdate_0 (char *ret_val, ftnlen ret_val_len)
{
- int s_copy ();
- time_t tloc;
- tloc = time (NULL);
- /* Allow a length other than 24 for compatibility with what other
- systems do, despite it being documented as 24. */
- s_copy (ret_val, ctime ((time_t *) &tloc), ret_val_len, 24);
+ int s_copy ();
+ time_t tloc;
+ tloc = time (NULL);
+ /* Allow a length other than 24 for compatibility with what other
+ systems do, despite it being documented as 24. */
+ s_copy (ret_val, ctime ((time_t *) & tloc), ret_val_len, 24);
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/fgetc_.c egcc-CVS20020531/libf2c/libU77/fgetc_.c
--- orig/egcc-CVS20020531/libf2c/libU77/fgetc_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/fgetc_.c 2002-05-31 23:15:51.755564071 -0400
@@ -26,30 +26,36 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-integer G77_fgetc_0 (const integer *lunit, char *c, ftnlen Lc)
+integer
+G77_fgetc_0 (const integer * lunit, char *c, ftnlen Lc)
{
int err;
FILE *f = f__units[*lunit].ufd;
- if (*lunit>=MXUNIT || *lunit<0)
+ if (*lunit >= MXUNIT || *lunit < 0)
return 101; /* bad unit error */
err = getc (f);
- if (err == EOF) {
- if (feof (f))
- return -1;
- else
- return ferror (f); }
- else {
- if (Lc == 0)
- return 0;
+ if (err == EOF)
+ {
+ if (feof (f))
+ return -1;
+ else
+ return ferror (f);
+ }
+ else
+ {
+ if (Lc == 0)
+ return 0;
- c[0] = err;
- while (--Lc)
- *++c = ' ';
- return 0; }
+ c[0] = err;
+ while (--Lc)
+ *++c = ' ';
+ return 0;
+ }
}
-integer G77_fget_0 (char *c, const ftnlen Lc)
+integer
+G77_fget_0 (char *c, const ftnlen Lc)
{
integer five = 5;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/flush1_.c egcc-CVS20020531/libf2c/libU77/flush1_.c
--- orig/egcc-CVS20020531/libf2c/libU77/flush1_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/flush1_.c 2002-05-31 23:15:51.755564071 -0400
@@ -27,13 +27,14 @@ Boston, MA 02111-1307, USA. */
extern integer G77_fnum_0 (integer *);
-/* Subroutine */ int G77_flush1_0 (const integer *lunit)
+/* Subroutine */ int
+G77_flush1_0 (const integer * lunit)
{
- if (*lunit>=MXUNIT || *lunit<0)
- err(1,101,"flush");
+ if (*lunit >= MXUNIT || *lunit < 0)
+ err (1, 101, "flush");
/* f__units is a table of descriptions for the unit numbers (defined
in io.h) with file descriptors rather than streams */
if (f__units[*lunit].ufd != NULL && f__units[*lunit].uwrt)
- fflush(f__units[*lunit].ufd);
+ fflush (f__units[*lunit].ufd);
return 0;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/fnum_.c egcc-CVS20020531/libf2c/libU77/fnum_.c
--- orig/egcc-CVS20020531/libf2c/libU77/fnum_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/fnum_.c 2002-05-31 23:15:51.755564071 -0400
@@ -22,12 +22,13 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-integer G77_fnum_0 (integer *lunit)
+integer
+G77_fnum_0 (integer * lunit)
{
- if (*lunit>=MXUNIT || *lunit<0)
- err(1,101,"fnum");
+ if (*lunit >= MXUNIT || *lunit < 0)
+ err (1, 101, "fnum");
/* f__units is a table of descriptions for the unit numbers (defined
in io.h). Use file descriptor (ufd) and fileno rather than udev
field since udev is unix specific */
- return fileno(f__units[*lunit].ufd);
+ return fileno (f__units[*lunit].ufd);
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/fputc_.c egcc-CVS20020531/libf2c/libU77/fputc_.c
--- orig/egcc-CVS20020531/libf2c/libU77/fputc_.c 2002-05-31 21:47:45.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/fputc_.c 2002-05-31 23:15:51.755564071 -0400
@@ -26,25 +26,28 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#include "fio.h"
-integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc)
+integer
+G77_fputc_0 (const integer * lunit, const char *c, const ftnlen Lc)
{
int err;
FILE *f = f__units[*lunit].ufd;
- if (*lunit>=MXUNIT || *lunit<0)
+ if (*lunit >= MXUNIT || *lunit < 0)
return 101; /* bad unit error */
err = putc (c[0], f);
- if (err == EOF) {
- if (feof (f))
- return -1;
- else
- return ferror (f);
- }
+ if (err == EOF)
+ {
+ if (feof (f))
+ return -1;
+ else
+ return ferror (f);
+ }
else
return 0;
}
-integer G77_fput_0 (const char *c, const ftnlen Lc)
+integer
+G77_fput_0 (const char *c, const ftnlen Lc)
{
integer six = 6;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/fstat_.c egcc-CVS20020531/libf2c/libU77/fstat_.c
--- orig/egcc-CVS20020531/libf2c/libU77/fstat_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/fstat_.c 2002-05-31 23:15:51.755564071 -0400
@@ -28,7 +28,8 @@ Boston, MA 02111-1307, USA. */
extern integer G77_fnum_0 (const integer *);
-integer G77_fstat_0 (const integer *lunit, integer statb[13])
+integer
+G77_fstat_0 (const integer * lunit, integer statb[13])
{
int err;
struct stat buf;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/gerror_.c egcc-CVS20020531/libf2c/libU77/gerror_.c
--- orig/egcc-CVS20020531/libf2c/libU77/gerror_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/gerror_.c 2002-05-31 23:15:51.755564071 -0400
@@ -29,15 +29,16 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#ifndef HAVE_STRERROR
- extern char *sys_errlist [];
+extern char *sys_errlist[];
# define strerror(i) (sys_errlist[i])
#endif
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-/* Subroutine */ int G77_gerror_0 (char *str, ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+/* Subroutine */ int
+G77_gerror_0 (char *str, ftnlen Lstr)
{
- char * s;
+ char *s;
- s = strerror(errno);
+ s = strerror (errno);
s_copy (str, s, Lstr, strlen (s));
return 0;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/getcwd_.c egcc-CVS20020531/libf2c/libU77/getcwd_.c
--- orig/egcc-CVS20020531/libf2c/libU77/getcwd_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/getcwd_.c 2002-05-31 23:15:51.765563847 -0400
@@ -34,20 +34,22 @@ Boston, MA 02111-1307, USA. */
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#else
- extern char *getcwd ();
+extern char *getcwd ();
#endif
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-integer G77_getcwd_0 (char *str, const ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+integer
+G77_getcwd_0 (char *str, const ftnlen Lstr)
{
- int i;
- char *ret;
+ int i;
+ char *ret;
- ret = getcwd (str, Lstr);
- if (ret == NULL) return errno;
- for (i=strlen(str); i<Lstr; i++)
- str[i] = ' ';
- return 0;
+ ret = getcwd (str, Lstr);
+ if (ret == NULL)
+ return errno;
+ for (i = strlen (str); i < Lstr; i++)
+ str[i] = ' ';
+ return 0;
}
#elif HAVE_GETWD /* HAVE_GETCWD */
@@ -55,25 +57,30 @@ integer G77_getcwd_0 (char *str, const f
/* getwd usage taken from SunOS4 man */
# include <sys/param.h>
- extern char *getwd ();
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-integer G77_getcwd_0 (char *str, const ftnlen Lstr)
+extern char *getwd ();
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+integer
+G77_getcwd_0 (char *str, const ftnlen Lstr)
{
char pathname[MAXPATHLEN];
size_t l;
- if (getwd (pathname) == NULL) {
- return errno;
- } else {
- s_copy (str, pathname, Lstr, strlen (str));
- return 0;
- }
+ if (getwd (pathname) == NULL)
+ {
+ return errno;
+ }
+ else
+ {
+ s_copy (str, pathname, Lstr, strlen (str));
+ return 0;
+ }
}
-#else /* !HAVE_GETWD && !HAVE_GETCWD */
+#else /* !HAVE_GETWD && !HAVE_GETCWD */
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-integer G77_getcwd_0 (char *str, const ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+integer
+G77_getcwd_0 (char *str, const ftnlen Lstr)
{
return errno = ENOSYS;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/getgid_.c egcc-CVS20020531/libf2c/libU77/getgid_.c
--- orig/egcc-CVS20020531/libf2c/libU77/getgid_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/getgid_.c 2002-05-31 23:15:51.765563847 -0400
@@ -26,7 +26,8 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-integer G77_getgid_0 (void)
+integer
+G77_getgid_0 (void)
{
#if defined (HAVE_GETGID)
return getgid ();
diff -rup orig/egcc-CVS20020531/libf2c/libU77/getlog_.c egcc-CVS20020531/libf2c/libU77/getlog_.c
--- orig/egcc-CVS20020531/libf2c/libU77/getlog_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/getlog_.c 2002-05-31 23:15:51.765563847 -0400
@@ -41,8 +41,9 @@ Boston, MA 02111-1307, USA. */
/* SGI also has character*(*) function getlog() */
-extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-/* Subroutine */ int G77_getlog_0 (char *str, const ftnlen Lstr)
+extern void s_copy (register char *a, register char *b, ftnlen la, ftnlen lb);
+/* Subroutine */ int
+G77_getlog_0 (char *str, const ftnlen Lstr)
{
size_t i;
char *p;
@@ -50,12 +51,15 @@ extern void s_copy(register char *a, reg
#if defined (HAVE_GETLOGIN)
p = getlogin ();
- if (p != NULL) {
- i = strlen (p);
- s_copy (str, p, Lstr, i);
- } else {
- s_copy (str, " ", Lstr, 1);
- }
+ if (p != NULL)
+ {
+ i = strlen (p);
+ s_copy (str, p, Lstr, i);
+ }
+ else
+ {
+ s_copy (str, " ", Lstr, 1);
+ }
status = 0;
#else
errno = ENOSYS;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/getpid_.c egcc-CVS20020531/libf2c/libU77/getpid_.c
--- orig/egcc-CVS20020531/libf2c/libU77/getpid_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/getpid_.c 2002-05-31 23:15:51.765563847 -0400
@@ -25,7 +25,8 @@ Boston, MA 02111-1307, USA. */
#include <sys/types.h>
#include "f2c.h"
-integer G77_getpid_0 (void)
+integer
+G77_getpid_0 (void)
{
return getpid ();
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/getuid_.c egcc-CVS20020531/libf2c/libU77/getuid_.c
--- orig/egcc-CVS20020531/libf2c/libU77/getuid_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/getuid_.c 2002-05-31 23:15:51.765563847 -0400
@@ -26,7 +26,8 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-integer G77_getuid_0 (void)
+integer
+G77_getuid_0 (void)
{
#if defined (HAVE_GETUID)
return getuid ();
diff -rup orig/egcc-CVS20020531/libf2c/libU77/gmtime_.c egcc-CVS20020531/libf2c/libU77/gmtime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/gmtime_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/gmtime_.c 2002-05-31 23:15:51.765563847 -0400
@@ -33,7 +33,8 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-/* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9])
+/* Subroutine */ int
+G77_gmtime_0 (const integer * xstime, integer tarray[9])
{
struct tm *lt;
time_t stime = *xstime;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/hostnm_.c egcc-CVS20020531/libf2c/libU77/hostnm_.c
--- orig/egcc-CVS20020531/libf2c/libU77/hostnm_.c 1998-04-27 06:11:57.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/hostnm_.c 2002-05-31 23:15:51.765563847 -0400
@@ -30,20 +30,22 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-integer G77_hostnm_0 (char *name, ftnlen Lname)
+integer
+G77_hostnm_0 (char *name, ftnlen Lname)
{
- int ret, i;
+ int ret, i;
#if HAVE_GETHOSTNAME
- ret = gethostname (name, Lname);
- if (ret==0) {
- /* Pad with blanks (assuming gethostname will make an error
- return if it can't fit in the null). */
- for (i=strlen(name); i<Lname; i++)
- name[i] = ' ';
+ ret = gethostname (name, Lname);
+ if (ret == 0)
+ {
+ /* Pad with blanks (assuming gethostname will make an error
+ return if it can't fit in the null). */
+ for (i = strlen (name); i < Lname; i++)
+ name[i] = ' ';
}
- return ret;
+ return ret;
#else
- return errno = ENOSYS;
+ return errno = ENOSYS;
#endif
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/idate_.c egcc-CVS20020531/libf2c/libU77/idate_.c
--- orig/egcc-CVS20020531/libf2c/libU77/idate_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/idate_.c 2002-05-31 23:15:51.775566341 -0400
@@ -37,12 +37,13 @@ Boston, MA 02111-1307, USA. */
/* libU77 one: */
-/* Subroutine */ int G77_idate_0 (int iarray[3])
+/* Subroutine */ int
+G77_idate_0 (int iarray[3])
{
struct tm *lt;
time_t tim;
- tim = time(NULL);
- lt = localtime(&tim);
+ tim = time (NULL);
+ lt = localtime (&tim);
iarray[0] = lt->tm_mday;
iarray[1] = lt->tm_mon + 1; /* in range 1-12 in SunOS (experimentally) */
/* The `+1900' is consistent with SunOS and Irix, but they don't say
diff -rup orig/egcc-CVS20020531/libf2c/libU77/ierrno_.c egcc-CVS20020531/libf2c/libU77/ierrno_.c
--- orig/egcc-CVS20020531/libf2c/libU77/ierrno_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/ierrno_.c 2002-05-31 23:15:51.775566341 -0400
@@ -22,7 +22,8 @@ Boston, MA 02111-1307, USA. */
#include <errno.h>
#include "f2c.h"
-integer G77_ierrno_0 (void)
+integer
+G77_ierrno_0 (void)
{
return errno;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/irand_.c egcc-CVS20020531/libf2c/libU77/irand_.c
--- orig/egcc-CVS20020531/libf2c/libU77/irand_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/irand_.c 2002-05-31 23:15:51.775566341 -0400
@@ -31,22 +31,18 @@ Boston, MA 02111-1307, USA. */
/* Note this is per SunOS -- other s may have no arg. */
-integer G77_irand_0 (integer *flag)
+integer
+G77_irand_0 (integer * flag)
{
- switch (*flag) {
- case 0:
- break;
- case 1:
- srand (0); /* Arbitrary choice of initialiser. */
- break;
- default:
- srand (*flag);
- }
+ switch (*flag)
+ {
+ case 0:
+ break;
+ case 1:
+ srand (0); /* Arbitrary choice of initialiser. */
+ break;
+ default:
+ srand (*flag);
+ }
return rand ();
}
-
-
-
-
-
-
diff -rup orig/egcc-CVS20020531/libf2c/libU77/isatty_.c egcc-CVS20020531/libf2c/libU77/isatty_.c
--- orig/egcc-CVS20020531/libf2c/libU77/isatty_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/isatty_.c 2002-05-31 23:15:51.775566341 -0400
@@ -27,11 +27,12 @@ Boston, MA 02111-1307, USA. */
extern integer G77_fnum_0 (integer *);
-logical G77_isatty_0 (integer *lunit)
+logical
+G77_isatty_0 (integer * lunit)
{
- if (*lunit>=MXUNIT || *lunit<0)
- err(1,101,"isatty");
+ if (*lunit >= MXUNIT || *lunit < 0)
+ err (1, 101, "isatty");
/* f__units is a table of descriptions for the unit numbers (defined
in io.h) with file descriptors rather than streams */
- return (isatty(G77_fnum_0 (lunit)) ? TRUE_ : FALSE_);
+ return (isatty (G77_fnum_0 (lunit)) ? TRUE_ : FALSE_);
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/itime_.c egcc-CVS20020531/libf2c/libU77/itime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/itime_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/itime_.c 2002-05-31 23:15:51.775566341 -0400
@@ -33,13 +33,14 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-/* Subroutine */ int G77_itime_0 (integer tarray[3])
+/* Subroutine */ int
+G77_itime_0 (integer tarray[3])
{
struct tm *lt;
time_t tim;
- tim = time(NULL);
- lt = localtime(&tim);
+ tim = time (NULL);
+ lt = localtime (&tim);
tarray[0] = lt->tm_hour;
tarray[1] = lt->tm_min;
tarray[2] = lt->tm_sec;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/kill_.c egcc-CVS20020531/libf2c/libU77/kill_.c
--- orig/egcc-CVS20020531/libf2c/libU77/kill_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/kill_.c 2002-05-31 23:15:51.775566341 -0400
@@ -26,10 +26,11 @@ Boston, MA 02111-1307, USA. */
/* fixme: bsd, svr1-3 use int, not pid_t */
-integer G77_kill_0 (const integer *pid, const integer *signum)
+integer
+G77_kill_0 (const integer * pid, const integer * signum)
{
#if defined (HAVE_KILL)
- return kill ((pid_t) *pid, *signum) ? errno : 0;
+ return kill ((pid_t) * pid, *signum) ? errno : 0;
#else
errno = ENOSYS;
return -1;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/link_.c egcc-CVS20020531/libf2c/libU77/link_.c
--- orig/egcc-CVS20020531/libf2c/libU77/link_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/link_.c 2002-05-31 23:15:51.785565737 -0400
@@ -34,23 +34,28 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-void g_char(const char *a, ftnlen alen, char *b);
+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)
+integer
+G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+ const ftnlen Lpath2)
{
#if defined (HAVE_LINK)
char *buff1, *buff2;
char *bp, *blast;
int i;
- buff1 = malloc (Lpath1+1);
- if (buff1 == NULL) return -1;
+ buff1 = malloc (Lpath1 + 1);
+ if (buff1 == NULL)
+ return -1;
g_char (path1, Lpath1, buff1);
- buff2 = malloc (Lpath2+1);
- if (buff2 == NULL) return -1;
+ buff2 = malloc (Lpath2 + 1);
+ if (buff2 == NULL)
+ return -1;
g_char (path2, Lpath2, buff2);
i = link (buff1, buff2);
- free (buff1); free (buff2);
+ free (buff1);
+ free (buff2);
return i ? errno : 0;
#else /* ! HAVE_LINK */
errno = ENOSYS;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/lnblnk_.c egcc-CVS20020531/libf2c/libU77/lnblnk_.c
--- orig/egcc-CVS20020531/libf2c/libU77/lnblnk_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/lnblnk_.c 2002-05-31 23:15:51.785565737 -0400
@@ -21,15 +21,18 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
-integer G77_lnblnk_0 (char *str, ftnlen str_len)
+integer
+G77_lnblnk_0 (char *str, ftnlen str_len)
{
- integer ret_val;
- integer i_len();
+ integer ret_val;
+ integer i_len ();
- for (ret_val = str_len; ret_val >= 1; --ret_val) {
- if (*(unsigned char *)&str[ret_val - 1] != ' ') {
- return ret_val;
+ for (ret_val = str_len; ret_val >= 1; --ret_val)
+ {
+ if (*(unsigned char *) &str[ret_val - 1] != ' ')
+ {
+ return ret_val;
}
}
- return ret_val;
+ return ret_val;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/lstat_.c egcc-CVS20020531/libf2c/libU77/lstat_.c
--- orig/egcc-CVS20020531/libf2c/libU77/lstat_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/lstat_.c 2002-05-31 23:15:51.785565737 -0400
@@ -30,9 +30,10 @@ Boston, MA 02111-1307, USA. */
/* lstat isn't posix */
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
-integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
+integer
+G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
{
#if HAVE_LSTAT
char *buff;
@@ -40,8 +41,9 @@ integer G77_lstat_0 (const char *name, i
int err;
struct stat buf;
- buff = malloc (Lname+1);
- if (buff == NULL) return -1;
+ buff = malloc (Lname + 1);
+ if (buff == NULL)
+ return -1;
g_char (name, Lname, buff);
err = lstat (buff, &buf);
free (buff);
@@ -71,7 +73,7 @@ integer G77_lstat_0 (const char *name, i
statb[12] = -1;
#endif
return err;
-#else /* !HAVE_LSTAT */
+#else /* !HAVE_LSTAT */
return errno = ENOSYS;
-#endif /* !HAVE_LSTAT */
+#endif /* !HAVE_LSTAT */
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/ltime_.c egcc-CVS20020531/libf2c/libU77/ltime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/ltime_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/ltime_.c 2002-05-31 23:15:51.785565737 -0400
@@ -33,7 +33,8 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-/* Subroutine */ int G77_ltime_0 (const integer * xstime, integer tarray[9])
+/* Subroutine */ int
+G77_ltime_0 (const integer * xstime, integer tarray[9])
{
struct tm *lt;
time_t stime = *xstime;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/mclock_.c egcc-CVS20020531/libf2c/libU77/mclock_.c
--- orig/egcc-CVS20020531/libf2c/libU77/mclock_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/mclock_.c 2002-05-31 23:15:51.785565737 -0400
@@ -33,7 +33,8 @@ Boston, MA 02111-1307, USA. */
/* Reported by wd42ej@sgi83.wwb.noaa.gov (Russ Jones AUTO-Sun3) on AIX. */
-longint G77_mclock_0 (void)
+longint
+G77_mclock_0 (void)
{
#if HAVE_CLOCK
return clock ();
diff -rup orig/egcc-CVS20020531/libf2c/libU77/perror_.c egcc-CVS20020531/libf2c/libU77/perror_.c
--- orig/egcc-CVS20020531/libf2c/libU77/perror_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/perror_.c 2002-05-31 23:15:51.785565737 -0400
@@ -28,14 +28,15 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-/* Subroutine */ int G77_perror_0 (const char *str, const ftnlen Lstr)
+/* Subroutine */ int
+G77_perror_0 (const char *str, const ftnlen Lstr)
{
char buff[1000];
char *bp, *blast;
/* same technique as `system' -- what's wrong with malloc? */
blast = buff + (Lstr < 1000 ? Lstr : 1000);
- for (bp = buff ; bp<blast && *str!='\0' ; )
+ for (bp = buff; bp < blast && *str != '\0';)
*bp++ = *str++;
*bp = '\0';
perror (buff);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/rand_.c egcc-CVS20020531/libf2c/libU77/rand_.c
--- orig/egcc-CVS20020531/libf2c/libU77/rand_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/rand_.c 2002-05-31 23:15:51.795565313 -0400
@@ -34,16 +34,18 @@ Boston, MA 02111-1307, USA. */
/* Note this is per SunOS -- other s may have no arg. */
-double G77_rand_0 (integer *flag)
+double
+G77_rand_0 (integer * flag)
{
- switch (*flag) {
- case 0:
- break;
- case 1:
- srand (0); /* Arbitrary choice of initialiser. */
- break;
- default:
- srand (*flag);
- }
+ switch (*flag)
+ {
+ case 0:
+ break;
+ case 1:
+ srand (0); /* Arbitrary choice of initialiser. */
+ break;
+ default:
+ srand (*flag);
+ }
return (float) rand () / RAND_MAX;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/rename_.c egcc-CVS20020531/libf2c/libU77/rename_.c
--- orig/egcc-CVS20020531/libf2c/libU77/rename_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/rename_.c 2002-05-31 23:15:51.795565313 -0400
@@ -29,21 +29,26 @@ Boston, MA 02111-1307, USA. */
#include <errno.h>
#include "f2c.h"
-void g_char(const char *a, ftnlen alen, char *b);
+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)
+integer
+G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+ const ftnlen Lpath2)
{
char *buff1, *buff2;
char *bp, *blast;
int i;
- buff1 = malloc (Lpath1+1);
- if (buff1 == NULL) return -1;
+ buff1 = malloc (Lpath1 + 1);
+ if (buff1 == NULL)
+ return -1;
g_char (path1, Lpath1, buff1);
- buff2 = malloc (Lpath2+1);
- if (buff2 == NULL) return -1;
+ buff2 = malloc (Lpath2 + 1);
+ if (buff2 == NULL)
+ return -1;
g_char (path2, Lpath2, buff2);
i = rename (buff1, buff2);
- free (buff1); free (buff2);
+ free (buff1);
+ free (buff2);
return i ? errno : 0;
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/secnds_.c egcc-CVS20020531/libf2c/libU77/secnds_.c
--- orig/egcc-CVS20020531/libf2c/libU77/secnds_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/secnds_.c 2002-05-31 23:15:51.795565313 -0400
@@ -36,16 +36,16 @@ Boston, MA 02111-1307, USA. */
/* This is a VMS intrinsic. */
-double G77_secnds_0 (real *r)
+double
+G77_secnds_0 (real * r)
{
- struct tm *lt;
- time_t clock;
- float f;
+ struct tm *lt;
+ time_t clock;
+ float f;
- clock = time (NULL);
- lt = localtime (&clock);
- f= (3600.0*((real)lt->tm_hour) + 60.0*((real)lt->tm_min) +
- (real)lt->tm_sec - *r);
- return f;
+ clock = time (NULL);
+ lt = localtime (&clock);
+ f = (3600.0 * ((real) lt->tm_hour) + 60.0 * ((real) lt->tm_min) +
+ (real) lt->tm_sec - *r);
+ return f;
}
-
diff -rup orig/egcc-CVS20020531/libf2c/libU77/second_.c egcc-CVS20020531/libf2c/libU77/second_.c
--- orig/egcc-CVS20020531/libf2c/libU77/second_.c 1999-09-04 11:09:19.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/second_.c 2002-05-31 23:15:51.795565313 -0400
@@ -18,7 +18,9 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
-double G77_second_0 () {
+double
+G77_second_0 ()
+{
extern double G77_etime_0 ();
real tarray[2];
diff -rup orig/egcc-CVS20020531/libf2c/libU77/sleep_.c egcc-CVS20020531/libf2c/libU77/sleep_.c
--- orig/egcc-CVS20020531/libf2c/libU77/sleep_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/sleep_.c 2002-05-31 23:15:51.795565313 -0400
@@ -25,7 +25,8 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
/* Subroutine */
-int G77_sleep_0 (const integer *seconds)
+int
+G77_sleep_0 (const integer * seconds)
{
(void) sleep ((unsigned int) *seconds);
return 0;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/srand_.c egcc-CVS20020531/libf2c/libU77/srand_.c
--- orig/egcc-CVS20020531/libf2c/libU77/srand_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/srand_.c 2002-05-31 23:15:51.795565313 -0400
@@ -24,8 +24,9 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-/* Subroutine */
-int G77_srand_0 (const integer *seed)
+/* Subroutine */
+int
+G77_srand_0 (const integer * seed)
{
srand ((unsigned int) *seed);
return 0;
diff -rup orig/egcc-CVS20020531/libf2c/libU77/stat_.c egcc-CVS20020531/libf2c/libU77/stat_.c
--- orig/egcc-CVS20020531/libf2c/libU77/stat_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/stat_.c 2002-05-31 23:15:51.795565313 -0400
@@ -27,17 +27,19 @@ Boston, MA 02111-1307, USA. */
#include <sys/stat.h>
#include "f2c.h"
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
-integer G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
+integer
+G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
{
char *buff;
char *bp, *blast;
int err;
struct stat buf;
- buff = malloc (Lname+1);
- if (buff == NULL) return -1;
+ buff = malloc (Lname + 1);
+ if (buff == NULL)
+ return -1;
g_char (name, Lname, buff);
err = stat (buff, &buf);
free (buff);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/symlnk_.c egcc-CVS20020531/libf2c/libU77/symlnk_.c
--- orig/egcc-CVS20020531/libf2c/libU77/symlnk_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/symlnk_.c 2002-05-31 23:15:51.805564189 -0400
@@ -33,25 +33,30 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-void g_char(const char *a, ftnlen alen, char *b);
+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)
+integer
+G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+ const ftnlen Lpath2)
{
#if HAVE_SYMLINK
char *buff1, *buff2;
char *bp, *blast;
int i;
- buff1 = (char *) malloc (Lpath1+1);
- if (buff1 == NULL) return -1;
+ buff1 = (char *) malloc (Lpath1 + 1);
+ if (buff1 == NULL)
+ return -1;
g_char (path1, Lpath1, buff1);
- buff2 = (char *) malloc (Lpath2+1);
- if (buff2 == NULL) return -1;
+ buff2 = (char *) malloc (Lpath2 + 1);
+ if (buff2 == NULL)
+ return -1;
g_char (path2, Lpath2, buff2);
i = symlink (buff1, buff2);
- free (buff1); free (buff2);
+ free (buff1);
+ free (buff2);
return i ? errno : 0;
-#else /* !HAVE_SYMLINK */
+#else /* !HAVE_SYMLINK */
return errno = ENOSYS;
-#endif /* !HAVE_SYMLINK */
+#endif /* !HAVE_SYMLINK */
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/sys_clock_.c egcc-CVS20020531/libf2c/libU77/sys_clock_.c
--- orig/egcc-CVS20020531/libf2c/libU77/sys_clock_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/sys_clock_.c 2002-05-31 23:15:51.805564189 -0400
@@ -43,26 +43,29 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
+int
+G77_system_clock_0 (integer * count, integer * count_rate,
+ integer * count_max)
{
#if defined (HAVE_TIMES)
struct tms buffer;
unsigned long cnt;
- if (count_rate) {
+ if (count_rate)
+ {
#ifdef _SC_CLK_TCK
- *count_rate = sysconf(_SC_CLK_TCK);
+ *count_rate = sysconf (_SC_CLK_TCK);
#elif defined CLOCKS_PER_SECOND
- *count_rate = CLOCKS_PER_SECOND;
+ *count_rate = CLOCKS_PER_SECOND;
#elif defined CLK_TCK
- *count_rate = CLK_TCK;
+ *count_rate = CLK_TCK;
#elif defined HZ
- *count_rate = HZ;
+ *count_rate = HZ;
#else
#error Dont know clock tick length
#endif
- }
+ }
if (count_max) /* optional arg present? */
- *count_max = INT_MAX; /* dubious */
+ *count_max = INT_MAX; /* dubious */
cnt = times (&buffer);
if (cnt > (unsigned long) (INT_MAX))
*count = INT_MAX; /* also dubious */
diff -rup orig/egcc-CVS20020531/libf2c/libU77/time_.c egcc-CVS20020531/libf2c/libU77/time_.c
--- orig/egcc-CVS20020531/libf2c/libU77/time_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/time_.c 2002-05-31 23:15:51.805564189 -0400
@@ -35,7 +35,8 @@ 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. */
-longint G77_time_0 (void)
+longint
+G77_time_0 (void)
{
/* There are potential problems with the cast of the time_t here. */
return time (NULL);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/ttynam_.c egcc-CVS20020531/libf2c/libU77/ttynam_.c
--- orig/egcc-CVS20020531/libf2c/libU77/ttynam_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/ttynam_.c 2002-05-31 23:15:51.805564189 -0400
@@ -35,21 +35,25 @@ Boston, MA 02111-1307, USA. */
#include <errno.h> /* for ENOSYS */
#include "f2c.h"
-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)
+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)
{
#if defined (HAVE_TTYNAME)
size_t i;
char *p;
p = ttyname (G77_fnum_0 (lunit));
- if (p != NULL) {
- i = strlen (p);
- s_copy (ret_val, p, ret_val_len, i);
- } else {
- s_copy (ret_val, " ", ret_val_len, 1);
- }
+ if (p != NULL)
+ {
+ i = strlen (p);
+ s_copy (ret_val, p, ret_val_len, i);
+ }
+ else
+ {
+ s_copy (ret_val, " ", ret_val_len, 1);
+ }
#else
errno = ENOSYS;
s_copy (ret_val, " ", ret_val_len, 1);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/umask_.c egcc-CVS20020531/libf2c/libU77/umask_.c
--- orig/egcc-CVS20020531/libf2c/libU77/umask_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/umask_.c 2002-05-31 23:15:51.805564189 -0400
@@ -23,7 +23,8 @@ Boston, MA 02111-1307, USA. */
#include <sys/stat.h>
#include "f2c.h"
-integer G77_umask_0 (integer *mask)
+integer
+G77_umask_0 (integer * mask)
{
- return umask ((mode_t) *mask);
+ return umask ((mode_t) * mask);
}
diff -rup orig/egcc-CVS20020531/libf2c/libU77/unlink_.c egcc-CVS20020531/libf2c/libU77/unlink_.c
--- orig/egcc-CVS20020531/libf2c/libU77/unlink_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/unlink_.c 2002-05-31 23:15:51.805564189 -0400
@@ -33,16 +33,18 @@ Boston, MA 02111-1307, USA. */
#endif
#include "f2c.h"
-void g_char(const char *a, ftnlen alen, char *b);
+void g_char (const char *a, ftnlen alen, char *b);
-integer G77_unlink_0 (const char *str, const ftnlen Lstr)
+integer
+G77_unlink_0 (const char *str, const ftnlen Lstr)
{
char *buff;
char *bp, *blast;
int i;
- buff = malloc (Lstr+1);
- if (buff == NULL) return -1;
+ buff = malloc (Lstr + 1);
+ if (buff == NULL)
+ return -1;
g_char (str, Lstr, buff);
i = unlink (buff);
free (buff);
diff -rup orig/egcc-CVS20020531/libf2c/libU77/vxtidate_.c egcc-CVS20020531/libf2c/libU77/vxtidate_.c
--- orig/egcc-CVS20020531/libf2c/libU77/vxtidate_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/vxtidate_.c 2002-05-31 23:15:51.815563945 -0400
@@ -38,24 +38,26 @@ Boston, MA 02111-1307, USA. */
/* VMS style: */
/* Subroutine */
-int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y)
+int
+G77_vxtidate_y2kbug_0 (integer * m, integer * d, integer * y)
{
struct tm *lt;
time_t tim;
- tim = time(NULL);
- lt = localtime(&tim);
+ tim = time (NULL);
+ lt = localtime (&tim);
*y = lt->tm_year % 100;
- *m = lt->tm_mon+1;
+ *m = lt->tm_mon + 1;
*d = lt->tm_mday;
return 0;
}
#ifdef PIC
extern const char *G77_Non_Y2K_Compliance_Message;
-int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y)
+int
+G77_vxtidate_y2kbuggy_0 (integer * m, integer * d, integer * y)
{
- extern int G77_abort_0();
+ extern int G77_abort_0 ();
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
- G77_abort_0();
+ G77_abort_0 ();
}
#endif
diff -rup orig/egcc-CVS20020531/libf2c/libU77/vxttime_.c egcc-CVS20020531/libf2c/libU77/vxttime_.c
--- orig/egcc-CVS20020531/libf2c/libU77/vxttime_.c 2002-05-31 21:47:46.000000000 -0400
+++ egcc-CVS20020531/libf2c/libU77/vxttime_.c 2002-05-31 23:15:51.815563945 -0400
@@ -39,11 +39,12 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
/* Subroutine */
-void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
+void
+G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
{
time_t tim;
char *ctim;
- tim = time(NULL);
+ tim = time (NULL);
ctim = ctime (&tim);
- strncpy (chtime, ctim+11, 8);
+ strncpy (chtime, ctim + 11, 8);
}
More information about the Gcc-patches
mailing list