/* top.c -- Implementation File (module.c template V1.0)
- Copyright (C) 1995-1997 Free Software Foundation, Inc.
- Contributed by James Craig Burley (burley@gnu.org).
+ Copyright (C) 1995, 1996, 1997, 1999, 2001, 2003
+ Free Software Foundation, Inc.
+ Contributed by James Craig Burley.
This file is part of GNU Fortran.
#include "lex.h"
#include "malloc.h"
#include "name.h"
+#include "options.h"
+#include "opts.h"
#include "src.h"
#include "st.h"
#include "storag.h"
#include "symbol.h"
#include "target.h"
#include "where.h"
-#if FFECOM_targetCURRENT == FFECOM_targetGCC
-#include "flags.j"
-#include "toplev.j"
-#endif
+#include "flags.h"
+#include "toplev.h"
/* Externals defined here. */
-int flag_traditional; /* Shouldn't need this (C front end only)! */
bool ffe_is_do_internal_checks_ = FALSE;
bool ffe_is_90_ = FFETARGET_defaultIS_90;
bool ffe_is_automatic_ = FFETARGET_defaultIS_AUTOMATIC;
bool ffe_is_backslash_ = FFETARGET_defaultIS_BACKSLASH;
-bool ffe_is_emulate_complex_ = TRUE;
+bool ffe_is_emulate_complex_ = FALSE;
bool ffe_is_underscoring_ = FFETARGET_defaultEXTERNAL_UNDERSCORED
|| FFETARGET_defaultUNDERSCORED_EXTERNAL_UNDERSCORED;
bool ffe_is_second_underscore_ = FFETARGET_defaultUNDERSCORED_EXTERNAL_UNDERSCORED;
bool ffe_is_f2c_ = FFETARGET_defaultIS_F2C;
bool ffe_is_f2c_library_ = FFETARGET_defaultIS_F2C_LIBRARY;
bool ffe_is_ffedebug_ = FALSE;
+bool ffe_is_flatten_arrays_ = FALSE;
bool ffe_is_free_form_ = FFETARGET_defaultIS_FREE_FORM;
bool ffe_is_globals_ = 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. */
-bool ffe_is_null_version_ = FALSE;
bool ffe_is_onetrip_ = FALSE;
bool ffe_is_silent_ = TRUE;
bool ffe_is_typeless_boz_ = FALSE;
/* Static functions (internal). */
-static bool ffe_is_digit_string_ (char *s);
+static bool ffe_is_digit_string_ (const char *s);
/* Internal macros. */
\f
static bool
-ffe_is_digit_string_ (char *s)
+ffe_is_digit_string_ (const char *s)
{
- char *p;
+ const char *p;
for (p = s; ISDIGIT (*p); ++p)
;
return (p != s) && (*p == '\0');
}
+/* Get ready for options handling. */
+unsigned int
+ffe_init_options (unsigned int argc ATTRIBUTE_UNUSED,
+ const char **argv ATTRIBUTE_UNUSED)
+{
+ /* Set default options for Fortran. */
+ flag_move_all_movables = 1;
+ flag_reduce_all_givs = 1;
+ flag_argument_noalias = 2;
+ flag_merge_constants = 2;
+ flag_errno_math = 0;
+ flag_complex_divide_method = 1;
+
+ return CL_F77;
+}
+
/* Handle command-line options. Returns 0 if unrecognized, 1 if
recognized and handled. */
-
int
-ffe_decode_option (argc, argv)
- int argc ATTRIBUTE_UNUSED;
- char **argv;
+ffe_handle_option (size_t scode, const char *arg, int value)
{
- char *opt = argv[0];
- if (opt[0] != '-')
- return 0;
- if (opt[1] == 'f')
+ enum opt_code code = (enum opt_code) scode;
+
+ switch (code)
{
- if (strcmp (&opt[2], "version") == 0)
- {
- ffe_set_is_version (TRUE);
- ffe_set_is_do_internal_checks (TRUE);
- }
- else if (strcmp (&opt[2], "null-version") == 0)
- ffe_set_is_null_version (TRUE);
- else if (strcmp (&opt[2], "f66") == 0)
- {
- ffe_set_is_onetrip (TRUE);
- ffe_set_is_ugly_assumed (TRUE);
- }
- else if (strcmp (&opt[2], "no-f66") == 0)
- {
- ffe_set_is_onetrip (FALSE);
- ffe_set_is_ugly_assumed (FALSE);
- }
- else if (strcmp (&opt[2], "f77") == 0)
- {
- ffe_set_is_backslash (TRUE);
- ffe_set_is_typeless_boz (FALSE);
- }
- else if (strcmp (&opt[2], "no-f77") == 0)
- {
- ffe_set_is_backslash (FALSE);
- }
- else if (strcmp (&opt[2], "f90") == 0)
- ffe_set_is_90 (TRUE);
- else if (strcmp (&opt[2], "no-f90") == 0)
- ffe_set_is_90 (FALSE);
- else if (strcmp (&opt[2], "automatic") == 0)
- ffe_set_is_automatic (TRUE);
- else if (strcmp (&opt[2], "no-automatic") == 0)
- ffe_set_is_automatic (FALSE);
- else if (strcmp (&opt[2], "dollar-ok") == 0)
- ffe_set_is_dollar_ok (TRUE);
- else if (strcmp (&opt[2], "no-dollar-ok") == 0)
- ffe_set_is_dollar_ok (FALSE);
- else if (strcmp (&opt[2], "f2c") == 0)
- ffe_set_is_f2c (TRUE);
- else if (strcmp (&opt[2], "no-f2c") == 0)
- ffe_set_is_f2c (FALSE);
- else if (strcmp (&opt[2], "f2c-library") == 0)
- ffe_set_is_f2c_library (TRUE);
- else if (strcmp (&opt[2], "no-f2c-library") == 0)
- ffe_set_is_f2c_library (FALSE);
- else if (strcmp (&opt[2], "free-form") == 0)
- ffe_set_is_free_form (TRUE);
- else if (strcmp (&opt[2], "no-free-form") == 0)
- ffe_set_is_free_form (FALSE);
- else if (strcmp (&opt[2], "fixed-form") == 0)
- ffe_set_is_free_form (FALSE);
- else if (strcmp (&opt[2], "no-fixed-form") == 0)
- ffe_set_is_free_form (TRUE);
- else if (strcmp (&opt[2], "pedantic") == 0)
- ffe_set_is_pedantic (TRUE);
- else if (strcmp (&opt[2], "no-pedantic") == 0)
- ffe_set_is_pedantic (FALSE);
- else if (strcmp (&opt[2], "vxt") == 0)
- ffe_set_is_vxt (TRUE);
- else if (strcmp (&opt[2], "not-vxt") == 0)
- ffe_set_is_vxt (FALSE);
- else if (strcmp (&opt[2], "vxt-not-f90") == 0)
- warning ("%s no longer supported -- try -fvxt", opt);
- else if (strcmp (&opt[2], "f90-not-vxt") == 0)
- warning ("%s no longer supported -- try -fno-vxt -ff90", opt);
- else if (strcmp (&opt[2], "ugly") == 0)
- {
- warning ("%s is overloaded with meanings and likely to be removed;", opt);
- warning ("use only the specific -fugly-* options you need");
- ffe_set_is_ugly_args (TRUE);
- ffe_set_is_ugly_assign (TRUE);
- ffe_set_is_ugly_assumed (TRUE);
- ffe_set_is_ugly_comma (TRUE);
- ffe_set_is_ugly_complex (TRUE);
- ffe_set_is_ugly_init (TRUE);
- ffe_set_is_ugly_logint (TRUE);
- }
- else if (strcmp (&opt[2], "no-ugly") == 0)
- {
- ffe_set_is_ugly_args (FALSE);
- ffe_set_is_ugly_assign (FALSE);
- ffe_set_is_ugly_assumed (FALSE);
- ffe_set_is_ugly_comma (FALSE);
- ffe_set_is_ugly_complex (FALSE);
- ffe_set_is_ugly_init (FALSE);
- ffe_set_is_ugly_logint (FALSE);
- }
- else if (strcmp (&opt[2], "ugly-args") == 0)
- ffe_set_is_ugly_args (TRUE);
- else if (strcmp (&opt[2], "no-ugly-args") == 0)
- ffe_set_is_ugly_args (FALSE);
- else if (strcmp (&opt[2], "ugly-assign") == 0)
- ffe_set_is_ugly_assign (TRUE);
- else if (strcmp (&opt[2], "no-ugly-assign") == 0)
- ffe_set_is_ugly_assign (FALSE);
- else if (strcmp (&opt[2], "ugly-assumed") == 0)
- ffe_set_is_ugly_assumed (TRUE);
- else if (strcmp (&opt[2], "no-ugly-assumed") == 0)
- ffe_set_is_ugly_assumed (FALSE);
- else if (strcmp (&opt[2], "ugly-comma") == 0)
- ffe_set_is_ugly_comma (TRUE);
- else if (strcmp (&opt[2], "no-ugly-comma") == 0)
- ffe_set_is_ugly_comma (FALSE);
- else if (strcmp (&opt[2], "ugly-complex") == 0)
- ffe_set_is_ugly_complex (TRUE);
- else if (strcmp (&opt[2], "no-ugly-complex") == 0)
- ffe_set_is_ugly_complex (FALSE);
- else if (strcmp (&opt[2], "ugly-init") == 0)
- ffe_set_is_ugly_init (TRUE);
- else if (strcmp (&opt[2], "no-ugly-init") == 0)
- ffe_set_is_ugly_init (FALSE);
- else if (strcmp (&opt[2], "ugly-logint") == 0)
- ffe_set_is_ugly_logint (TRUE);
- else if (strcmp (&opt[2], "no-ugly-logint") == 0)
- ffe_set_is_ugly_logint (FALSE);
- else if (strcmp (&opt[2], "xyzzy") == 0)
- ffe_set_is_ffedebug (TRUE);
- else if (strcmp (&opt[2], "no-xyzzy") == 0)
- ffe_set_is_ffedebug (FALSE);
- else if (strcmp (&opt[2], "init-local-zero") == 0)
- ffe_set_is_init_local_zero (TRUE);
- else if (strcmp (&opt[2], "no-init-local-zero") == 0)
- ffe_set_is_init_local_zero (FALSE);
- else if (strcmp (&opt[2], "emulate-complex") == 0)
- ffe_set_is_emulate_complex (TRUE);
- else if (strcmp (&opt[2], "no-emulate-complex") == 0)
- ffe_set_is_emulate_complex (FALSE);
- else if (strcmp (&opt[2], "backslash") == 0)
- ffe_set_is_backslash (TRUE);
- else if (strcmp (&opt[2], "no-backslash") == 0)
- ffe_set_is_backslash (FALSE);
- else if (strcmp (&opt[2], "underscoring") == 0)
- ffe_set_is_underscoring (TRUE);
- else if (strcmp (&opt[2], "no-underscoring") == 0)
- ffe_set_is_underscoring (FALSE);
- else if (strcmp (&opt[2], "second-underscore") == 0)
- ffe_set_is_second_underscore (TRUE);
- else if (strcmp (&opt[2], "no-second-underscore") == 0)
- ffe_set_is_second_underscore (FALSE);
- else if (strcmp (&opt[2], "zeros") == 0)
- ffe_set_is_zeros (TRUE);
- else if (strcmp (&opt[2], "no-zeros") == 0)
- ffe_set_is_zeros (FALSE);
- else if (strcmp (&opt[2], "debug-kludge") == 0)
- ffe_set_is_debug_kludge (TRUE);
- else if (strcmp (&opt[2], "no-debug-kludge") == 0)
- ffe_set_is_debug_kludge (FALSE);
- else if (strcmp (&opt[2], "onetrip") == 0)
- ffe_set_is_onetrip (TRUE);
- else if (strcmp (&opt[2], "no-onetrip") == 0)
- ffe_set_is_onetrip (FALSE);
- else if (strcmp (&opt[2], "silent") == 0)
- ffe_set_is_silent (TRUE);
- else if (strcmp (&opt[2], "no-silent") == 0)
- ffe_set_is_silent (FALSE);
- else if (strcmp (&opt[2], "globals") == 0)
- ffe_set_is_globals (TRUE);
- else if (strcmp (&opt[2], "no-globals") == 0)
- ffe_set_is_globals (FALSE);
- else if (strcmp (&opt[2], "typeless-boz") == 0)
- ffe_set_is_typeless_boz (TRUE);
- else if (strcmp (&opt[2], "no-typeless-boz") == 0)
+ default:
+ abort();
+
+ case OPT_fversion:
+ ffe_set_is_version (TRUE);
+ ffe_set_is_do_internal_checks (TRUE);
+ break;
+
+ case OPT_ff66:
+ ffe_set_is_onetrip (value);
+ ffe_set_is_ugly_assumed (value);
+ break;
+
+ case OPT_ff77:
+ ffe_set_is_backslash (value);
+ if (value)
ffe_set_is_typeless_boz (FALSE);
- else if (strcmp (&opt[2], "intrin-case-initcap") == 0)
- ffe_set_case_intrin (FFE_caseINITCAP);
- else if (strcmp (&opt[2], "intrin-case-upper") == 0)
- ffe_set_case_intrin (FFE_caseUPPER);
- else if (strcmp (&opt[2], "intrin-case-lower") == 0)
- ffe_set_case_intrin (FFE_caseLOWER);
- else if (strcmp (&opt[2], "intrin-case-any") == 0)
- ffe_set_case_intrin (FFE_caseNONE);
- else if (strcmp (&opt[2], "match-case-initcap") == 0)
- ffe_set_case_match (FFE_caseINITCAP);
- else if (strcmp (&opt[2], "match-case-upper") == 0)
- ffe_set_case_match (FFE_caseUPPER);
- else if (strcmp (&opt[2], "match-case-lower") == 0)
- ffe_set_case_match (FFE_caseLOWER);
- else if (strcmp (&opt[2], "match-case-any") == 0)
- ffe_set_case_match (FFE_caseNONE);
- else if (strcmp (&opt[2], "source-case-upper") == 0)
- ffe_set_case_source (FFE_caseUPPER);
- else if (strcmp (&opt[2], "source-case-lower") == 0)
- ffe_set_case_source (FFE_caseLOWER);
- else if (strcmp (&opt[2], "source-case-preserve") == 0)
- ffe_set_case_source (FFE_caseNONE);
- else if (strcmp (&opt[2], "symbol-case-initcap") == 0)
- ffe_set_case_symbol (FFE_caseINITCAP);
- else if (strcmp (&opt[2], "symbol-case-upper") == 0)
- ffe_set_case_symbol (FFE_caseUPPER);
- else if (strcmp (&opt[2], "symbol-case-lower") == 0)
- ffe_set_case_symbol (FFE_caseLOWER);
- else if (strcmp (&opt[2], "symbol-case-any") == 0)
- ffe_set_case_symbol (FFE_caseNONE);
- else if (strcmp (&opt[2], "case-strict-upper") == 0)
- {
- ffe_set_case_intrin (FFE_caseUPPER);
- ffe_set_case_match (FFE_caseUPPER);
- ffe_set_case_source (FFE_caseNONE);
- ffe_set_case_symbol (FFE_caseUPPER);
- }
- else if (strcmp (&opt[2], "case-strict-lower") == 0)
- {
- ffe_set_case_intrin (FFE_caseLOWER);
- ffe_set_case_match (FFE_caseLOWER);
- ffe_set_case_source (FFE_caseNONE);
- ffe_set_case_symbol (FFE_caseLOWER);
- }
- else if (strcmp (&opt[2], "case-initcap") == 0)
- {
- ffe_set_case_intrin (FFE_caseINITCAP);
- ffe_set_case_match (FFE_caseINITCAP);
- ffe_set_case_source (FFE_caseNONE);
- ffe_set_case_symbol (FFE_caseINITCAP);
- }
- else if (strcmp (&opt[2], "case-upper") == 0)
- {
- ffe_set_case_intrin (FFE_caseNONE);
- ffe_set_case_match (FFE_caseNONE);
- ffe_set_case_source (FFE_caseUPPER);
- ffe_set_case_symbol (FFE_caseNONE);
- }
- else if (strcmp (&opt[2], "case-lower") == 0)
- {
- ffe_set_case_intrin (FFE_caseNONE);
- ffe_set_case_match (FFE_caseNONE);
- ffe_set_case_source (FFE_caseLOWER);
- ffe_set_case_symbol (FFE_caseNONE);
- }
- else if (strcmp (&opt[2], "case-preserve") == 0)
- {
- ffe_set_case_intrin (FFE_caseNONE);
- ffe_set_case_match (FFE_caseNONE);
- ffe_set_case_source (FFE_caseNONE);
- ffe_set_case_symbol (FFE_caseNONE);
- }
- else if (strcmp (&opt[2], "badu77-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "badu77-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "badu77-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "badu77-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateENABLED);
- else if (strcmp (&opt[2], "gnu-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_gnu (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "gnu-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_gnu (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "gnu-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_gnu (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "gnu-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_gnu (FFE_intrinsicstateENABLED);
- else if (strcmp (&opt[2], "f2c-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_f2c (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "f2c-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_f2c (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "f2c-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_f2c (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "f2c-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_f2c (FFE_intrinsicstateENABLED);
- else if (strcmp (&opt[2], "f90-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_f90 (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "f90-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_f90 (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "f90-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_f90 (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "f90-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_f90 (FFE_intrinsicstateENABLED);
- else if (strcmp (&opt[2], "mil-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_mil (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "mil-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_mil (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "mil-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_mil (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "mil-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_mil (FFE_intrinsicstateENABLED);
- else if (strcmp (&opt[2], "unix-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_unix (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "unix-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_unix (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "unix-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_unix (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "unix-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_unix (FFE_intrinsicstateENABLED);
- else if (strcmp (&opt[2], "vxt-intrinsics-delete") == 0)
- ffe_set_intrinsic_state_vxt (FFE_intrinsicstateDELETED);
- else if (strcmp (&opt[2], "vxt-intrinsics-hide") == 0)
- ffe_set_intrinsic_state_vxt (FFE_intrinsicstateHIDDEN);
- else if (strcmp (&opt[2], "vxt-intrinsics-disable") == 0)
- ffe_set_intrinsic_state_vxt (FFE_intrinsicstateDISABLED);
- else if (strcmp (&opt[2], "vxt-intrinsics-enable") == 0)
- ffe_set_intrinsic_state_vxt (FFE_intrinsicstateENABLED);
- else if (strncmp (&opt[2], "fixed-line-length-",
- strlen ("fixed-line-length-")) == 0)
- {
- char *len = &opt[2] + strlen ("fixed-line-length-");
-
- if (strcmp (len, "none") == 0)
- ffe_set_fixed_line_length (0);
- else if (ffe_is_digit_string_ (len))
- ffe_set_fixed_line_length (atol (len));
- else
- return 0;
- }
+ break;
+
+ case OPT_ff90:
+ ffe_set_is_90 (value);
+ break;
+
+ case OPT_fautomatic:
+ ffe_set_is_automatic (value);
+ break;
+
+ case OPT_fdollar_ok:
+ ffe_set_is_dollar_ok (value);
+ break;
+
+ case OPT_ff2c:
+ ffe_set_is_f2c (value);
+ break;
+
+ case OPT_ff2c_library:
+ ffe_set_is_f2c_library (value);
+ break;
+
+ case OPT_fflatten_arrays:
+ ffe_set_is_f2c_library (value);
+ break;
+
+ case OPT_ffree_form:
+ ffe_set_is_free_form (value);
+ break;
+
+ case OPT_ffixed_form:
+ ffe_set_is_free_form (!value);
+ break;
+
+ case OPT_fpedantic:
+ ffe_set_is_pedantic (value);
+ break;
+
+ case OPT_fvxt:
+ ffe_set_is_vxt (value);
+ break;
+
+ case OPT_fvxt_not_f90:
+ warning ("-fvxt-not-f90 no longer supported -- try -fvxt");
+ break;
+
+ case OPT_ff90_not_vxt:
+ warning ("-ff90-not-vxt no longer supported -- try -fno-vxt -ff90");
+ break;
+
+ case OPT_fugly:
+ ffe_set_is_ugly_args (value);
+ ffe_set_is_ugly_assign (value);
+ ffe_set_is_ugly_assumed (value);
+ ffe_set_is_ugly_comma (value);
+ ffe_set_is_ugly_complex (value);
+ ffe_set_is_ugly_init (value);
+ ffe_set_is_ugly_logint (value);
+ break;
+
+ case OPT_fugly_args:
+ ffe_set_is_ugly_args (value);
+ break;
+
+ case OPT_fugly_assign:
+ ffe_set_is_ugly_assign (value);
+ break;
+
+ case OPT_fugly_assumed:
+ ffe_set_is_ugly_assumed (value);
+ break;
+
+ case OPT_fugly_comma:
+ ffe_set_is_ugly_comma (value);
+ break;
+
+ case OPT_fugly_complex:
+ ffe_set_is_ugly_complex (value);
+ break;
+
+ case OPT_fugly_init:
+ ffe_set_is_ugly_init (value);
+ break;
+
+ case OPT_fugly_logint:
+ ffe_set_is_ugly_logint (value);
+ break;
+
+ case OPT_fxyzzy:
+ ffe_set_is_ffedebug (value);
+ break;
+
+ case OPT_finit_local_zero:
+ ffe_set_is_init_local_zero (value);
+ break;
+
+ case OPT_femulate_complex:
+ ffe_set_is_emulate_complex (value);
+ break;
+
+ case OPT_fbackslash:
+ ffe_set_is_backslash (value);
+ break;
+
+ case OPT_funderscoring:
+ ffe_set_is_underscoring (value);
+ break;
+
+ case OPT_fsecond_underscore:
+ ffe_set_is_second_underscore (value);
+ break;
+
+ case OPT_fzeros:
+ ffe_set_is_zeros (value);
+ break;
+
+ case OPT_fdebug_kludge:
+ warning ("-fdebug-kludge is disabled, use normal debugging flags");
+ break;
+
+ case OPT_fonetrip:
+ ffe_set_is_onetrip (value);
+ break;
+
+ case OPT_fsilent:
+ ffe_set_is_silent (value);
+ break;
+
+ case OPT_fglobals:
+ ffe_set_is_globals (value);
+ break;
+
+ case OPT_ffortran_bounds_check:
+ flag_bounds_check = value;
+ break;
+
+ case OPT_ftypeless_boz:
+ ffe_set_is_typeless_boz (value);
+ break;
+
+ case OPT_fintrin_case_initcap:
+ ffe_set_case_intrin (FFE_caseINITCAP);
+ break;
+
+ case OPT_fintrin_case_lower:
+ ffe_set_case_intrin (FFE_caseLOWER);
+ break;
+
+ case OPT_fintrin_case_upper:
+ ffe_set_case_intrin (FFE_caseUPPER);
+ break;
+
+ case OPT_fintrin_case_any:
+ ffe_set_case_intrin (FFE_caseNONE);
+ break;
+
+ case OPT_fmatch_case_initcap:
+ ffe_set_case_match (FFE_caseINITCAP);
+ break;
+
+ case OPT_fmatch_case_lower:
+ ffe_set_case_match (FFE_caseLOWER);
+ break;
+
+ case OPT_fmatch_case_upper:
+ ffe_set_case_match (FFE_caseUPPER);
+ break;
+
+ case OPT_fmatch_case_any:
+ ffe_set_case_match (FFE_caseNONE);
+ break;
+
+ case OPT_fsource_case_lower:
+ ffe_set_case_source (FFE_caseLOWER);
+ break;
+
+ case OPT_fsource_case_preserve:
+ ffe_set_case_match (FFE_caseNONE);
+ break;
+
+ case OPT_fsource_case_upper:
+ ffe_set_case_source (FFE_caseUPPER);
+ break;
+
+ case OPT_fsymbol_case_initcap:
+ ffe_set_case_symbol (FFE_caseINITCAP);
+ break;
+
+ case OPT_fsymbol_case_lower:
+ ffe_set_case_symbol (FFE_caseLOWER);
+ break;
+
+ case OPT_fsymbol_case_upper:
+ ffe_set_case_symbol (FFE_caseUPPER);
+ break;
+
+ case OPT_fsymbol_case_any:
+ ffe_set_case_symbol (FFE_caseNONE);
+ break;
+
+ case OPT_fcase_strict_upper:
+ ffe_set_case_intrin (FFE_caseUPPER);
+ ffe_set_case_match (FFE_caseUPPER);
+ ffe_set_case_source (FFE_caseNONE);
+ ffe_set_case_symbol (FFE_caseUPPER);
+ break;
+
+ case OPT_fcase_strict_lower:
+ ffe_set_case_intrin (FFE_caseLOWER);
+ ffe_set_case_match (FFE_caseLOWER);
+ ffe_set_case_source (FFE_caseNONE);
+ ffe_set_case_symbol (FFE_caseLOWER);
+ break;
+
+ case OPT_fcase_initcap:
+ ffe_set_case_intrin (FFE_caseINITCAP);
+ ffe_set_case_match (FFE_caseINITCAP);
+ ffe_set_case_source (FFE_caseNONE);
+ ffe_set_case_symbol (FFE_caseINITCAP);
+ break;
+
+ case OPT_fcase_upper:
+ ffe_set_case_intrin (FFE_caseNONE);
+ ffe_set_case_match (FFE_caseNONE);
+ ffe_set_case_source (FFE_caseUPPER);
+ ffe_set_case_symbol (FFE_caseNONE);
+ break;
+
+ case OPT_fcase_lower:
+ ffe_set_case_intrin (FFE_caseNONE);
+ ffe_set_case_match (FFE_caseNONE);
+ ffe_set_case_source (FFE_caseLOWER);
+ ffe_set_case_symbol (FFE_caseNONE);
+ break;
+
+ case OPT_fcase_preserve:
+ ffe_set_case_intrin (FFE_caseNONE);
+ ffe_set_case_match (FFE_caseNONE);
+ ffe_set_case_source (FFE_caseNONE);
+ ffe_set_case_symbol (FFE_caseNONE);
+ break;
+
+ case OPT_fbadu77_intrinsics_delete:
+ ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_fbadu77_intrinsics_hide:
+ ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_fbadu77_intrinsics_disable:
+ ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_fbadu77_intrinsics_enable:
+ ffe_set_intrinsic_state_badu77 (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_fgnu_intrinsics_delete:
+ ffe_set_intrinsic_state_gnu (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_fgnu_intrinsics_hide:
+ ffe_set_intrinsic_state_gnu (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_fgnu_intrinsics_disable:
+ ffe_set_intrinsic_state_gnu (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_fgnu_intrinsics_enable:
+ ffe_set_intrinsic_state_gnu (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_ff2c_intrinsics_delete:
+ ffe_set_intrinsic_state_f2c (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_ff2c_intrinsics_hide:
+ ffe_set_intrinsic_state_f2c (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_ff2c_intrinsics_disable:
+ ffe_set_intrinsic_state_f2c (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_ff2c_intrinsics_enable:
+ ffe_set_intrinsic_state_f2c (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_ff90_intrinsics_delete:
+ ffe_set_intrinsic_state_f90 (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_ff90_intrinsics_hide:
+ ffe_set_intrinsic_state_f90 (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_ff90_intrinsics_disable:
+ ffe_set_intrinsic_state_f90 (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_ff90_intrinsics_enable:
+ ffe_set_intrinsic_state_f90 (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_fmil_intrinsics_delete:
+ ffe_set_intrinsic_state_mil (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_fmil_intrinsics_hide:
+ ffe_set_intrinsic_state_mil (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_fmil_intrinsics_disable:
+ ffe_set_intrinsic_state_mil (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_fmil_intrinsics_enable:
+ ffe_set_intrinsic_state_mil (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_funix_intrinsics_delete:
+ ffe_set_intrinsic_state_unix (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_funix_intrinsics_hide:
+ ffe_set_intrinsic_state_unix (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_funix_intrinsics_disable:
+ ffe_set_intrinsic_state_unix (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_funix_intrinsics_enable:
+ ffe_set_intrinsic_state_unix (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_fvxt_intrinsics_delete:
+ ffe_set_intrinsic_state_vxt (FFE_intrinsicstateDELETED);
+ break;
+
+ case OPT_fvxt_intrinsics_hide:
+ ffe_set_intrinsic_state_vxt (FFE_intrinsicstateHIDDEN);
+ break;
+
+ case OPT_fvxt_intrinsics_disable:
+ ffe_set_intrinsic_state_vxt (FFE_intrinsicstateDISABLED);
+ break;
+
+ case OPT_fvxt_intrinsics_enable:
+ ffe_set_intrinsic_state_vxt (FFE_intrinsicstateENABLED);
+ break;
+
+ case OPT_ffixed_line_length_:
+ if (strcmp (arg, "none") == 0)
+ ffe_set_fixed_line_length (0);
+ else if (ffe_is_digit_string_ (arg))
+ ffe_set_fixed_line_length (atol (arg));
else
return 0;
- }
- else if (opt[1] == 'W')
- {
- if (!strcmp (&opt[2], "comment"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "no-comment"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "comments"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "no-comments"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "trigraphs"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "no-trigraphs"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "import"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "no-import"))
- ; /* cpp handles this one. */
- else if (!strcmp (&opt[2], "globals"))
- ffe_set_is_warn_globals (TRUE);
- else if (!strcmp (&opt[2], "no-globals"))
- ffe_set_is_warn_globals (FALSE);
- else if (!strcmp (&opt[2], "implicit"))
- ffe_set_is_warn_implicit (TRUE);
- else if (!strcmp (&opt[2], "no-implicit"))
- ffe_set_is_warn_implicit (FALSE);
- else if (!strcmp (&opt[2], "surprising"))
- ffe_set_is_warn_surprising (TRUE);
- else if (!strcmp (&opt[2], "no-surprising"))
- ffe_set_is_warn_surprising (FALSE);
- else if (!strcmp (&opt[2], "all"))
+ break;
+
+ case OPT_Wcomment:
+ case OPT_Wcomments:
+ case OPT_Wimport:
+ case OPT_Wtrigraphs:
+ case OPT_fpreprocessed:
+ /* These are for cpp. */
+ break;
+
+ case OPT_Wglobals:
+ ffe_set_is_warn_globals (value);
+ break;
+
+ case OPT_Wimplicit:
+ ffe_set_is_warn_implicit (value);
+ break;
+
+ case OPT_Wsurprising:
+ ffe_set_is_warn_surprising (value);
+ break;
+
+ case OPT_Wall:
+ set_Wunused (value);
+ /* We save the value of warn_uninitialized, since if they put
+ -Wuninitialized on the command line, we need to generate a
+ warning about not using it without also specifying -O. */
+ if (value)
{
- /* We save the value of warn_uninitialized, since if they put
- -Wuninitialized on the command line, we need to generate a
- warning about not using it without also specifying -O. */
if (warn_uninitialized != 1)
warn_uninitialized = 2;
- warn_unused = 1;
}
else
- return 0;
+ warn_uninitialized = 0;
+ break;
+
+ case OPT_I:
+ ffecom_decode_include_option (arg);
+ break;
}
- else if (opt[1] == 'I')
- return ffecom_decode_include_option (&opt[2]);
- else
- return 0;
return 1;
}
Performs per-image invocation. */
void
-ffe_init_0 ()
+ffe_init_0 (void)
{
++ffe_count_0;
ffe_in_0 = TRUE;
Performs per-source-file invocation (not including INCLUDEd files). */
void
-ffe_init_1 ()
+ffe_init_1 (void)
{
++ffe_count_1;
ffe_in_1 = TRUE;
Performs per-program-unit invocation. */
void
-ffe_init_2 ()
+ffe_init_2 (void)
{
++ffe_count_2;
ffe_in_2 = TRUE;
of inits, from 0-3, breaks here; level 4 must be invoked independently). */
void
-ffe_init_3 ()
+ffe_init_3 (void)
{
++ffe_count_3;
ffe_in_3 = TRUE;
ffe_init_4(); */
void
-ffe_init_4 ()
+ffe_init_4 (void)
{
++ffe_count_4;
ffe_in_4 = TRUE;
ffe_terminate_0(); */
void
-ffe_terminate_0 ()
+ffe_terminate_0 (void)
{
ffe_count_1 = 0;
ffe_in_0 = FALSE;
ffe_terminate_1(); */
void
-ffe_terminate_1 ()
+ffe_terminate_1 (void)
{
ffe_count_2 = 0;
ffe_in_1 = FALSE;
ffe_terminate_2(); */
void
-ffe_terminate_2 ()
+ffe_terminate_2 (void)
{
ffe_count_3 = 0;
ffe_in_2 = FALSE;
ffe_terminate_3(); */
void
-ffe_terminate_3 ()
+ffe_terminate_3 (void)
{
ffe_count_4 = 0;
ffe_in_3 = FALSE;
ffe_terminate_4(); */
void
-ffe_terminate_4 ()
+ffe_terminate_4 (void)
{
ffe_in_4 = FALSE;
OSDN Git Service
