This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, fortran] Remove undocumented -fno-backend option.
- From: Brooks Moses <brooks dot moses at codesourcery dot com>
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Thu, 09 Nov 2006 18:30:11 -0800
- Subject: [patch, fortran] Remove undocumented -fno-backend option.
- Organization: Stanford University
This is another "simplicity is better" patch. The -fno-backend option
appears to be essentially a duplicate of -fsyntax-only, except that it
still calls the linker, thereby producing an error about lack of a main
program. Also, it's undocumented; I'm guessing it's just a vestige of
debugging during early g95 development. The following patch removes it.
Regression-tested on i686-pc-linux-gnu. Ok for trunk?
--------------------------------------------------------------------
2006-10-09 Brooks Moses <brooks.moses@codesourcery.com>
* lang.opt: Remove -fno-backend option.
* gfortran.h (gfc_option_t): Remove flag_no_backend.
* options.c (gfc_init_options): Remove flag_no_backend.
(gfc_handle_option): Remove -fno-backend option handler.
* parse.c (gfc_parse_file): Remove references to
gfc_option.flag_no_backend.
--------------------------------------------------------------------
- Brooks
Index: lang.opt
===================================================================
--- lang.opt (revision 118614)
+++ lang.opt (working copy)
@@ -181,10 +181,6 @@
Fortran
Set default accessibility of module entities to PRIVATE
-fno-backend
-Fortran RejectNegative
-Don't generate code, just do syntax and semantics checking
-
frange-check
Fortran
Enable range checking during compilation
Index: gfortran.h
===================================================================
--- gfortran.h (revision 118614)
+++ gfortran.h (working copy)
@@ -1640,7 +1640,6 @@
int flag_implicit_none;
int flag_max_stack_var_size;
int flag_module_access_private;
- int flag_no_backend;
int flag_range_check;
int flag_pack_derived;
int flag_repack_arrays;
Index: options.c
===================================================================
--- options.c (revision 118614)
+++ options.c (working copy)
@@ -73,7 +73,6 @@
gfc_option.flag_implicit_none = 0;
gfc_option.flag_max_stack_var_size = 32768;
gfc_option.flag_module_access_private = 0;
- gfc_option.flag_no_backend = 0;
gfc_option.flag_range_check = 1;
gfc_option.flag_pack_derived = 0;
gfc_option.flag_repack_arrays = 0;
@@ -520,10 +519,6 @@
gfc_option.flag_module_access_private = value;
break;
- case OPT_fno_backend:
- gfc_option.flag_no_backend = value;
- break;
-
case OPT_frange_check:
gfc_option.flag_range_check = value;
break;
Index: parse.c
===================================================================
--- parse.c (revision 118541)
+++ parse.c (working copy)
@@ -3219,12 +3219,12 @@
if (s.state == COMP_MODULE)
{
gfc_dump_module (s.sym->name, errors_before == errors);
- if (errors == 0 && ! gfc_option.flag_no_backend)
+ if (errors == 0)
gfc_generate_module_code (gfc_current_ns);
}
else
{
- if (errors == 0 && ! gfc_option.flag_no_backend)
+ if (errors == 0)
gfc_generate_code (gfc_current_ns);
}