From: Richard Kenner <kenner@gcc.gnu.org>
Date: Fri, 3 Sep 1993 22:03:32 +0000 (-0400)
Subject: (skip_if_group): Check for traditional mode when skipping ahead to
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=78af79ab5abdbfc756d51c01cea43bb9366496d7;p=gcc.git

(skip_if_group): Check for traditional mode when skipping ahead to
next #, ignore unless at beginning of line.

From-SVN: r5257
---

diff --git a/gcc/cccp.c b/gcc/cccp.c
index 02035e4bb1c..3be2bfa1799 100644
--- a/gcc/cccp.c
+++ b/gcc/cccp.c
@@ -1,5 +1,5 @@
 /* C Compatible Compiler Preprocessor (CCCP)
-Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc.
+Copyright (C) 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc.
                     Written by Paul Rubin, June 1986
 		    Adapted to ANSI C, Richard Stallman, Jan 1987
 
@@ -6429,22 +6429,24 @@ skip_if_group (ip, any)
 	 and backslash-newlines, and see if we reach this #.
 	 If not, this # is not special.  */
       bp = beg_of_line;
-      while (1) {
-	if (is_hor_space[*bp])
-	  bp++;
-	else if (*bp == '\\' && bp[1] == '\n')
-	  bp += 2;
-	else if (*bp == '/' && bp[1] == '*') {
-	  bp += 2;
-	  while (!(*bp == '*' && bp[1] == '/'))
+      /* If -traditional, require # to be at beginning of line.  */
+      if (!traditional)
+	while (1) {
+	  if (is_hor_space[*bp])
 	    bp++;
-	  bp += 2;
-	} else if (cplusplus_comments && *bp == '/' && bp[1] == '/') {
-	  bp += 2;
-	  while (*bp++ != '\n') ;
-        }
-	else break;
-      }
+	  else if (*bp == '\\' && bp[1] == '\n')
+	    bp += 2;
+	  else if (*bp == '/' && bp[1] == '*') {
+	    bp += 2;
+	    while (!(*bp == '*' && bp[1] == '/'))
+	      bp++;
+	    bp += 2;
+	  } else if (cplusplus_comments && *bp == '/' && bp[1] == '/') {
+	    bp += 2;
+	    while (*bp++ != '\n') ;
+	  }
+	  else break;
+	}
       if (bp != ip->bufp) {
 	bp = ip->bufp + 1;	/* Reset bp to after the #.  */
 	break;