gcl.git - GNU Common Lisp

diff --git a/gcl/o/gbc.c b/gcl/o/gbc.c
index e754bea8b..f6a83aef3 100755
--- a/gcl/o/gbc.c
+++ b/gcl/o/gbc.c

@@ -1497,8 +1497,13 @@ FFN(siLheap_report)(void) {

vs_push(make_fixnum(CSTACK_ALIGNMENT));

vs_push(make_fixnum(abs(cs_limit-cs_org)));/*CSSIZE*/

#if defined(IM_FIX_BASE) && defined(IM_FIX_LIM)

+#ifdef LOW_IM_FIX

+ vs_push(make_fixnum(-LOW_IM_FIX));

+ vs_push(make_fixnum(1UL<<LOW_SHFT));

+#else

vs_push(make_fixnum(IM_FIX_BASE));

vs_push(make_fixnum(IM_FIX_LIM));

+#endif

#else

vs_push(make_fixnum(0));

vs_push(make_fixnum(0));