Commit 4887aa71 by Brooks Moses Committed by Brooks Moses

lang.opt: Remove -fno-backend option.

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

From-SVN: r118841
parent a48cfb7c
2006-11-14 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.
2006-11-14 Tobias Burnus <burnus@net-b.de> 2006-11-14 Tobias Burnus <burnus@net-b.de>
* match.c (gfc_match_namelist): Add missing space to * match.c (gfc_match_namelist): Add missing space to
......
...@@ -1640,7 +1640,6 @@ typedef struct ...@@ -1640,7 +1640,6 @@ typedef struct
int flag_second_underscore; int flag_second_underscore;
int flag_implicit_none; int flag_implicit_none;
int flag_max_stack_var_size; int flag_max_stack_var_size;
int flag_no_backend;
int flag_range_check; int flag_range_check;
int flag_pack_derived; int flag_pack_derived;
int flag_repack_arrays; int flag_repack_arrays;
......
...@@ -181,10 +181,6 @@ fmax-stack-var-size= ...@@ -181,10 +181,6 @@ fmax-stack-var-size=
Fortran RejectNegative Joined UInteger Fortran RejectNegative Joined UInteger
-fmax-stack-var-size=<n> Size in bytes of the largest array that will be put on the stack -fmax-stack-var-size=<n> Size in bytes of the largest array that will be put on the stack
fno-backend
Fortran RejectNegative
Don't generate code, just do syntax and semantics checking
frange-check frange-check
Fortran Fortran
Enable range checking during compilation Enable range checking during compilation
......
...@@ -73,7 +73,6 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, ...@@ -73,7 +73,6 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
gfc_option.flag_second_underscore = -1; gfc_option.flag_second_underscore = -1;
gfc_option.flag_implicit_none = 0; gfc_option.flag_implicit_none = 0;
gfc_option.flag_max_stack_var_size = 32768; gfc_option.flag_max_stack_var_size = 32768;
gfc_option.flag_no_backend = 0;
gfc_option.flag_range_check = 1; gfc_option.flag_range_check = 1;
gfc_option.flag_pack_derived = 0; gfc_option.flag_pack_derived = 0;
gfc_option.flag_repack_arrays = 0; gfc_option.flag_repack_arrays = 0;
...@@ -520,10 +519,6 @@ gfc_handle_option (size_t scode, const char *arg, int value) ...@@ -520,10 +519,6 @@ gfc_handle_option (size_t scode, const char *arg, int value)
gfc_option.flag_max_stack_var_size = value; gfc_option.flag_max_stack_var_size = value;
break; break;
case OPT_fno_backend:
gfc_option.flag_no_backend = value;
break;
case OPT_frange_check: case OPT_frange_check:
gfc_option.flag_range_check = value; gfc_option.flag_range_check = value;
break; break;
......
...@@ -3223,12 +3223,12 @@ loop: ...@@ -3223,12 +3223,12 @@ loop:
if (s.state == COMP_MODULE) if (s.state == COMP_MODULE)
{ {
gfc_dump_module (s.sym->name, errors_before == errors); 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); gfc_generate_module_code (gfc_current_ns);
} }
else else
{ {
if (errors == 0 && ! gfc_option.flag_no_backend) if (errors == 0)
gfc_generate_code (gfc_current_ns); gfc_generate_code (gfc_current_ns);
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment