(check_newline): Fix #pragma parsing; issue error message for

directive that starts with `p' but isn't `pragma'. From-SVN: r11928

(check_newline): Fix #pragma parsing; issue error message for
directive that starts with `p' but isn't `pragma'. From-SVN: r11928
a8767945 · Richard Kenner · 373e7d69 · a8767945
Commit a8767945 authored 28 years ago by Richard Kenner
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 6 deletions

gcc/c-lex.c
+4 -6

No files found.
--- 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')