[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    [Patch, Fortran, committed] Change two gfc_warning_now_1 to common diagnostics
From:       Tobias Burnus <burnus () net-b ! de>
Date:       2014-11-29 10:58:09
Message-ID: 5479A6C1.4040000 () net-b ! de
[Download RAW message or body]

It turned out that those two could be converted. At least two of the 
remaining three gfc_warning_now_1 currently can't (they lead to ICEs).

Committed as Rev. 218180.

Tobias

["committed.diff" (text/x-patch)]

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 218179)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -1,4 +1,9 @@
 2014-11-29  Tobias Burnus  <burnus@net-b.de>
+
+	* scanner.c (skip_free_comments, gfc_gobble_whitespace): Use
+	gfc_warning_now instead of ..._now_1.
+
+2014-11-29  Tobias Burnus  <burnus@net-b.de>
 	    Manuel López-Ibáñez  <manu@gcc.gnu.org>
 
 	* lang.opt (Wtabs): Combine duplicated item into a single
Index: gcc/fortran/scanner.c
===================================================================
--- gcc/fortran/scanner.c	(Revision 218179)
+++ gcc/fortran/scanner.c	(Arbeitskopie)
@@ -775,10 +775,10 @@ skip_free_comments (void)
 				}
 			    }
 			  else
-			    gfc_warning_now_1 ("!$OMP at %C starts a commented "
-					       "line as it neither is followed "
-					       "by a space nor is a "
-					       "continuation line");
+			    gfc_warning_now ("!$OMP at %C starts a commented "
+					     "line as it neither is followed "
+					     "by a space nor is a "
+					     "continuation line");
 			}
 		      gfc_current_locus = old_loc;
 		      next_char ();
@@ -1388,7 +1388,7 @@ gfc_gobble_whitespace (void)
 	  if (cur_linenum != linenum)
 	    {
 	      linenum = cur_linenum;
-	      gfc_warning_now_1 ("Nonconforming tab character at %C");
+	      gfc_warning_now (OPT_Wtabs, "Nonconforming tab character at %C");
 	    }
 	}
     }


[prev in list] [next in list] [prev in thread] [next in thread]