diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | match.c | 4 |
2 files changed, 11 insertions, 2 deletions
@@ -1,5 +1,14 @@ 2014-03-07 Kaz Kylheku <kaz@kylheku.com> + * match.c (LOG_MATCH, LOG_MISMATCH): Wouldn't you know it; + the format strings in these macros contained a workaround for + the broken * variable field width syntax, specifying + ~*~a where the extra ~ in the middle just feeds a character + that the broken state machine expects. These workarounds broke when I + fixed the formatting, making -v mode useless. + +2014-03-07 Kaz Kylheku <kaz@kylheku.com> + Version 84 * txr.c (version): Bumped. @@ -407,14 +407,14 @@ typedef val (*h_match_func)(match_line_ctx *c); plus(c->pos, c->base), c->file, c->data_lineno, nao); \ debuglf(elem, lit(" ~a"), c->dataline, nao); \ if (c_num(c->pos) < 77) \ - debuglf(elem, lit(" ~*~a^"), c->pos, lit(""), nao) + debuglf(elem, lit(" ~*a^"), c->pos, lit(""), nao) #define LOG_MATCH(KIND, EXTENT) \ debuglf(elem, lit(KIND " matched, position ~a-~a (~a:~a)"), \ plus(c->pos, c->base), EXTENT, c->file, c->data_lineno, nao); \ debuglf(elem, lit(" ~a"), c->dataline, nao); \ if (c_num(EXTENT) < 77) \ - debuglf(elem, lit(" ~*~a~<*~a^"), c->pos, lit(""), \ + debuglf(elem, lit(" ~*a~<*a^"), c->pos, lit(""), \ minus(EXTENT, c->pos), lit("^"), nao) #define elem_bind(elem_var, directive_var, specline) \ |