From 1328d92f8159120827a74b3488d845dc36de9d9b Mon Sep 17 00:00:00 2001 From: Zack Weinberg Date: Mon, 1 Feb 1999 14:50:40 +0000 Subject: [PATCH] top.c: Don't define ffe_is_ident_. 1999-02-01 Zack Weinberg * 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 --- gcc/f/ChangeLog | 8 ++++++++ gcc/f/lex.c | 2 +- gcc/f/top.c | 5 ----- gcc/f/top.h | 3 --- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 8d148741bfe..c39943c71d0 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,11 @@ +1999-02-01 Zack Weinberg + + * 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 * lang-specs.h: Map -Qn to -fno-ident. diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 57b0e45f55f..19cef8861e5 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 fe5bc40c286..588d4ed64dc 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 bae6787537d..29f730d7458 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)) -- 2.30.2