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

gcc/f/ChangeLog

+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.

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,

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);

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))