diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2015-08-17 18:23:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2015-08-17 18:23:20 (GMT) |
| commit | 68e5d7f9d97ea05155692dd5748468e6edbc1a63 (patch) | |
| tree | b408028784093b73312ff7c8209a68ff1d064ba2 /generic/regcomp.c | |
| parent | ad86ffae8c9504f573b41cb5a09d74da963ccfba (diff) | |
| parent | 2ef36c8edb60b8da26aeb9947f6d2cdd1d4bf6c1 (diff) | |
| download | tcl-68e5d7f9d97ea05155692dd5748468e6edbc1a63.zip tcl-68e5d7f9d97ea05155692dd5748468e6edbc1a63.tar.gz tcl-68e5d7f9d97ea05155692dd5748468e6edbc1a63.tar.bz2 | |
[818a1a51e4] Apply fixes from Andreas Seltenreich (reported to us by Tom Lane) for handling low memory situations. Should not be reachable in Tcl due to ckalloc() panic policy.
Diffstat (limited to 'generic/regcomp.c')
| -rw-r--r-- | generic/regcomp.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/regcomp.c b/generic/regcomp.c index 7ca4346..4f0c139 100644 --- a/generic/regcomp.c +++ b/generic/regcomp.c @@ -982,6 +982,7 @@ parseqatom( NOERR(); assert(v->nextvalue > 0); atom = subre(v, 'b', BACKR, lp, rp); + NOERR(); subno = v->nextvalue; atom->subno = subno; EMPTYARC(lp, rp); /* temporarily, so there's something */ @@ -1129,6 +1130,7 @@ parseqatom( */ t = subre(v, '.', COMBINE(qprefer, atom->flags), lp, rp); + NOERR(); t->left = atom; atomp = &t->left; @@ -1142,6 +1144,7 @@ parseqatom( assert(top->op == '=' && top->left == NULL && top->right == NULL); top->left = subre(v, '=', top->flags, top->begin, lp); + NOERR(); top->op = '.'; top->right = t; |