}
shift_symbol = symbol_count;
- kernel_size = XCALLOC (size_t, nsyms);
+ kernel_size = XCALLOC (int, nsyms);
}
}
+/*---------------------------------.
+| Create a new array of N shitfs. |
+`---------------------------------*/
+
+static shifts *
+shifts_new (int n)
+{
+ shifts *res = SHIFTS_ALLOC (n);
+ res->nshifts = n;
+ return res;
+}
+
+
+/*------------------------------------------------------------.
+| Save the NSHIFTS of SHIFTSET into the current linked list. |
+`------------------------------------------------------------*/
+
static void
save_shifts (void)
{
- shifts *p = SHIFTS_ALLOC (nshifts);
+ shifts *p = shifts_new (nshifts);
p->number = this_state->number;
- p->nshifts = nshifts;
shortcpy (p->shifts, shiftset, nshifts);
last_state = statep;
/* Make a shift from this state to (what will be) the final state. */
- sp = SHIFTS_ALLOC (1);
+ sp = shifts_new (1);
sp->number = nstates++;
- sp->nshifts = 1;
sp->shifts[0] = nstates;
last_shift->next = sp;
if (sp && sp->number == k)
{
- sp2 = SHIFTS_ALLOC (sp->nshifts + 1);
+ sp2 = shifts_new (sp->nshifts + 1);
sp2->number = k;
- sp2->nshifts = sp->nshifts + 1;
sp2->shifts[0] = nstates;
for (i = sp->nshifts; i > 0; i--)
sp2->shifts[i] = sp->shifts[i - 1];
}
else
{
- sp2 = SHIFTS_ALLOC (1);
+ sp2 = shifts_new (1);
sp2->number = k;
- sp2->nshifts = 1;
sp2->shifts[0] = nstates;
/* Patch sp2 into the chain of shifts between sp1 and sp. */
going to the next-to-final state (yet to be made). */
sp = first_shift;
- sp2 = SHIFTS_ALLOC (sp->nshifts + 1);
- sp2->nshifts = sp->nshifts + 1;
+ sp2 = shifts_new (sp->nshifts + 1);
/* Stick this shift into the vector at the proper place. */
statep = first_state->next;
{
/* The initial state didn't even have any shifts.
Give it one shift, to the next-to-final state. */
- sp = SHIFTS_ALLOC (1);
- sp->nshifts = 1;
+ sp = shifts_new (1);
sp->shifts[0] = nstates;
/* Patch sp into the chain of shifts at the beginning. */
/* There are no shifts for any state.
Make one shift, from the initial state to the next-to-final state. */
- sp = SHIFTS_ALLOC (1);
- sp->nshifts = 1;
+ sp = shifts_new (1);
sp->shifts[0] = nstates;
/* Initialize the chain of shifts with sp. */
last_state = statep;
/* Make the shift from the final state to the termination state. */
- sp = SHIFTS_ALLOC (1);
+ sp = shifts_new (1);
sp->number = nstates++;
- sp->nshifts = 1;
sp->shifts[0] = nstates;
last_shift->next = sp;
last_shift = sp;