OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/47394 (Internal compiler error when error count limit is reached)

Browse Source 
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
This commit is contained in:
Tobias Burnus 2011-01-21 21:33:10 +01:00 committed by Tobias Burnus
parent ee3ee948de
commit abba182313
3 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
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

6
gcc/fortran/error.c
View File

@ -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;

4
gcc/fortran/scanner.c
View File

@ -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;