diff options
Diffstat (limited to 'libf2c/libI77/lwrite.c')
| -rw-r--r-- | libf2c/libI77/lwrite.c | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/libf2c/libI77/lwrite.c b/libf2c/libI77/lwrite.c index 5da7dfbb972..bf209f47ed2 100644 --- a/libf2c/libI77/lwrite.c +++ b/libf2c/libI77/lwrite.c @@ -13,16 +13,6 @@ donewrec(Void) (*f__donewrec)(); } -#ifdef KR_headers -t_putc(c) -#else -t_putc(int c) -#endif -{ - f__recpos++; - putc(c,f__cf); - return(0); -} static VOID #ifdef KR_headers lwrt_I(n) longint n; @@ -184,10 +174,12 @@ l_put(register char *s) #endif { #ifdef KR_headers - register int c, (*pn)() = f__putn; + register void (*pn)() = f__putn; #else - register int c, (*pn)(int) = f__putn; + register void (*pn)(int) = f__putn; #endif + register int c; + while(c = *s++) (*pn)(c); } |