diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-01-21 21:33:10 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-01-21 21:33:10 +0100 |
| commit | abba182313a491dae23985a480944282c6a566a8 (patch) | |
| tree | 1987e86d4fedd41d073b81a379affe949060d604 /gcc/fortran | |
| parent | ee3ee948de7684e4542acd501239fd4105ad4221 (diff) | |
| download | gcc-abba182313a491dae23985a480944282c6a566a8.zip gcc-abba182313a491dae23985a480944282c6a566a8.tar.gz gcc-abba182313a491dae23985a480944282c6a566a8.tar.bz2 | |
re PR fortran/47394 (Internal compiler error when error count limit is reached)
2011-01-21 Tobias Burnus <burnus@net-b.de>
PR fortran/47394
* error.c (gfc_error_now, gfc_fatal_error, gfc_error_check):
Use defined instead of magic number exit status codes.
* scanner.c (include_line, gfc_new_file): Ditto.
From-SVN: r169104
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/error.c | 6 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 4 |
3 files changed, 12 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7ea9603..553c338 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 2011-01-21 Tobias Burnus <burnus@net-b.de> + PR fortran/47394 + * error.c (gfc_error_now, gfc_fatal_error, gfc_error_check): + Use defined instead of magic number exit status codes. + * scanner.c (include_line, gfc_new_file): Ditto. + +2011-01-21 Tobias Burnus <burnus@net-b.de> + PR fortran/47377 * expr.c (gfc_check_pointer_assign): Reject expr data-targets without pointer attribute. diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index 3092828..bedb629 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -939,7 +939,7 @@ gfc_error_now (const char *gmsgid, ...) buffer_flag = i; if (flag_fatal_errors) - exit (1); + exit (FATAL_EXIT_CODE); } @@ -956,7 +956,7 @@ gfc_fatal_error (const char *gmsgid, ...) error_print (_("Fatal Error:"), _(gmsgid), argp); va_end (argp); - exit (3); + exit (FATAL_EXIT_CODE); } @@ -1019,7 +1019,7 @@ gfc_error_check (void) gfc_increment_error_count(); if (flag_fatal_errors) - exit (1); + exit (FATAL_EXIT_CODE); } return rc; diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index c226bae..ac26a80 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1868,7 +1868,7 @@ include_line (gfc_char_t *line) filename = gfc_widechar_to_char (begin, -1); if (load_file (filename, NULL, false) == FAILURE) - exit (1); + exit (FATAL_EXIT_CODE); gfc_free (filename); return true; @@ -2072,7 +2072,7 @@ gfc_new_file (void) printf ("%s:%3d %s\n", LOCATION_FILE (line_head->location), LOCATION_LINE (line_head->location), line_head->line); - exit (0); + exit (SUCCESS_EXIT_CODE); #endif return result; |