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 4043580..4c2b6b6 100644 (file)
--- 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;
        }