report low immfix in (room t) - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

report low immfix in (room t)gmp_random_numbers

-rwxr-xr-x

1 files changed, 5 insertions, 0 deletions

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));

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