From 34dc5bcddd8e265c38f6a292d5eb8ce6eebf092a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 Oct 1993 23:57:07 +0000 Subject: [PATCH] Remove uses of UL. Non-ANSI compilers (e.g. SunOS) can't handle it. --- v7/src/microcode/bignmint.h | 6 +++--- v7/src/microcode/prim.c | 5 +++-- 2 files changed, 6 insertions(+), 5 deletions(-) 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, -- 2.25.1