aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/scanner.c
diff options
context:
space:
mode:
authorTobias Burnus <burnus@net-b.de>2011-01-21 21:33:10 +0100
committerTobias Burnus <burnus@gcc.gnu.org>2011-01-21 21:33:10 +0100
commitabba182313a491dae23985a480944282c6a566a8 (patch)
tree1987e86d4fedd41d073b81a379affe949060d604 /gcc/fortran/scanner.c
parentee3ee948de7684e4542acd501239fd4105ad4221 (diff)
downloadgcc-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/scanner.c')
-rw-r--r--gcc/fortran/scanner.c4
1 files changed, 2 insertions, 2 deletions
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;