diff options
Diffstat (limited to 'contrib/libf2c/libU77/perror_.c')
-rw-r--r-- | contrib/libf2c/libU77/perror_.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/contrib/libf2c/libU77/perror_.c b/contrib/libf2c/libU77/perror_.c index 26d8582..6fe96aa 100644 --- a/contrib/libf2c/libU77/perror_.c +++ b/contrib/libf2c/libU77/perror_.c @@ -28,19 +28,15 @@ Boston, MA 02111-1307, USA. */ #endif #include "f2c.h" -#ifdef KR_headers -/* Subroutine */ int G77_perror_0 (str, Lstr) - char *str; ftnlen Lstr; -#else -/* Subroutine */ int G77_perror_0 (const char *str, const ftnlen Lstr) -#endif +/* Subroutine */ int +G77_perror_0 (const char *str, const ftnlen Lstr) { char buff[1000]; char *bp, *blast; /* same technique as `system' -- what's wrong with malloc? */ blast = buff + (Lstr < 1000 ? Lstr : 1000); - for (bp = buff ; bp<blast && *str!='\0' ; ) + for (bp = buff; bp < blast && *str != '\0';) *bp++ = *str++; *bp = '\0'; perror (buff); |