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

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 8d148741bfe5ab1339b3d473fdb77cbbcbbb514b..c39943c71d0cba1939c2db522818cc22b8ede009 100644 (file)
--- 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 57b0e45f55f4b4f7832e47349503e7f6f22d1678..19cef8861e503ff13a86c2575582e725a147c0f8 100644 (file)
--- 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 fe5bc40c286ace9bb48768c59243ccc2a219075c..588d4ed64dc3b630b4ff98b743059bdd28c7d062 100644 (file)
--- 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 bae6787537d9970fb6d2bac453c9de5430ce823f..29f730d74582c1dfe8c1a9f9e13aeb79b8e5ea09 100644 (file)
--- 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))