From 501cf7c407b38aead2aee20ec649626a8aa258d2 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Wed, 15 Jul 1998 09:54:11 +0000 Subject: [PATCH] Cleanups vis-a-vis g77-0.5.24: Mon Jul 13 18:02:29 1998 Craig Burley Cleanups vis-a-vis g77-0.5.24: * g77spec.c (lang_specific_driver): Tabify source. * top.c (ffe_decode_option): Use fixed macro to set internal-checking flag. * top.h (ffe_set_is_do_internal_checks): Fix macro. From-SVN: r21182 --- gcc/f/g77spec.c | 4 ++-- gcc/f/top.c | 2 +- gcc/f/top.h | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/f/g77spec.c b/gcc/f/g77spec.c index fa967d05560a..c3850e42e3dd 100644 --- a/gcc/f/g77spec.c +++ b/gcc/f/g77spec.c @@ -511,8 +511,8 @@ Report bugs to .\n"); { if (saw_library == 1) saw_library = 2; /* -l -lm. */ - else - append_arg (FORTRAN_LIBRARY); + else + append_arg (FORTRAN_LIBRARY); } else if (strcmp (argv[i], FORTRAN_LIBRARY) == 0) saw_library = 1; /* -l. */ diff --git a/gcc/f/top.c b/gcc/f/top.c index 0b23ab18fe53..17e4139bb7de 100644 --- a/gcc/f/top.c +++ b/gcc/f/top.c @@ -173,7 +173,7 @@ ffe_decode_option (argc, argv) if (strcmp (&opt[2], "version") == 0) { ffe_set_is_version (TRUE); - ffe_is_do_internal_checks_ = TRUE; + ffe_set_is_do_internal_checks (TRUE); } else if (strcmp (&opt[2], "null-version") == 0) ffe_set_is_null_version (TRUE); diff --git a/gcc/f/top.h b/gcc/f/top.h index 20994bd3392b..bae6787537d9 100644 --- a/gcc/f/top.h +++ b/gcc/f/top.h @@ -224,7 +224,7 @@ void ffe_terminate_4 (void); #define ffe_set_is_automatic(f) (ffe_is_automatic_ = (f)) #define ffe_set_is_backslash(f) (ffe_is_backslash_ = (f)) #define ffe_set_is_debug_kludge(f) (ffe_is_debug_kludge_ = (f)) -#define ffe_set_is_do_internal_checks(f) (ffe_set_is_do_internal_checks_ = (f)) +#define ffe_set_is_do_internal_checks(f) (ffe_is_do_internal_checks_ = (f)) #define ffe_set_is_dollar_ok(f) (ffe_is_dollar_ok_ = (f)) #define ffe_set_is_emulate_complex(f) (ffe_is_emulate_complex_ = (f)) #define ffe_set_is_f2c(f) (ffe_is_f2c_ = (f)) -- 2.47.2