diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-04-06 12:17:33 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-04-06 12:17:33 +0000 |
| commit | 6c1abb5c58569e9655b1f92fd0d8e9d2e29c9c4f (patch) | |
| tree | 7fa1aa756360ffed20f125a333e3becf3e5e661e /gcc/fortran/options.c | |
| parent | 1bde5bc4681ac3713d54d6511cfb6000be57114f (diff) | |
| download | gcc-6c1abb5c58569e9655b1f92fd0d8e9d2e29c9c4f.zip gcc-6c1abb5c58569e9655b1f92fd0d8e9d2e29c9c4f.tar.gz gcc-6c1abb5c58569e9655b1f92fd0d8e9d2e29c9c4f.tar.bz2 | |
dump-parse-tree.c: Use fprintf, fputs and fputc instead of gfc_status and gfc_status_char.
* dump-parse-tree.c: Use fprintf, fputs and fputc instead of
gfc_status and gfc_status_char. Remove gfc_ prefix of the gfc_show_*
functions and make them static. Add new gfc_dump_parse_tree
function.
* gfortran.h (gfc_option_t): Rename verbose into dump_parse_tree.
(gfc_status, gfc_status_char): Delete prototypes.
* error.c (gfc_status, gfc_status_char): Remove functions.
* scanner.c (gfc_new_file): Use printf instead of gfc_status.
* options.c (gfc_init_options): Rename verbose into dump_parse_tree.
(gfc_handle_module_path_options): Use gfc_fatal_error instead of
gfc_status and exit.
(gfc_handle_option): Rename verbose into dump_parse_tree.
From-SVN: r133958
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 61481b3..5ccbc77 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -64,7 +64,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.max_subrecord_length = 0; gfc_option.convert = GFC_CONVERT_NATIVE; gfc_option.record_marker = 0; - gfc_option.verbose = 0; + gfc_option.dump_parse_tree = 0; gfc_option.warn_aliasing = 0; gfc_option.warn_ampersand = 0; @@ -391,16 +391,10 @@ gfc_handle_module_path_options (const char *arg) { if (gfc_option.module_dir != NULL) - { - gfc_status ("gfortran: Only one -M option allowed\n"); - exit (3); - } + gfc_fatal_error ("gfortran: Only one -M option allowed"); if (arg == NULL) - { - gfc_status ("gfortran: Directory required after -M\n"); - exit (3); - } + gfc_fatal_error ("gfortran: Directory required after -M"); gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2); strcpy (gfc_option.module_dir, arg); @@ -564,7 +558,7 @@ gfc_handle_option (size_t scode, const char *arg, int value) break; case OPT_fdump_parse_tree: - gfc_option.verbose = value; + gfc_option.dump_parse_tree = value; break; case OPT_ffixed_form: |