diff options
author | Matěj Cepl <mcepl@cepl.eu> | 2024-05-19 00:42:48 +0200 |
---|---|---|
committer | Matěj Cepl <mcepl@cepl.eu> | 2024-05-19 00:42:48 +0200 |
commit | eb3942e15700f3f4f61b4e46917ae8fbe614e524 (patch) | |
tree | be0c003fa8a0dead8d9dc921050ba13a56d1a9dd /z02.c | |
parent | 71d625f730d872791eef74d7999e1be28d5e5c7e (diff) | |
download | lout-eb3942e15700f3f4f61b4e46917ae8fbe614e524.tar.gz |
http://jeffreykingston.id.au/lout/lout-3.41.tar.gz
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 ) |