From: dtrg <none@none>
Date: Tue, 20 Feb 2007 00:40:00 +0000 (+0000)
Subject: Tweaked to allow _ as a leading character in identifier names (if
X-Git-Tag: release-6-0-pre-1~26
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=39689a4de90f0852d74eefdca9f595c9c756ae7e;p=ack.git

Tweaked to allow _ as a leading character in identifier names (if
use of underscores in identifiers has been turned on).
---

diff --git a/lang/pc/comp/LLlex.c b/lang/pc/comp/LLlex.c
index 404358070..4c2b6b66d 100644
--- a/lang/pc/comp/LLlex.c
+++ b/lang/pc/comp/LLlex.c
@@ -418,7 +418,14 @@ again:
 		if( ch == EOI ) eofseen = 1;
 		else PushBack();
 
+		/* dtrg: removed to allow Pascal programs to access system routines
+		 * (necessary to make them do anything useful). What's this for,
+		 * anyway? */
+		 
+#if 0
 		if( buf[0] == '_' ) lexerror("underscore starts identifier");
+#endif
+
 		tk->TOK_IDF = id = str2idf(buf, 1);
 		return tk->tk_symb = id->id_reserved ? id->id_reserved : IDENT;
 	}