* src/state.h, src/state.c (shifts_to): New.

* src/lalr.c (build_relations): Use it.

1 files changed, 14 insertions, 0 deletions

diff --git a/src/state.c b/src/state.c
index dd8ec750..f365039d 100644
--- a/src/state.c
+++ b/src/state.c
@@ -49,6 +49,20 @@ shifts_new (int nshifts, state_number_t *shifts)
 }
 
 
+/*-----------------------------------------------------------------.
+| Return the state such these SHIFTS contain a shift/goto to it on |
+| SYMBOL.  Aborts if none found.                                   |
+`-----------------------------------------------------------------*/
+
+state_t *
+shifts_to (shifts_t *shifts, symbol_number_t s)
+{
+  int j;
+  for (j = 0; j < shifts->nshifts; j++)
+    if (SHIFT_SYMBOL (shifts, j) == s)
+      return states[shifts->shifts[j]];
+  abort ();
+}
 
 
 			/*--------------------.