diff options
author | jkh <jkh@FreeBSD.org> | 1996-07-12 18:57:58 +0000 |
---|---|---|
committer | jkh <jkh@FreeBSD.org> | 1996-07-12 18:57:58 +0000 |
commit | c4d4a99d31762beef936f34571330923e9300da9 (patch) | |
tree | c116431af8e1f042b25e0f70c63c437cf7ff8d63 /lib/libF77 | |
parent | 6657f01bfd009bbf4ec0481a17712259abf8ea77 (diff) | |
download | FreeBSD-src-c4d4a99d31762beef936f34571330923e9300da9.zip FreeBSD-src-c4d4a99d31762beef936f34571330923e9300da9.tar.gz |
General -Wall warning cleanup, part I.
Submitted-By: Kent Vander Velden <graphix@iastate.edu>
Diffstat (limited to 'lib/libF77')
-rw-r--r-- | lib/libF77/abort_.c | 2 | ||||
-rw-r--r-- | lib/libF77/ef1asc_.c | 4 | ||||
-rw-r--r-- | lib/libF77/getenv_.c | 2 | ||||
-rw-r--r-- | lib/libF77/main.c | 1 | ||||
-rw-r--r-- | lib/libF77/s_rnge.c | 2 |
5 files changed, 3 insertions, 8 deletions
diff --git a/lib/libF77/abort_.c b/lib/libF77/abort_.c index 9d4a056..96b960d 100644 --- a/lib/libF77/abort_.c +++ b/lib/libF77/abort_.c @@ -12,7 +12,5 @@ int abort_(void) #endif { sig_die("Fortran abort routine called", 1); -#ifdef __cplusplus return 0; -#endif } diff --git a/lib/libF77/ef1asc_.c b/lib/libF77/ef1asc_.c index b2b8d72..78993b8 100644 --- a/lib/libF77/ef1asc_.c +++ b/lib/libF77/ef1asc_.c @@ -8,14 +8,12 @@ #ifdef KR_headers extern VOID s_copy(); -ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; +int ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; #else extern void s_copy(char*,char*,ftnlen,ftnlen); int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) #endif { s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); -#ifdef __cplusplus return 0; -#endif } diff --git a/lib/libF77/getenv_.c b/lib/libF77/getenv_.c index 2a035ea..7ba2de5 100644 --- a/lib/libF77/getenv_.c +++ b/lib/libF77/getenv_.c @@ -30,7 +30,7 @@ for(fp = fname ; fp < flast ; ++fp) break; } -while (ep = *env++) +while ( (ep = *env++) ) { for(fp = fname; fp<flast ; ) if(*fp++ != *ep++) diff --git a/lib/libF77/main.c b/lib/libF77/main.c index 79f1943..7c1127c 100644 --- a/lib/libF77/main.c +++ b/lib/libF77/main.c @@ -90,6 +90,7 @@ sig_die("Trace trap", 1); int xargc; char **xargv; +int #ifdef KR_headers main(argc, argv) int argc; char **argv; #else diff --git a/lib/libF77/s_rnge.c b/lib/libF77/s_rnge.c index b200fce..fc7f0b6 100644 --- a/lib/libF77/s_rnge.c +++ b/lib/libF77/s_rnge.c @@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1 while((i = *varn) && i != ' ') putc(*varn++, stderr); sig_die(".", 1); -#ifdef __cplusplus return 0; -#endif } |