diff options
Diffstat (limited to 'lib/libI77/lwrite.c')
| -rw-r--r-- | lib/libI77/lwrite.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/libI77/lwrite.c b/lib/libI77/lwrite.c index 5da7dfb..0d323ec 100644 --- a/lib/libI77/lwrite.c +++ b/lib/libI77/lwrite.c @@ -14,9 +14,9 @@ donewrec(Void) } #ifdef KR_headers -t_putc(c) +int t_putc(c) #else -t_putc(int c) +int t_putc(int c) #endif { f__recpos++; @@ -141,7 +141,7 @@ l_g(char *buf, double n) switch(*b) { #ifndef WANT_LEAD_0 case '0': - while(b[0] = b[1]) + while( (b[0] = b[1]) ) b++; break; #endif @@ -166,7 +166,7 @@ l_g(char *buf, double n) while(*++b); goto f__ret; case 'E': - for(c1 = '.', c = 'E'; *b = c1; + for(c1 = '.', c = 'E'; (*b = c1); c1 = c, c = *++b); goto f__ret; } @@ -188,7 +188,7 @@ l_put(register char *s) #else register int c, (*pn)(int) = f__putn; #endif - while(c = *s++) + while( (c = *s++) ) (*pn)(c); } @@ -240,9 +240,9 @@ lwrt_C(double a, double b) PUT(')'); } #ifdef KR_headers -l_write(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len; +int l_write(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len; #else -l_write(ftnint *number, char *ptr, ftnlen len, ftnint type) +int l_write(ftnint *number, char *ptr, ftnlen len, ftnint type) #endif { #define Ptr ((flex *)ptr) |
