775 |
return Cnil; |
return Cnil; |
776 |
} |
} |
777 |
|
|
778 |
static void |
/* static void */ |
779 |
reset_cstack_limit(int arg) { |
/* reset_cstack_limit(int arg) { */ |
780 |
#if CSTACK_DIRECTION==-1 |
/* #if CSTACK_DIRECTION==-1 */ |
781 |
if (&arg > cs_base - cssize/sizeof(*cs_base) + 16) |
/* if (&arg > cs_base - cssize/sizeof(*cs_base) + 16) */ |
782 |
#else |
/* #else */ |
783 |
if (&arg < cs_base + cssize/sizeof(*cs_base) - 16) |
/* if (&arg < cs_base + cssize/sizeof(*cs_base) - 16) */ |
784 |
#endif |
/* #endif */ |
785 |
cs_limit = (void *)CSTACK_ADDRESS + CSTACK_DIRECTION * cssize + 1; |
/* cs_limit = (void *)CSTACK_ADDRESS + CSTACK_DIRECTION * cssize + 1; */ |
786 |
else |
/* else */ |
787 |
error ( "can't reset cs_limit" ); |
/* error ( "can't reset cs_limit" ); */ |
788 |
} |
/* } */ |
789 |
|
|
790 |
LFD(siLreset_stack_limits)(void) |
LFD(siLreset_stack_limits)(void) |
791 |
{ |
{ |
822 |
} |
} |
823 |
#endif |
#endif |
824 |
|
|
825 |
reset_cstack_limit(i); |
/* reset_cstack_limit(i); */ |
826 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
827 |
} |
} |
828 |
|
|