diff options
| author | Zack Weinberg <zack@rabi.columbia.edu> | 1999-02-01 14:50:40 +0000 |
|---|---|---|
| committer | Zack Weinberg <zack@gcc.gnu.org> | 1999-02-01 14:50:40 +0000 |
| commit | 1328d92f8159120827a74b3488d845dc36de9d9b (patch) | |
| tree | 800714f8fb6a9386ed9f192e9da606f8930d9783 /gcc | |
| parent | c68da89c455fce41d03acecff5883099b1c97424 (diff) | |
| download | gcc-1328d92f8159120827a74b3488d845dc36de9d9b.zip gcc-1328d92f8159120827a74b3488d845dc36de9d9b.tar.gz gcc-1328d92f8159120827a74b3488d845dc36de9d9b.tar.bz2 | |
top.c: Don't define ffe_is_ident_.
1999-02-01 Zack Weinberg <zack@rabi.columbia.edu>
* top.c: Don't define ffe_is_ident_. Don't process
-f(no-)ident here.
* top.h: Remove declaration of ffe_is_ident_ and macros
ffe_is_ident() and ffe_set_is_ident().
* lex.c: Use flag_no_ident instead of ffe_is_ident().
From-SVN: r24957
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/f/lex.c | 2 | ||||
| -rw-r--r-- | gcc/f/top.c | 5 | ||||
| -rw-r--r-- | gcc/f/top.h | 3 |
4 files changed, 9 insertions, 9 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 8d14874..c39943c 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,11 @@ +1999-02-01 Zack Weinberg <zack@rabi.columbia.edu> + + * top.c: Don't define ffe_is_ident_. Don't process + -f(no-)ident here. + * top.h: Remove declaration of ffe_is_ident_ and macros + ffe_is_ident() and ffe_set_is_ident(). + * lex.c: Use flag_no_ident instead of ffe_is_ident(). + Sun Jan 31 20:34:29 1999 Zack Weinberg <zack@rabi.columbia.edu> * lang-specs.h: Map -Qn to -fno-ident. diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 57b0e45..19cef88 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -1243,7 +1243,7 @@ ffelex_hash_ (FILE *finput) goto skipline; } - if (ffe_is_ident ()) + if (! flag_no_ident) { #ifdef ASM_OUTPUT_IDENT ASM_OUTPUT_IDENT (asm_out_file, diff --git a/gcc/f/top.c b/gcc/f/top.c index fe5bc40..588d4ed 100644 --- a/gcc/f/top.c +++ b/gcc/f/top.c @@ -76,7 +76,6 @@ bool ffe_is_f2c_library_ = FFETARGET_defaultIS_F2C_LIBRARY; bool ffe_is_ffedebug_ = FALSE; bool ffe_is_free_form_ = FFETARGET_defaultIS_FREE_FORM; bool ffe_is_globals_ = TRUE; -bool ffe_is_ident_ = TRUE; bool ffe_is_init_local_zero_ = FFETARGET_defaultIS_INIT_LOCAL_ZERO; bool ffe_is_mainprog_; /* TRUE if current prog unit known to be main. */ @@ -177,10 +176,6 @@ ffe_decode_option (argc, argv) } else if (strcmp (&opt[2], "null-version") == 0) ffe_set_is_null_version (TRUE); - else if (strcmp (&opt[2], "ident") == 0) - ffe_set_is_ident (TRUE); - else if (strcmp (&opt[2], "no-ident") == 0) - ffe_set_is_ident (FALSE); else if (strcmp (&opt[2], "f66") == 0) { ffe_set_is_onetrip (TRUE); diff --git a/gcc/f/top.h b/gcc/f/top.h index bae6787..29f730d 100644 --- a/gcc/f/top.h +++ b/gcc/f/top.h @@ -92,7 +92,6 @@ extern bool ffe_is_f2c_library_; extern bool ffe_is_ffedebug_; extern bool ffe_is_free_form_; extern bool ffe_is_globals_; -extern bool ffe_is_ident_; extern bool ffe_is_init_local_zero_; extern bool ffe_is_mainprog_; extern bool ffe_is_null_version_; @@ -180,7 +179,6 @@ void ffe_terminate_4 (void); #define ffe_is_ffedebug() ffe_is_ffedebug_ #define ffe_is_free_form() ffe_is_free_form_ #define ffe_is_globals() ffe_is_globals_ -#define ffe_is_ident() ffe_is_ident_ #define ffe_is_init_local_zero() ffe_is_init_local_zero_ #define ffe_is_mainprog() ffe_is_mainprog_ #define ffe_is_null_version() ffe_is_null_version_ @@ -232,7 +230,6 @@ void ffe_terminate_4 (void); #define ffe_set_is_ffedebug(f) (ffe_is_ffedebug_ = (f)) #define ffe_set_is_free_form(f) (ffe_is_free_form_ = (f)) #define ffe_set_is_globals(f) (ffe_is_globals_ = (f)) -#define ffe_set_is_ident(f) (ffe_is_ident_ = (f)) #define ffe_set_is_init_local_zero(f) (ffe_is_init_local_zero_ = (f)) #define ffe_set_is_mainprog(f) (ffe_is_mainprog_ = (f)) #define ffe_set_is_null_version(f) (ffe_is_null_version_ = (f)) |