This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[patch, fortran] Remove undocumented -fno-backend option.


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

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]