diff options
Diffstat (limited to 'z02.c')
| -rw-r--r-- | z02.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1,7 +1,7 @@ /*@z02.c:Lexical Analyser:Declarations@***************************************/ /* */ -/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.39) */ -/* COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston */ +/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.41) */ +/* COPYRIGHT (C) 1991, 2023 Jeffrey H. Kingston */ /* */ /* Jeffrey H. Kingston (jeff@it.usyd.edu.au) */ /* School of Information Technologies */ @@ -300,6 +300,7 @@ void LexPop(void) /* setword(typ, res, file_pos, str, len) */ /* */ /* Set variable res to a WORD or QWORD token containing string str, etc. */ +/* Here str has length len, but will usually not be NULL-terminated. */ /* */ /*****************************************************************************/ @@ -629,7 +630,8 @@ OBJECT LexGetToken(void) case LETTER: col_num(file_pos) = (startpos = p-1) - startline; - while( chtbl[*p++] == LETTER ); --p; + while( chtbl[*p++] == LETTER ); + --p; res = SearchSym(startpos, p - startpos); MORE: if( res == nilobj ) |