From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 23:57:07 +0000 (+0000)
Subject: Remove uses of UL.  Non-ANSI compilers (e.g. SunOS) can't handle it.
X-Git-Tag: 20090517-FFI~7661
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=34dc5bcddd8e265c38f6a292d5eb8ce6eebf092a;p=mit-scheme.git

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 ebd9fa040..161d3fc59 100644
--- 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 ();
 
 #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 94a922df0..03b081aae 100644
--- 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,