From fd07c36a40ce196cd735de69967e091a90e6dafa Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 7 Jun 2001 17:44:59 +0000 Subject: [PATCH] Fixed bug in s48_enter_unsigned_integer. --- c/external.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/c/external.c b/c/external.c index e9e00c2..808647c 100644 --- a/c/external.c +++ b/c/external.c @@ -742,9 +742,9 @@ s48_enter_unsigned_integer(unsigned long value) return s48_call_scheme(S48_SHARED_BINDING_REF(long_to_bignum_binding), 3, - S48_TRUE, - S48_UNSAFE_ENTER_FIXNUM((- value) >> 16), - S48_UNSAFE_ENTER_FIXNUM((- value) & 0xFFFF)); + S48_FALSE, // this is ok + S48_UNSAFE_ENTER_FIXNUM(value >> 16), + S48_UNSAFE_ENTER_FIXNUM(value & 0xFFFF)); } }