mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 05:10:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

top.c: Don't define ffe_is_ident_.

Browse Source 
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
This commit is contained in:
Zack Weinberg 1999-02-01 14:50:40 +00:00 committed by Zack Weinberg
parent c68da89c45
commit 1328d92f81
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/f/ChangeLog
View File

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

2
gcc/f/lex.c
View File

@ -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,

5
gcc/f/top.c
View File

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

3
gcc/f/top.h
View File

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