parsergen: revise rule for NEWLINE forcing reduce

[ocean] / csrc / parsergen.mdc

diff --git a/csrc/parsergen.mdc b/csrc/parsergen.mdc
index aa173e6ed49db9b4745d54b72d1095d19f0e0ee7..48c4d62c6fe58f44164ac1382121806ea1255c20 100644 (file)
--- a/csrc/parsergen.mdc
+++ b/csrc/parsergen.mdc
@@ -2720,7 +2720,8 @@ since the last state which could have been at the start of a line.
                                        parser_trace_action(trace, "Discard");
                                        continue;
                                }
-                               if (states[tos->state].reduce_size >= 0 &&
+                               if (tos->since_newline > 1 &&
+                                   states[tos->state].reduce_size >= 0 &&
                                    states[tos->state].reduce_size <= tos->since_newline)
                                        goto force_reduce;
                        }