error.c (warnings_not_errors): Use bool.

2014-12-02  Tobias Burnus  <burnus@net-b.de>
            Manuel López-Ibáñez  <manu@gcc.gnu.org>

        * error.c (warnings_not_errors): Use bool.
        (gfc_clear_error): Update.
        (gfc_get_errors): Ditto. Use bool argument.
        * gfortran.h (gfc_get_errors): Update prototype.
        * resolve.c (resolve_global_procedure): Update call.

Co-Authored-By: Manuel López-Ibáñez <manu@gcc.gnu.org>
From-SVN: r218296

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4bf21edef6091d2350d64e3a60e21876f616044b..23ddc2593c84cc7272ddcd4d1cb684143beb2cea 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,12 @@
+2014-12-02  Tobias Burnus  <burnus@net-b.de>
+           Manuel López-Ibáñez  <manu@gcc.gnu.org>
+
+       * error.c (warnings_not_errors): Use bool.
+       (gfc_clear_error): Update.
+       (gfc_get_errors): Ditto. Use bool argument.
+       * gfortran.h (gfc_get_errors): Update prototype.
+       * resolve.c (resolve_global_procedure): Update call.
+
 2014-12-02  Richard Biener  <rguenther@suse.de>
 
        PR fortran/64137

diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c
index 00e92280ce3b830f63f257f8c4c3c3c62adb9e27..70429d3e122f623879007c0eb92e1b36954d3edf 100644 (file)
--- a/gcc/fortran/error.c
+++ b/gcc/fortran/error.c
@@ -44,7 +44,7 @@ along with GCC; see the file COPYING3.  If not see
 
 static int suppress_errors = 0;
 
-static int warnings_not_errors = 0; 
+static bool warnings_not_errors = false;
 
 static int terminal_width, buffer_flag, errors, warnings;
 
@@ -1302,7 +1302,7 @@ void
 gfc_clear_error (void)
 {
   error_buffer.flag = 0;
-  warnings_not_errors = 0;
+  warnings_not_errors = false;
 }
 
 
@@ -1395,9 +1395,9 @@ gfc_get_errors (int *w, int *e)
 /* Switch errors into warnings.  */
 
 void
-gfc_errors_to_warnings (int f)
+gfc_errors_to_warnings (bool f)
 {
-  warnings_not_errors = (f == 1) ? 1 : 0;
+  warnings_not_errors = f;
 }
 
 void

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 10585025f97c493ad2a43c2a7357c872654746ab..1bf9862d23c140e10697ea548acb6158d6affdaa 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2701,7 +2701,7 @@ void gfc_pop_error (gfc_error_buf *);
 void gfc_free_error (gfc_error_buf *);
 
 void gfc_get_errors (int *, int *);
-void gfc_errors_to_warnings (int);
+void gfc_errors_to_warnings (bool);
 
 /* arith.c */
 void gfc_arith_init_1 (void);

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 9d7d3c25be0c946d382e19410581b0b1108869b9..dfc2eb67d95d97588d10d7bc152ab4fef066399a 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -2431,7 +2431,7 @@ resolve_global_procedure (gfc_symbol *sym, locus *where,
 
       if (!pedantic && (gfc_option.allow_std & GFC_STD_GNU))
        /* Turn erros into warnings with -std=gnu and -std=legacy.  */
-       gfc_errors_to_warnings (1);
+       gfc_errors_to_warnings (true);
 
       if (!gfc_compare_interfaces (sym, def_sym, sym->name, 0, 1,
                                   reason, sizeof(reason), NULL, NULL))
@@ -2444,14 +2444,14 @@ resolve_global_procedure (gfc_symbol *sym, locus *where,
       if (!pedantic
          || ((gfc_option.warn_std & GFC_STD_LEGACY)
              && !(gfc_option.warn_std & GFC_STD_GNU)))
-       gfc_errors_to_warnings (1);
+       gfc_errors_to_warnings (true);
 
       if (sym->attr.if_source != IFSRC_IFBODY)
        gfc_procedure_use (def_sym, actual, where);
     }
 
 done:
-  gfc_errors_to_warnings (0);
+  gfc_errors_to_warnings (false);
 
   if (gsym->type == GSYM_UNKNOWN)
     {