git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

g2c.hin, [...]: Kill VOID, Void and Int. 

* g2c.hin, libF77/d_cnjg.c, libF77/main.c, libF77/r_cnjg.c,
	libF77/s_cat.c, libF77/s_paus.c, libF77/s_rnge.c, libF77/setarg.c,
	libF77/setsig.c, libF77/signal1.h0, libI77/dfe.c, libI77/due.c,
	libI77/err.c, libI77/fio.h, libI77/fmt.c, libI77/iio.c,
	libI77/ilnw.c, libI77/lread.c, libI77/lwrite.c, libI77/rsfe.c,
	libI77/rsli.c, libI77/rsne.c, libI77/sfe.c, libI77/sue.c,
	libI77/util.c, libI77/wrtfmt.c, libI77/wsfe.c, libI77/wsle.c,
	libI77/xwsne.c, libU77/date_.c: Kill VOID, Void and Int.

From-SVN: r54134
This commit is contained in:
Kaveh R. Ghazi 2002-06-01 01:58:10 +00:00 committed by Kaveh Ghazi
parent 9321813126
commit 9bb2ada61f
31 changed files with 105 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libf2c/ChangeLog
View File

@ -1,3 +1,14 @@
Fri May 31 21:56:30 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* g2c.hin, libF77/d_cnjg.c, libF77/main.c, libF77/r_cnjg.c,
libF77/s_cat.c, libF77/s_paus.c, libF77/s_rnge.c, libF77/setarg.c,
libF77/setsig.c, libF77/signal1.h0, libI77/dfe.c, libI77/due.c,
libI77/err.c, libI77/fio.h, libI77/fmt.c, libI77/iio.c,
libI77/ilnw.c, libI77/lread.c, libI77/lwrite.c, libI77/rsfe.c,
libI77/rsli.c, libI77/rsne.c, libI77/sfe.c, libI77/sue.c,
libI77/util.c, libI77/wrtfmt.c, libI77/wsfe.c, libI77/wsle.c,
libI77/xwsne.c, libU77/date_.c: Kill VOID, Void and Int.
Fri May 31 21:54:37 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> Fri May 31 21:54:37 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libF77/F77_aloc.c, libF77/exit_.c, libF77/main.c, * libF77/F77_aloc.c, libF77/exit_.c, libF77/main.c,

20
libf2c/g2c.hin
View File

@ -132,8 +132,6 @@ typedef struct
ftnlen inblanklen; ftnlen inblanklen;
} inlist; } inlist;
#define VOID void
union Multitype { /* for multiple entry points */ union Multitype { /* for multiple entry points */
integer1 g; integer1 g;
shortint h; shortint h;
@ -183,11 +181,11 @@ typedef shortint (*J_fp)(...);
typedef integer (*I_fp)(...); typedef integer (*I_fp)(...);
typedef real (*R_fp)(...); typedef real (*R_fp)(...);
typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...);
typedef /* Complex */ VOID (*C_fp)(...); typedef /* Complex */ void (*C_fp)(...);
typedef /* Double Complex */ VOID (*Z_fp)(...); typedef /* Double Complex */ void (*Z_fp)(...);
typedef logical (*L_fp)(...); typedef logical (*L_fp)(...);
typedef shortlogical (*K_fp)(...); typedef shortlogical (*K_fp)(...);
typedef /* Character */ VOID (*H_fp)(...); typedef /* Character */ void (*H_fp)(...);
typedef /* Subroutine */ int (*S_fp)(...); typedef /* Subroutine */ int (*S_fp)(...);
#else #else
typedef int /* Unknown procedure type */ (*U_fp)(); typedef int /* Unknown procedure type */ (*U_fp)();
@ -195,17 +193,17 @@ typedef shortint (*J_fp)();
typedef integer (*I_fp)(); typedef integer (*I_fp)();
typedef real (*R_fp)(); typedef real (*R_fp)();
typedef doublereal (*D_fp)(), (*E_fp)(); typedef doublereal (*D_fp)(), (*E_fp)();
typedef /* Complex */ VOID (*C_fp)(); typedef /* Complex */ void (*C_fp)();
typedef /* Double Complex */ VOID (*Z_fp)(); typedef /* Double Complex */ void (*Z_fp)();
typedef logical (*L_fp)(); typedef logical (*L_fp)();
typedef shortlogical (*K_fp)(); typedef shortlogical (*K_fp)();
typedef /* Character */ VOID (*H_fp)(); typedef /* Character */ void (*H_fp)();
typedef /* Subroutine */ int (*S_fp)(); typedef /* Subroutine */ int (*S_fp)();
#endif #endif
/* E_fp is for real functions when -R is not specified */ /* E_fp is for real functions when -R is not specified */
typedef VOID C_f; /* complex function */ typedef void C_f; /* complex function */
typedef VOID H_f; /* character function */ typedef void H_f; /* character function */
typedef VOID Z_f; /* double complex function */ typedef void Z_f; /* double complex function */
typedef doublereal E_f; /* real function with -R not specified */ typedef doublereal E_f; /* real function with -R not specified */
/* undef any lower-case symbols that your C compiler predefines, e.g.: */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */

2
libf2c/libF77/d_cnjg.c
View File

@ -1,6 +1,6 @@
#include "f2c.h" #include "f2c.h"
VOID void
d_cnjg(doublecomplex *r, doublecomplex *z) d_cnjg(doublecomplex *r, doublecomplex *z)
{ {
doublereal zi = z->i; doublereal zi = z->i;

5
libf2c/libF77/main.c
View File

@ -3,13 +3,8 @@
#include <stdio.h> #include <stdio.h>
#include "signal1.h" #include "signal1.h"
#undef VOID
#include <stdlib.h> #include <stdlib.h>
#ifndef VOID
#define VOID void
#endif
extern void f_exit(void); extern void f_exit(void);
#ifndef NO_ONEXIT #ifndef NO_ONEXIT
#define ONEXIT atexit #define ONEXIT atexit

3
libf2c/libF77/r_cnjg.c
View File

@ -1,6 +1,7 @@
#include "f2c.h" #include "f2c.h"
VOID r_cnjg(complex *r, complex *z) void
r_cnjg(complex *r, complex *z)
{ {
real zi = z->i; real zi = z->i;
r->r = z->r; r->r = z->r;

2
libf2c/libF77/s_cat.c
View File

@ -14,7 +14,7 @@
#include <string.h> #include <string.h>
#endif /* NO_OVERWRITE */ #endif /* NO_OVERWRITE */
VOID void
s_cat(char *lp, char *rpp[], ftnint rnp[], ftnint *np, ftnlen ll) s_cat(char *lp, char *rpp[], ftnint rnp[], ftnint *np, ftnlen ll)
{ {
ftnlen i, nc; ftnlen i, nc;

8
libf2c/libF77/s_paus.c
View File

@ -3,23 +3,21 @@
#define PAUSESIG 15 #define PAUSESIG 15
#include "signal1.h" #include "signal1.h"
#define Void void
#define Int int
#undef abs #undef abs
#undef min #undef min
#undef max #undef max
#include <stdlib.h> #include <stdlib.h>
extern int getpid(void), isatty(int), pause(void); extern int getpid(void), isatty(int), pause(void);
extern VOID f_exit(Void); extern void f_exit(void);
static VOID static void
waitpause(Sigarg) waitpause(Sigarg)
{ Use_Sigarg; { Use_Sigarg;
return; return;
} }
static VOID static void
s_1paus(FILE *fin) s_1paus(FILE *fin)
{ {
fprintf(stderr, fprintf(stderr,

2
libf2c/libF77/s_rnge.c
View File

@ -3,7 +3,7 @@
/* called when a subscript is out of range */ /* called when a subscript is out of range */
extern VOID sig_die(char*,int); extern void sig_die(char*,int);
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
{ {
register int i; register int i;

5
libf2c/libF77/setarg.c
View File

@ -1,13 +1,8 @@
/* Set up the global argc/argv info for use by getarg_, iargc_, and /* Set up the global argc/argv info for use by getarg_, iargc_, and
g77's inlined intrinsic equivalents. */ g77's inlined intrinsic equivalents. */
#undef VOID
#include <stdlib.h> #include <stdlib.h>
#ifndef VOID
#define VOID void
#endif
int f__xargc; int f__xargc;
char **f__xargv; char **f__xargv;

24
libf2c/libF77/setsig.c
View File

@ -9,31 +9,28 @@
#endif #endif
#endif #endif
#undef VOID
#include <stdlib.h> #include <stdlib.h>
#ifndef VOID
#define VOID void
#endif
extern void sig_die(char*, int); extern void sig_die(char*, int);
#define Int int
static VOID sigfdie(Sigarg) static void
sigfdie(Sigarg)
{ {
Use_Sigarg; Use_Sigarg;
sig_die("Floating Exception", 1); sig_die("Floating Exception", 1);
} }
static VOID sigidie(Sigarg) static void
sigidie(Sigarg)
{ {
Use_Sigarg; Use_Sigarg;
sig_die("IOT Trap", 1); sig_die("IOT Trap", 1);
} }
#ifdef SIGQUIT #ifdef SIGQUIT
static VOID sigqdie(Sigarg) static void
sigqdie(Sigarg)
{ {
Use_Sigarg; Use_Sigarg;
sig_die("Quit signal", 1); sig_die("Quit signal", 1);
@ -41,20 +38,23 @@ sig_die("Quit signal", 1);
#endif #endif
static VOID sigindie(Sigarg) static void
sigindie(Sigarg)
{ {
Use_Sigarg; Use_Sigarg;
sig_die("Interrupt", 0); sig_die("Interrupt", 0);
} }
static VOID sigtdie(Sigarg) static void
sigtdie(Sigarg)
{ {
Use_Sigarg; Use_Sigarg;
sig_die("Killed", 0); sig_die("Killed", 0);
} }
#ifdef SIGTRAP #ifdef SIGTRAP
static VOID sigtrdie(Sigarg) static void
sigtrdie(Sigarg)
{ {
Use_Sigarg; Use_Sigarg;
sig_die("Trace trap", 1); sig_die("Trace trap", 1);

2
libf2c/libF77/signal1.h0
View File

@ -22,5 +22,5 @@ typedef Sigret_t (*sig_pf)(Sigarg_t);
#define signal1(a,b) signal(a,(sig_pf)b) #define signal1(a,b) signal(a,(sig_pf)b)
#define Sigarg Int n #define Sigarg int n
#define Use_Sigarg n = n /* shut up compiler warning */ #define Use_Sigarg n = n /* shut up compiler warning */

14
libf2c/libI77/dfe.c
View File

@ -3,7 +3,7 @@
#include "fio.h" #include "fio.h"
#include "fmt.h" #include "fmt.h"
y_rsk(Void) y_rsk(void)
{ {
if(f__curunit->uend || f__curunit->url <= f__recpos if(f__curunit->uend || f__curunit->url <= f__recpos
|| f__curunit->url == 1) return 0; || f__curunit->url == 1) return 0;
@ -12,7 +12,7 @@ y_rsk(Void)
} while(++f__recpos < f__curunit->url); } while(++f__recpos < f__curunit->url);
return 0; return 0;
} }
y_getc(Void) y_getc(void)
{ {
int ch; int ch;
if(f__curunit->uend) return(-1); if(f__curunit->uend) return(-1);
@ -34,7 +34,7 @@ y_getc(Void)
} }
static int static int
y_rev(Void) y_rev(void)
{ {
if (f__recpos < f__hiwater) if (f__recpos < f__hiwater)
f__recpos = f__hiwater; f__recpos = f__hiwater;
@ -48,13 +48,13 @@ y_rev(Void)
} }
static int static int
y_err(Void) y_err(void)
{ {
err(f__elist->cierr, 110, "dfe"); err(f__elist->cierr, 110, "dfe");
} }
static int static int
y_newrec(Void) y_newrec(void)
{ {
y_rev(); y_rev();
f__hiwater = f__cursor = 0; f__hiwater = f__cursor = 0;
@ -121,14 +121,14 @@ integer s_wdfe(cilist *a)
fmt_bg(); fmt_bg();
return(0); return(0);
} }
integer e_rdfe(Void) integer e_rdfe(void)
{ {
f__init = 1; f__init = 1;
en_fio(); en_fio();
return(0); return(0);
} }
integer e_wdfe(Void) integer e_wdfe(void)
{ {
f__init = 1; f__init = 1;
return en_fio(); return en_fio();

4
libf2c/libI77/due.c
View File

@ -43,7 +43,7 @@ integer s_wdue(cilist *a)
err(a->cierr,errno,"write start"); err(a->cierr,errno,"write start");
return(0); return(0);
} }
integer e_rdue(Void) integer e_rdue(void)
{ {
f__init = 1; f__init = 1;
if(f__curunit->url==1 || f__recpos==f__curunit->url) if(f__curunit->url==1 || f__recpos==f__curunit->url)
@ -53,7 +53,7 @@ integer e_rdue(Void)
err(f__elist->cierr,200,"syserr"); err(f__elist->cierr,200,"syserr");
return(0); return(0);
} }
integer e_wdue(Void) integer e_wdue(void)
{ {
f__init = 1; f__init = 1;
#ifdef ALWAYS_FLUSH #ifdef ALWAYS_FLUSH

4
libf2c/libI77/err.c
View File

@ -162,8 +162,8 @@ f__fatal(int n, char *s)
sig_die(" IO", 1); sig_die(" IO", 1);
} }
/*initialization routine*/ /*initialization routine*/
VOID void
f_init(Void) f_init(void)
{ unit *p; { unit *p;
if (f__init & 2) if (f__init & 2)

4
libf2c/libI77/fio.h
View File

@ -58,8 +58,6 @@ typedef struct
extern int f__init; extern int f__init;
extern cilist *f__elist; /*active external io list*/ extern cilist *f__elist; /*active external io list*/
extern flag f__reading,f__external,f__sequential,f__formatted; extern flag f__reading,f__external,f__sequential,f__formatted;
#undef Void
#define Void void
extern int (*f__getn)(void); /* for formatted input */ extern int (*f__getn)(void); /* for formatted input */
extern void (*f__putn)(int); /* for formatted output */ extern void (*f__putn)(int); /* for formatted output */
extern void x_putc(int); extern void x_putc(int);
@ -78,7 +76,7 @@ extern int isatty(int);
extern int err__fl(int,int,char*); extern int err__fl(int,int,char*);
extern int xrd_SL(void); extern int xrd_SL(void);
extern int f__putbuf(int); extern int f__putbuf(int);
extern int (*f__doend)(Void); extern int (*f__doend)(void);
extern FILE *f__cf; /*current file*/ extern FILE *f__cf; /*current file*/
extern unit *f__curunit; /*current unit*/ extern unit *f__curunit; /*current unit*/
extern unit f__units[]; extern unit f__units[];

6
libf2c/libI77/fmt.c
View File

@ -487,12 +487,12 @@ loop: switch(type_f((p= &f__syl[f__pc])->op))
} }
return(0); return(0);
} }
en_fio(Void) en_fio(void)
{ ftnint one=1; { ftnint one=1;
return(do_fio(&one,(char *)NULL,(ftnint)0)); return(do_fio(&one,(char *)NULL,(ftnint)0));
} }
VOID void
fmt_bg(Void) fmt_bg(void)
{ {
f__workdone=f__cp=f__rp=f__pc=f__cursor=0; f__workdone=f__cp=f__rp=f__pc=f__cursor=0;
f__cnt[0]=f__ret[0]=0; f__cnt[0]=f__ret[0]=0;

14
libf2c/libI77/iio.c
View File

@ -6,7 +6,7 @@ char *f__icend;
extern icilist *f__svic; extern icilist *f__svic;
int f__icnum; int f__icnum;
extern int f__hiwater; extern int f__hiwater;
z_getc(Void) z_getc(void)
{ {
if(f__recpos++ < f__svic->icirlen) { if(f__recpos++ < f__svic->icirlen) {
if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile"); if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile");
@ -21,7 +21,7 @@ z_putc(int c)
if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen) if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
*f__icptr++ = c; *f__icptr++ = c;
} }
z_rnew(Void) z_rnew(void)
{ {
f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen; f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen;
f__recpos = 0; f__recpos = 0;
@ -31,7 +31,7 @@ z_rnew(Void)
} }
static int static int
z_endp(Void) z_endp(void)
{ {
(*f__donewrec)(); (*f__donewrec)();
return 0; return 0;
@ -62,7 +62,7 @@ c_si(icilist *a)
} }
int int
iw_rev(Void) iw_rev(void)
{ {
if(f__workdone) if(f__workdone)
z_endp(); z_endp();
@ -83,7 +83,7 @@ integer s_rsfi(icilist *a)
return(0); return(0);
} }
z_wnew(Void) z_wnew(void)
{ {
if (f__recpos < f__hiwater) { if (f__recpos < f__hiwater) {
f__icptr += f__hiwater - f__recpos; f__icptr += f__hiwater - f__recpos;
@ -109,14 +109,14 @@ integer s_wsfi(icilist *a)
f__doend = z_endp; f__doend = z_endp;
return(0); return(0);
} }
integer e_rsfi(Void) integer e_rsfi(void)
{ int n; { int n;
f__init &= ~2; f__init &= ~2;
n = en_fio(); n = en_fio();
f__fmtbuf = NULL; f__fmtbuf = NULL;
return(n); return(n);
} }
integer e_wsfi(Void) integer e_wsfi(void)
{ {
int n; int n;
f__init &= ~2; f__init &= ~2;

4
libf2c/libI77/ilnw.c
View File

@ -9,7 +9,7 @@ extern int f__icnum;
extern void z_putc(int); extern void z_putc(int);
static int static int
z_wSL(Void) z_wSL(void)
{ {
while(f__recpos < f__svic->icirlen) while(f__recpos < f__svic->icirlen)
z_putc(' '); z_putc(' ');
@ -59,7 +59,7 @@ s_wsli(icilist *a)
return(0); return(0);
} }
integer e_wsli(Void) integer e_wsli(void)
{ {
f__init = 1; f__init = 1;
z_wSL(); z_wSL();

14
libf2c/libI77/lread.c
View File

@ -63,7 +63,7 @@ un_getc(int x, FILE *f__cf)
extern int ungetc(int, FILE*); /* for systems with a buggy stdio.h */ extern int ungetc(int, FILE*); /* for systems with a buggy stdio.h */
#endif #endif
t_getc(Void) t_getc(void)
{ int ch; { int ch;
if(f__curunit->uend) return(EOF); if(f__curunit->uend) return(EOF);
if((ch=getc(f__cf))!=EOF) return(ch); if((ch=getc(f__cf))!=EOF) return(ch);
@ -71,7 +71,7 @@ t_getc(Void)
f__curunit->uend = l_eof = 1; f__curunit->uend = l_eof = 1;
return(EOF); return(EOF);
} }
integer e_rsle(Void) integer e_rsle(void)
{ {
int ch; int ch;
f__init = 1; f__init = 1;
@ -253,7 +253,7 @@ rd_count(register int ch)
} }
static int static int
l_C(Void) l_C(void)
{ int ch, nml_save; { int ch, nml_save;
double lz; double lz;
if(f__lcount>0) return(0); if(f__lcount>0) return(0);
@ -317,11 +317,11 @@ l_C(Void)
} }
static char nmLbuf[256], *nmL_next; static char nmLbuf[256], *nmL_next;
static int (*nmL_getc_save)(Void); static int (*nmL_getc_save)(void);
static int (*nmL_ungetc_save)(int, FILE*); static int (*nmL_ungetc_save)(int, FILE*);
static int static int
nmL_getc(Void) nmL_getc(void)
{ {
int rv; int rv;
if (rv = *nmL_next++) if (rv = *nmL_next++)
@ -386,7 +386,7 @@ Lfinish(int ch, int dot, int *rvp)
} }
static int static int
l_L(Void) l_L(void)
{ {
int ch, rv, sawdot; int ch, rv, sawdot;
if(f__lcount>0) if(f__lcount>0)
@ -444,7 +444,7 @@ l_L(Void)
#define BUFSIZE 128 #define BUFSIZE 128
static int static int
l_CHAR(Void) l_CHAR(void)
{ int ch,size,i; { int ch,size,i;
static char rafail[] = "realloc failure"; static char rafail[] = "realloc failure";
char quote,*p; char quote,*p;

16
libf2c/libI77/lwrite.c
View File

@ -6,14 +6,14 @@
ftnint L_len; ftnint L_len;
int f__Aquote; int f__Aquote;
static VOID static void
donewrec(Void) donewrec(void)
{ {
if (f__recpos) if (f__recpos)
(*f__donewrec)(); (*f__donewrec)();
} }
static VOID static void
lwrt_I(longint n) lwrt_I(longint n)
{ {
char *p; char *p;
@ -28,14 +28,14 @@ lwrt_I(longint n)
while(*p) while(*p)
PUT(*p++); PUT(*p++);
} }
static VOID static void
lwrt_L(ftnint n, ftnlen len) lwrt_L(ftnint n, ftnlen len)
{ {
if(f__recpos+LLOGW>=L_len) if(f__recpos+LLOGW>=L_len)
donewrec(); donewrec();
wrt_L((Uint *)&n,LLOGW, len); wrt_L((Uint *)&n,LLOGW, len);
} }
static VOID static void
lwrt_A(char *p, ftnlen len) lwrt_A(char *p, ftnlen len)
{ {
int a; int a;
@ -150,7 +150,7 @@ l_g(char *buf, double n)
#endif #endif
} }
static VOID static void
l_put(register char *s) l_put(register char *s)
{ {
register void (*pn)(int) = f__putn; register void (*pn)(int) = f__putn;
@ -160,7 +160,7 @@ l_put(register char *s)
(*pn)(c); (*pn)(c);
} }
static VOID static void
lwrt_F(double n) lwrt_F(double n)
{ {
char buf[LEFBL]; char buf[LEFBL];
@ -169,7 +169,7 @@ lwrt_F(double n)
donewrec(); donewrec();
l_put(buf); l_put(buf);
} }
static VOID static void
lwrt_C(double a, double b) lwrt_C(double a, double b)
{ {
char *ba, *bb, bufa[LEFBL], bufb[LEFBL]; char *ba, *bb, bufa[LEFBL], bufb[LEFBL];

8
libf2c/libI77/rsfe.c
View File

@ -4,7 +4,7 @@
#include "fio.h" #include "fio.h"
#include "fmt.h" #include "fmt.h"
xrd_SL(Void) xrd_SL(void)
{ int ch; { int ch;
if(!f__curunit->uend) if(!f__curunit->uend)
while((ch=getc(f__cf))!='\n') while((ch=getc(f__cf))!='\n')
@ -15,7 +15,7 @@ xrd_SL(Void)
f__cursor=f__recpos=0; f__cursor=f__recpos=0;
return(1); return(1);
} }
x_getc(Void) x_getc(void)
{ int ch; { int ch;
if(f__curunit->uend) return(EOF); if(f__curunit->uend) return(EOF);
ch = getc(f__cf); ch = getc(f__cf);
@ -34,12 +34,12 @@ x_getc(Void)
} }
return(-1); return(-1);
} }
x_endp(Void) x_endp(void)
{ {
xrd_SL(); xrd_SL();
return f__curunit->uend == 1 ? EOF : 0; return f__curunit->uend == 1 ? EOF : 0;
} }
x_rev(Void) x_rev(void)
{ {
(void) xrd_SL(); (void) xrd_SL();
return(0); return(0);

4
libf2c/libI77/rsli.c
View File

@ -10,7 +10,7 @@ extern char *f__icend;
extern icilist *f__svic; extern icilist *f__svic;
extern int f__icnum, f__recpos; extern int f__icnum, f__recpos;
static int i_getc(Void) static int i_getc(void)
{ {
if(f__recpos >= f__svic->icirlen) { if(f__recpos >= f__svic->icirlen) {
if (f__recpos++ == f__svic->icirlen) if (f__recpos++ == f__svic->icirlen)
@ -69,7 +69,7 @@ integer s_rsli(icilist *a)
return(0); return(0);
} }
integer e_rsli(Void) integer e_rsli(void)
{ f__init = 1; return 0; } { f__init = 1; return 0; }
extern int x_rsne(cilist*); extern int x_rsne(cilist*);

8
libf2c/libI77/rsne.c
View File

@ -37,7 +37,7 @@
extern flag f__lquit; extern flag f__lquit;
extern int f__lcount, nml_read; extern int f__lcount, nml_read;
extern t_getc(Void); extern t_getc(void);
#undef abs #undef abs
#undef min #undef min
@ -123,8 +123,8 @@ mk_hashtab(Namelist *nl)
static char Alpha[256], Alphanum[256]; static char Alpha[256], Alphanum[256];
static VOID static void
nl_init(Void) { nl_init(void) {
register char *s; register char *s;
register int c; register int c;
@ -227,7 +227,7 @@ getdimen(int *chp, dimen *d, ftnlen delta, ftnlen extent, ftnlen *x1)
} }
#ifndef No_Namelist_Questions #ifndef No_Namelist_Questions
static Void static void
print_ne(cilist *a) print_ne(cilist *a)
{ {
flag intext = f__external; flag intext = f__external;

4
libf2c/libI77/sfe.c
View File

@ -5,7 +5,7 @@
extern char *f__fmtbuf; extern char *f__fmtbuf;
integer e_rsfe(Void) integer e_rsfe(void)
{ int n; { int n;
f__init = 1; f__init = 1;
n=en_fio(); n=en_fio();
@ -21,7 +21,7 @@ c_sfe(cilist *a) /* check */
if(!p->ufmt) err(a->cierr,102,"sfe"); if(!p->ufmt) err(a->cierr,102,"sfe");
return(0); return(0);
} }
integer e_wsfe(Void) integer e_wsfe(void)
{ {
int n; int n;
f__init = 1; f__init = 1;

4
libf2c/libI77/sue.c
View File

@ -54,7 +54,7 @@ integer s_wsue(cilist *a)
FSEEK(f__cf,(off_t)sizeof(uiolen),SEEK_CUR); FSEEK(f__cf,(off_t)sizeof(uiolen),SEEK_CUR);
return(0); return(0);
} }
integer e_wsue(Void) integer e_wsue(void)
{ off_t loc; { off_t loc;
f__init = 1; f__init = 1;
fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf); fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf);
@ -68,7 +68,7 @@ integer e_wsue(Void)
FSEEK(f__cf,loc,SEEK_SET); FSEEK(f__cf,loc,SEEK_SET);
return(0); return(0);
} }
integer e_rsue(Void) integer e_rsue(void)
{ {
f__init = 1; f__init = 1;
FSEEK(f__cf,(off_t)(f__reclen-f__recpos+sizeof(uiolen)),SEEK_CUR); FSEEK(f__cf,(off_t)(f__reclen-f__recpos+sizeof(uiolen)),SEEK_CUR);

4
libf2c/libI77/util.c
View File

@ -8,7 +8,7 @@
#include "f2c.h" #include "f2c.h"
#include "fio.h" #include "fio.h"
VOID void
g_char(char *a, ftnlen alen, char *b) g_char(char *a, ftnlen alen, char *b)
{ {
char *x = a + alen, *y = b + alen; char *x = a + alen, *y = b + alen;
@ -26,7 +26,7 @@ g_char(char *a, ftnlen alen, char *b)
while(x-- > a); while(x-- > a);
} }
VOID void
b_char(char *a, char *b, ftnlen blen) b_char(char *a, char *b, ftnlen blen)
{ int i; { int i;
for(i=0;i<blen && *a!=0;i++) *b++= *a++; for(i=0;i<blen && *a!=0;i++) *b++= *a++;

2
libf2c/libI77/wrtfmt.c
View File

@ -7,7 +7,7 @@ extern icilist *f__svic;
extern char *f__icptr; extern char *f__icptr;
static int static int
mv_cur(Void) /* shouldn't use fseek because it insists on calling fflush */ mv_cur(void) /* shouldn't use fseek because it insists on calling fflush */
/* instead we know too much about stdio */ /* instead we know too much about stdio */
{ {
int cursor = f__cursor; int cursor = f__cursor;

6
libf2c/libI77/wsfe.c
View File

@ -6,7 +6,7 @@
extern int f__hiwater; extern int f__hiwater;
int int
x_wSL(Void) x_wSL(void)
{ {
int n = f__putbuf('\n'); int n = f__putbuf('\n');
f__hiwater = f__recpos = f__cursor = 0; f__hiwater = f__recpos = f__cursor = 0;
@ -14,7 +14,7 @@ x_wSL(Void)
} }
static int static int
xw_end(Void) xw_end(void)
{ {
int n; int n;
@ -29,7 +29,7 @@ xw_end(Void)
} }
static int static int
xw_rev(Void) xw_rev(void)
{ {
int n = 0; int n = 0;
if(f__workdone) { if(f__workdone) {

2
libf2c/libI77/wsle.c
View File

@ -21,7 +21,7 @@ integer s_wsle(cilist *a)
return(0); return(0);
} }
integer e_wsle(Void) integer e_wsle(void)
{ {
int n; int n;
f__init = 1; f__init = 1;

6
libf2c/libI77/xwsne.c
View File

@ -6,8 +6,8 @@
extern int f__Aquote; extern int f__Aquote;
static VOID static void
nl_donewrec(Void) nl_donewrec(void)
{ {
(*f__donewrec)(); (*f__donewrec)();
PUT(' '); PUT(' ');
@ -15,7 +15,7 @@ nl_donewrec(Void)
#include <string.h> #include <string.h>
VOID void
x_wsne(cilist *a) x_wsne(cilist *a)
{ {
Namelist *nl; Namelist *nl;

2
libf2c/libU77/date_.c
View File

@ -23,7 +23,7 @@ static integer c__5 = 5;
/* Local variables */ /* Local variables */
static char cbuf[24]; static char cbuf[24];
extern longint G77_time_0 (); extern longint G77_time_0 ();
extern /* Character */ VOID G77_ctime_0 (); extern /* Character */ void G77_ctime_0 ();
i__1 = G77_time_0 (); i__1 = G77_time_0 ();
G77_ctime_0 (ch__1, 24L, &i__1); G77_ctime_0 (ch__1, 24L, &i__1);