From: Richard Kenner <kenner@gcc.gnu.org>
Date: Mon, 6 May 1996 01:59:45 +0000 (-0400)
Subject: (check_newline): Fix #pragma parsing; issue error message for
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a8767945fe349153f366a7d3b8926865e2fd9aec;p=gcc.git

(check_newline): Fix #pragma parsing; issue error message for
directive that starts with `p' but isn't `pragma'.

From-SVN: r11928
---

diff --git a/gcc/c-lex.c b/gcc/c-lex.c
index 1ce34cecfed..966d5efa23f 100644
--- a/gcc/c-lex.c
+++ b/gcc/c-lex.c
@@ -403,16 +403,14 @@ check_newline ()
 	      if (c == '\n')
 		return c;
 #ifdef HANDLE_SYSV_PRAGMA
+	      ungetc (c, finput);
 	      token = yylex ();
 	      if (token != IDENTIFIER)
 		goto skipline;
-	      if (handle_sysv_pragma (finput, token))
-		{
-		  c = getc (finput);
-		  return c;
-		}
+	      return handle_sysv_pragma (finput, token);
 #else /* !HANDLE_SYSV_PRAGMA */
 #ifdef HANDLE_PRAGMA
+	      ungetc (c, finput);
 	      token = yylex ();
 	      if (token != IDENTIFIER)
 		goto skipline;
@@ -423,8 +421,8 @@ check_newline ()
 		}
 #endif /* HANDLE_PRAGMA */
 #endif /* !HANDLE_SYSV_PRAGMA */
+	      goto skipline;
 	    }
-	  goto skipline;
 	}
 
       else if (c == 'd')