do not reset C stack limits in top level (can miss objects) - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

do not reset C stack limits in top level (can miss objects)bool-expr

-rwxr-xr-x

1 files changed, 2 insertions, 2 deletions

diff --git a/gcl/o/main.c b/gcl/o/main.c
index 75f1a7c12..2a4044215 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -979,8 +979,8 @@ LFD(siLreset_stack_limits)(void)

ihs_limit = ihs_org + stack_multiple * IHSSIZE;

else

error("can't reset ihs_limit");

- if (cs_base==cs_org)

- cs_org=(void *)&i;

+ /* if (cs_base==cs_org) */

+ /* cs_org=(void *)&i; */

#ifdef __ia64__

{

extern void * GC_save_regs_in_stack();

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月01日 18:23:53 +0000