+2000-05-19 Zack Weinberg <zack@wolery.cumb.org>
+
+ * cpplex.c (_cpp_scan_until): Clear AUX field of tokens.
+ * cpplib.c (do_unassert): Put the list to compare against on
+ the stack.
+
2000-05-19 Bruce Korb <bkorb@gnu.org>
* fixinc/README: cleaned up old documentation
U_CHAR *sym;
size_t len;
HASHNODE *hp;
- struct predicate *pred = 0;
+ cpp_toklist ans;
enum cpp_ttype type;
+ int specific = 0;
old_written = CPP_WRITTEN (pfile);
pfile->no_macro_expand++;
type = _cpp_get_directive_token (pfile);
if (type == CPP_OPEN_PAREN)
{
- pred = (struct predicate *) xmalloc (sizeof (struct predicate));
- _cpp_init_toklist (&pred->answer);
+ specific = 1;
+ _cpp_init_toklist (&ans);
- if (_cpp_scan_until (pfile, &pred->answer, CPP_CLOSE_PAREN)
+ if (_cpp_scan_until (pfile, &ans, CPP_CLOSE_PAREN)
!= CPP_CLOSE_PAREN)
ERROR ("missing close paren in #unassert");
goto error to clean up. */
goto error;
- if (pred)
+ if (specific)
{
/* Find this specific answer and remove it. */
struct predicate *o, *p;
for (p = NULL, o = hp->value.pred; o; p = o, o = o->next)
- if (_cpp_equiv_toklists (&pred->answer, &o->answer))
+ if (_cpp_equiv_toklists (&ans, &o->answer))
{
if (p)
p->next = o->next;
_cpp_skip_rest_of_line (pfile);
pfile->no_macro_expand--;
CPP_SET_WRITTEN (pfile, old_written);
- if (pred)
- {
- _cpp_free_toklist (&pred->answer);
- free (pred);
- }
+ if (specific)
+ _cpp_free_toklist (&ans);
return 0;
}