(1 << something) replaced by (1UL << something).

diff --git a/v7/src/microcode/bignmint.h b/v7/src/microcode/bignmint.h
index 85216e73d86a31d98868f86ce346f058f25b5c5f..8c66788ec32fb3711fcd264f6fbacde717597719 100644 (file)
--- a/v7/src/microcode/bignmint.h
+++ b/v7/src/microcode/bignmint.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignmint.h,v 1.1 1989/09/20 23:19:45 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignmint.h,v 1.2 1992/06/10 21:43:58 jinx Exp $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -98,8 +98,8 @@ extern void abort ();
 \f
 #define BIGNUM_DIGIT_LENGTH (((sizeof (bignum_digit_type)) * CHAR_BIT) - 2)
 #define BIGNUM_HALF_DIGIT_LENGTH (BIGNUM_DIGIT_LENGTH / 2)
-#define BIGNUM_RADIX            (1 << BIGNUM_DIGIT_LENGTH)
-#define BIGNUM_RADIX_ROOT       (1 << BIGNUM_HALF_DIGIT_LENGTH)
+#define BIGNUM_RADIX            (1UL << BIGNUM_DIGIT_LENGTH)
+#define BIGNUM_RADIX_ROOT       (1UL << BIGNUM_HALF_DIGIT_LENGTH)
 #define BIGNUM_DIGIT_MASK       (BIGNUM_RADIX - 1)
 #define BIGNUM_HALF_DIGIT_MASK  (BIGNUM_RADIX_ROOT - 1)