[Scsh-checkins] CVS: scsh-0.6/c external.c,1.6,1.7

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/c
In directory usw-pr-cvs1:/tmp/cvs-serv22075

Modified Files:
        external.c 
Log Message:
Fixed bug in s48_enter_unsigned_integer.


Index: external.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/c/external.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** external.c  2001/04/02 14:55:55     1.6
--- external.c  2001/06/07 17:44:59     1.7
***************
*** 743,749 ****
      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));
    }
  }
--- 743,749 ----
      return s48_call_scheme(S48_SHARED_BINDING_REF(long_to_bignum_binding),
                           3,
!                          S48_FALSE,   // this is ok
!                          S48_UNSAFE_ENTER_FIXNUM(value >> 16),
!                          S48_UNSAFE_ENTER_FIXNUM(value & 0xFFFF));
    }
  }