do not reset C stack org as pointer addresses higher than top-level - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

do not reset C stack org as pointer addresses higher than top-level

need updating

-rwxr-xr-x

1 files changed, 9 insertions, 9 deletions

diff --git a/gcl/o/main.c b/gcl/o/main.c
index 41b4ad972..3f9b81e37 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -824,15 +824,15 @@ 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;

-#ifdef __ia64__

- {

- extern void * GC_save_regs_in_stack();

- if (cs_base2==cs_org2)

- cs_org2=GC_save_regs_in_stack();

- }

-#endif

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

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

+/* #ifdef __ia64__ */

+/* { */

+/* extern void * GC_save_regs_in_stack(); */

+/* if (cs_base2==cs_org2) */

+/* cs_org2=GC_save_regs_in_stack(); */

+/* } */

+/* #endif */

/* reset_cstack_limit(i); */

vs_base[0] = Cnil;

}

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月04日 23:11:06 +0000