/* Match rules with nonterminals for bison,
- Copyright (C) 1984, 1989 Free Software Foundation, Inc.
+ Copyright 1984, 1989, 2000 Free Software Foundation, Inc.
-This file is part of Bison, the GNU Compiler Compiler.
+ This file is part of Bison, the GNU Compiler Compiler.
-Bison is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2, or (at your option)
-any later version.
+ Bison is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
-Bison is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
+ Bison is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
-You should have received a copy of the GNU General Public License
-along with Bison; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+ You should have received a copy of the GNU General Public License
+ along with Bison; see the file COPYING. If not, write to
+ the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
-/* set_derives finds, for each variable (nonterminal), which rules can derive it.
- It sets up the value of derives so that
- derives[i - ntokens] points to a vector of rule numbers,
- terminated with -1. */
+/* set_derives finds, for each variable (nonterminal), which rules can
+ derive it. It sets up the value of derives so that derives[i -
+ ntokens] points to a vector of rule numbers, terminated with -1.
+ */
-#include <stdio.h>
#include "system.h"
-#include "alloc.h"
+#include "xalloc.h"
#include "types.h"
#include "gram.h"
-
-void set_derives PARAMS((void));
-void free_derives PARAMS((void));
+#include "derives.h"
short **derives;
+#if DEBUG
+
+static void
+print_derives (void)
+{
+ int i;
+ short *sp;
+
+ fputs ("\n\n\n", stdout);
+ printf (_("DERIVES"));
+ fputs ("\n\n", stdout);
+
+ for (i = ntokens; i < nsyms; i++)
+ {
+ printf (_("%s derives"), tags[i]);
+ for (sp = derives[i]; *sp > 0; sp++)
+ {
+ printf (" %d", *sp);
+ }
+ putchar ('\n');
+ }
+
+ putchar ('\n');
+}
+
+#endif
+
void
set_derives (void)
{
- register int i;
- register int lhs;
- register shorts *p;
- register short *q;
- register shorts **dset;
- register shorts *delts;
+ int i;
+ int lhs;
+ shorts *p;
+ short *q;
+ shorts **dset;
+ shorts *delts;
- dset = NEW2(nvars, shorts *) - ntokens;
- delts = NEW2(nrules + 1, shorts);
+ dset = XCALLOC (shorts *, nvars) - ntokens;
+ delts = XCALLOC (shorts, nrules + 1);
p = delts;
for (i = nrules; i > 0; i--)
}
}
- derives = NEW2(nvars, short *) - ntokens;
- q = NEW2(nvars + nrules, short);
+ derives = XCALLOC (short *, nvars) - ntokens;
+ q = XCALLOC (short, nvars + nrules);
for (i = ntokens; i < nsyms; i++)
{
*q++ = -1;
}
-#ifdef DEBUG
- print_derives();
+#if DEBUG
+ print_derives ();
#endif
- FREE(dset + ntokens);
- FREE(delts);
+ XFREE (dset + ntokens);
+ XFREE (delts);
}
void
free_derives (void)
{
- FREE(derives[ntokens]);
- FREE(derives + ntokens);
+ XFREE (derives[ntokens]);
+ XFREE (derives + ntokens);
}
-
-
-
-#ifdef DEBUG
-
-void
-print_derives (void)
-{
- register int i;
- register short *sp;
-
- extern char **tags;
-
- printf(_("\n\n\nDERIVES\n\n"));
-
- for (i = ntokens; i < nsyms; i++)
- {
- printf(_("%s derives"), tags[i]);
- for (sp = derives[i]; *sp > 0; sp++)
- {
- printf(" %d", *sp);
- }
- putchar('\n');
- }
-
- putchar('\n');
-}
-
-#endif