many minor mods

1988-03-23 17:44:25 +00:00
parent 3c204ee395
commit e511419efc
13 changed files with 92 additions and 69 deletions
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -354,7 +354,10 @@ again:

 		if (ch == EOI) eofseen = 1;
 		else PushBack();
-		*tag++ = '\0';
+		*tag = '\0';
+		if (*(tag - 1) == '_') {
+			lexerror("last character of an identifier may not be a '_'");
+		}

 		tk->TOK_IDF = id = str2idf(buf, 1);
 		return tk->tk_symb = id->id_reserved ? id->id_reserved : IDENT;