Must expand identifier in #include directive. sloscan() don't do it and

yylex() will return a NUMBER.  Fixes Jira#PCC-76 by Detlef Riekenberg.

1 files changed, 12 insertions, 1 deletions

diff --git a/cpp.c b/cpp.c
index 81fb1bd..92ac324 100644
--- a/cpp.c
+++ b/cpp.c
@@ -492,6 +492,7 @@ bad:	error("bad line directive");
 void
 include()
 {
+	struct symtab *nl;
 	struct incs *w;
 	usch *osp;
 	usch *fn, *safefn;
@@ -501,7 +502,17 @@ include()
 		return;
 	osp = stringbuf;
 
-	if ((c = yylex()) != STRING && c != '<')
+	while ((c = sloscan()) == WSPACE)
+		;
+	if (c == IDENT) {
+		/* sloscan() will not expand idents */
+		if ((nl = lookup((usch *)yytext, FIND)) == NULL)
+			goto bad;
+		unpstr(gotident(nl));
+		stringbuf = osp;
+		c = yylex();
+	}
+	if (c != STRING && c != '<')
 		goto bad;
 
 	if (c == '<') {