if ((o->n_R_child = parse ()))
return o;
padvise (NULL, "missing disjunctive");
+ free (o);
return NULL;
header: ;
if (*cp != '-') {
padvise (NULL, "%s unexpected", cp);
+ free (n);
return NULL;
}
case AMBIGSW:
ambigsw (cp, parswit);
talked++;
+ free (n);
return NULL;
case UNKWNSW:
fprintf (stderr, "-%s unknown\n", cp);
talked++;
+ free (n);
return NULL;
case PRAND:
if ((o->n_R_child = nexp1 ()))
return o;
padvise (NULL, "missing conjunctive");
+ free (o);
return NULL;
header: ;
if ((n->n_L_child = nexp3 ()))
return n;
padvise (NULL, "missing negation");
+ free (n);
return NULL;
header: ;
n->n_header = 0;
if (!(cp = nxtarg ())) {/* allow -xyz arguments */
padvise (NULL, "missing argument to %s", argp[-2]);
+ free (n);
return NULL;
}
dp = cp;
pattern: ;
if (!gcompile (n, dp)) {
padvise (NULL, "pattern error in %s %s", argp[-2], cp);
+ free (n);
return NULL;
}
n->n_patbuf = getcpy (dp);
n->n_datef = datesw;
if (!tcompile (cp, &n->n_tws, n->n_after = i == PRAFTR)) {
padvise (NULL, "unable to parse %s %s", argp[-2], cp);
+ free (n);
return NULL;
}
return n;
{
register struct nexus *p;
- if ((p = (struct nexus *) calloc ((size_t) 1, sizeof *p)) == NULL)
+ if ((p = (struct nexus *) mh_xcalloc ((size_t) 1, sizeof *p)) == NULL)
adios (NULL, "unable to allocate component storage");
p->n_action = action;