version 1.63, 2003/06/30 22:13:32 |
version 1.64, 2003/11/17 17:12:10 |
|
|
initspaces(); |
initspaces(); |
STACKMAX = INITSTACKMAX; |
STACKMAX = INITSTACKMAX; |
|
|
mstack = (stae *)xalloc(sizeof(stae) * STACKMAX); |
mstack = (stae *)xalloc(sizeof(stae) * STACKMAX, NULL); |
sstack = (char *)xalloc(STACKMAX); |
sstack = (char *)xalloc(STACKMAX, NULL); |
|
|
maxout = 0; |
maxout = 0; |
outfile = NULL; |
outfile = NULL; |
|
|
static void |
static void |
enlarge_stack(void) |
enlarge_stack(void) |
{ |
{ |
STACKMAX *= 2; |
STACKMAX += STACKMAX/2; |
mstack = realloc(mstack, sizeof(stae) * STACKMAX); |
mstack = xrealloc(mstack, sizeof(stae) * STACKMAX, |
sstack = realloc(sstack, STACKMAX); |
"Evaluation stack overflow (%lu)", |
if (mstack == NULL || sstack == NULL) |
(unsigned long)STACKMAX); |
errx(1, "Evaluation stack overflow (%lu)", |
sstack = xrealloc(sstack, STACKMAX, |
(unsigned long)STACKMAX); |
"Evaluation stack overflow (%lu)", |
|
(unsigned long)STACKMAX); |
} |
} |