diff options
| author | Jim Wilson <wilson@cygnus.com> | 1998-04-18 15:30:09 +0000 |
|---|---|---|
| committer | Jim Wilson <wilson@gcc.gnu.org> | 1998-04-18 08:30:09 -0700 |
| commit | ea16ab474b93bcb7fb7cbc58accd8490ee9b3290 (patch) | |
| tree | 54dd8898d951ddce2e83ccddec031ca0636b33ee /gcc | |
| parent | 849146340007588577f530ff0c17f98335bdb052 (diff) | |
| download | gcc-ea16ab474b93bcb7fb7cbc58accd8490ee9b3290.zip gcc-ea16ab474b93bcb7fb7cbc58accd8490ee9b3290.tar.gz gcc-ea16ab474b93bcb7fb7cbc58accd8490ee9b3290.tar.bz2 | |
Patches to give useful error when no files given.
* g77spec.c (lang_specific_driver): New argument in_added_libraries.
New local added_libraries. Increment count when add library to
arglist.
From-SVN: r19280
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog.egcs | 6 | ||||
| -rw-r--r-- | gcc/f/g77spec.c | 18 |
2 files changed, 21 insertions, 3 deletions
diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs index 7caac66..15b490c 100644 --- a/gcc/f/ChangeLog.egcs +++ b/gcc/f/ChangeLog.egcs @@ -1,3 +1,9 @@ +Sat Apr 18 15:26:57 1998 Jim Wilson <wilson@cygnus.com> + + * g77spec.c (lang_specific_driver): New argument in_added_libraries. + New local added_libraries. Increment count when add library to + arglist. + Tue Apr 14 15:51:37 1998 Dave Brolley <brolley@cygnus.com> * com.c (init_parse): Now returns char* containing filename; diff --git a/gcc/f/g77spec.c b/gcc/f/g77spec.c index 051d5d4..c45b180 100644 --- a/gcc/f/g77spec.c +++ b/gcc/f/g77spec.c @@ -51,10 +51,11 @@ Boston, MA 02111-1307, USA. */ extern char *xmalloc PROTO((size_t)); void -lang_specific_driver (fn, in_argc, in_argv) +lang_specific_driver (fn, in_argc, in_argv, in_added_libraries) void (*fn)(); int *in_argc; char ***in_argv; + int *in_added_libraries; { int i, j; @@ -101,11 +102,15 @@ lang_specific_driver (fn, in_argc, in_argv) /* The argument list. */ char **argv; + /* The number of libraries added in. */ + int added_libraries; + /* The total number of arguments with the new stuff. */ int num_args = 1; argc = *in_argc; argv = *in_argv; + added_libraries = *in_added_libraries; args = (int *) xmalloc (argc * sizeof (int)); bzero ((char *) args, argc * sizeof (int)); @@ -254,11 +259,17 @@ lang_specific_driver (fn, in_argc, in_argv) /* Add `-lf2c' if we haven't already done so. */ if (library) - arglist[j++] = FORTRAN_LIBRARY; + { + arglist[j++] = FORTRAN_LIBRARY; + added_libraries++; + } if (saw_math) arglist[j++] = saw_math; else if (library) - arglist[j++] = MATH_LIBRARY; + { + arglist[j++] = MATH_LIBRARY; + added_libraries++; + } if (saw_libc) arglist[j++] = saw_libc; @@ -266,4 +277,5 @@ lang_specific_driver (fn, in_argc, in_argv) *in_argc = j; *in_argv = arglist; + *in_added_libraries = added_libraries; } |