Adding parenthesis to reduce warnings

This commit is contained in:
Harry Moffat 2009-12-21 17:45:29 +00:00
parent a7fd7aa131
commit 5c644ca58f
4 changed files with 7 additions and 7 deletions

View file

@ -101,7 +101,7 @@ integer s_rdfe(cilist *a)
int n;
if(!f__init) f_init();
f__reading=1;
if(n=c_dfe(a))return(n);
if((n=c_dfe(a))) return(n);
if(f__curunit->uwrt && f__nowreading(f__curunit))
err(a->cierr,errno,"read start");
f__getn = y_getc;
@ -123,7 +123,7 @@ integer s_wdfe(cilist *a)
int n;
if(!f__init) f_init();
f__reading=0;
if(n=c_dfe(a)) return(n);
if((n=c_dfe(a))) return(n);
if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
err(a->cierr,errno,"startwrt");
f__putn = x_putc;

View file

@ -37,7 +37,7 @@ integer s_rdue(cilist *a)
{
int n;
f__reading=1;
if(n=c_due(a)) return(n);
if((n=c_due(a))) return(n);
if(f__curunit->uwrt && f__nowreading(f__curunit))
err(a->cierr,errno,"read start");
return(0);
@ -50,7 +50,7 @@ integer s_wdue(cilist *a)
{
int n;
f__reading=0;
if(n=c_due(a)) return(n);
if((n=c_due(a))) return(n);
if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
err(a->cierr,errno,"write start");
return(0);

View file

@ -43,7 +43,7 @@ integer f_end(alist *a)
if(b->ufd==NULL) {
char nbuf[10];
sprintf(nbuf,"fort.%ld",(long)a->aunit);
if (tf = FOPEN(nbuf, f__w_mode[0]))
if ((tf = FOPEN(nbuf, f__w_mode[0])))
fclose(tf);
return(0);
}

View file

@ -88,7 +88,7 @@ integer s_rsfi(a) icilist *a;
integer s_rsfi(icilist *a)
#endif
{ int n;
if(n=c_si(a)) return(n);
if((n=c_si(a))) return(n);
f__reading=1;
f__doed=rd_ed;
f__doned=rd_ned;
@ -120,7 +120,7 @@ integer s_wsfi(a) icilist *a;
integer s_wsfi(icilist *a)
#endif
{ int n;
if(n=c_si(a)) return(n);
if((n=c_si(a))) return(n);
f__reading=0;
f__doed=w_ed;
f__doned=w_ned;