From 241aa1d40d31dcab9b7f108939f220fb56b2480d Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Wed, 28 Jul 2004 10:34:31 +0000 Subject: 20214: fix debugging test with recursive functions --- Src/parse.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Src/parse.c') diff --git a/Src/parse.c b/Src/parse.c index 0d0dc6c35..551573f5a 100644 --- a/Src/parse.c +++ b/Src/parse.c @@ -2168,7 +2168,10 @@ freeeprog(Eprog p) /* paranoia */ DPUTS(p->nref > 0 && (p->flags & EF_HEAP), "Heap EPROG has nref > 0"); DPUTS(p->nref < 0 && !(p->flags & EF_HEAP), "Real EPROG has nref < 0"); - DPUTS(p->nref < -1 || p->nref > 256, "Uninitialised EPROG nref"); + DPUTS(p->nref < -1, "Uninitialised EPROG nref"); +#ifdef MAX_FUNCTION_DEPTH + DPUTS(p->nref > MAX_FUNCTION_DEPTH + 10, "Overlarge EPROG nref"); +#endif if (p->nref > 0 && !--p->nref) { for (i = p->npats, pp = p->pats; i--; pp++) freepatprog(*pp); -- cgit 1.4.1