From b23aac4f240ff51d5d5f91e2dd790840c7e39e4f Mon Sep 17 00:00:00 2001 From: burnus Date: Fri, 21 Jan 2011 20:33:10 +0000 Subject: [PATCH] 2011-01-21 Tobias Burnus 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@169104 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/error.c | 6 +++--- gcc/fortran/scanner.c | 4 ++-- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7ea96036e7f..553c33859f8 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 2011-01-21 Tobias Burnus + 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 + 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 30928286c98..bedb6297777 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 c226baee966..ac26a8042ca 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; -- 2.11.0