Adding parenthesis to reduce warnings
This commit is contained in:
parent
a7fd7aa131
commit
5c644ca58f
4 changed files with 7 additions and 7 deletions
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue