diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 1a4d3ad0307..545a280ae91 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -2373,8 +2373,7 @@ grow_specpdl_allocation (void) | |||
| 2373 | union specbinding *pdlvec = specpdl - 1; | 2373 | union specbinding *pdlvec = specpdl - 1; |
| 2374 | ptrdiff_t size = specpdl_end - specpdl; | 2374 | ptrdiff_t size = specpdl_end - specpdl; |
| 2375 | ptrdiff_t pdlvecsize = size + 1; | 2375 | ptrdiff_t pdlvecsize = size + 1; |
| 2376 | if (max_size <= size) | 2376 | eassert (max_size > size); |
| 2377 | xsignal0 (Qexcessive_variable_binding); /* Can't happen, essentially. */ | ||
| 2378 | pdlvec = xpalloc (pdlvec, &pdlvecsize, 1, max_size + 1, sizeof *specpdl); | 2377 | pdlvec = xpalloc (pdlvec, &pdlvecsize, 1, max_size + 1, sizeof *specpdl); |
| 2379 | specpdl = pdlvec + 1; | 2378 | specpdl = pdlvec + 1; |
| 2380 | specpdl_end = specpdl + pdlvecsize - 1; | 2379 | specpdl_end = specpdl + pdlvecsize - 1; |