Remove uses of UL. Non-ANSI compilers (e.g. SunOS) can't handle it.

diff --git a/v7/src/microcode/bignmint.h b/v7/src/microcode/bignmint.h
index ebd9fa0406090c4e899a89853d1fb7ab04d6e86c..161d3fc593a8350f8f89e719b17d8ac177811832 100644 (file)
--- a/v7/src/microcode/bignmint.h
+++ b/v7/src/microcode/bignmint.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bignmint.h,v 1.3 1993/06/24 07:07:01 gjr Exp $
+$Id: bignmint.h,v 1.4 1993/10/27 23:57:07 gjr Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -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            (1UL << BIGNUM_DIGIT_LENGTH)
-#define BIGNUM_RADIX_ROOT       (1UL << BIGNUM_HALF_DIGIT_LENGTH)
+#define BIGNUM_RADIX (((unsigned long) 1) << BIGNUM_DIGIT_LENGTH)
+#define BIGNUM_RADIX_ROOT (((unsigned long) 1) << BIGNUM_HALF_DIGIT_LENGTH)
 #define BIGNUM_DIGIT_MASK       (BIGNUM_RADIX - 1)
 #define BIGNUM_HALF_DIGIT_MASK  (BIGNUM_RADIX_ROOT - 1)
 

diff --git a/v7/src/microcode/prim.c b/v7/src/microcode/prim.c
index 94a922df08351e98ec03c9c64e9e6ed167c3b412..03b081aaeb2f4a5b1cdf28b8e77be0b9e883cbe7 100644 (file)
--- a/v7/src/microcode/prim.c
+++ b/v7/src/microcode/prim.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prim.c,v 9.36 1993/06/24 07:09:17 gjr Exp $
+$Id: prim.c,v 9.37 1993/10/27 23:55:26 gjr Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -76,7 +76,8 @@ Assert: (= (OBJECT-DATUM (MAKE-NON-POINTER-OBJECT X)) X).")
 {
   PRIMITIVE_HEADER (1);
   PRIMITIVE_RETURN
-    (LONG_TO_UNSIGNED_FIXNUM (arg_index_integer (1, (1UL << DATUM_LENGTH))));
+    (LONG_TO_UNSIGNED_FIXNUM
+     (arg_index_integer (1, (((unsigned long) 1) << DATUM_LENGTH))));
 }
 
 DEFINE_PRIMITIVE ("PRIMITIVE-OBJECT-SET-TYPE", Prim_prim_obj_set_type, 2, 2,