@@ -68,7 +68,8 @@ long engine(int mode, long param_1, long param_2)
cell *restrict ip;
cell *restrict cfa;
- static cell handler_stack[160];
+ static cell handler_stack_[160];
+ static cell *handler_stack = handler_stack_ + 1;
static cell c_return[2];
static cell dummy;
@@ -26,7 +26,8 @@ cell the_exception_frame[0x400 / CELLSIZE] __attribute__
((aligned(PAGE_SIZE)));
cell the_client_frame[0x1000 / CELLSIZE] __attribute__ ((aligned(0x100)));
cell the_client_stack[0x8000 / CELLSIZE] __attribute__ ((aligned(0x100)));
/* THE forth stack */
-cell the_data_stack[0x2000 / CELLSIZE] __attribute__ ((aligned(0x100)));
+cell the_data_stack_[0x2000 / CELLSIZE] __attribute__ ((aligned(0x100)));
+cell *the_data_stack = the_data_stack_ + 1;
/* the forth return stack */
cell the_return_stack[0x2000 / CELLSIZE] __attribute__ ((aligned(0x100)));