From: Guillermo J. Rozas Date: Sat, 29 Aug 1992 12:57:38 +0000 (+0000) Subject: Fix word size problem manifested on Alpha: X-Git-Tag: 20090517-FFI~9046 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=805c15330c36e1095133cba42d6c7ef75912e51c;p=mit-scheme.git Fix word size problem manifested on Alpha: 1 -> 1L --- diff --git a/v7/src/microcode/bitstr.h b/v7/src/microcode/bitstr.h index 6714d3091..f75702150 100644 --- a/v7/src/microcode/bitstr.h +++ b/v7/src/microcode/bitstr.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.h,v 1.7 1990/04/12 21:12:22 jinx Rel $ +$Id: bitstr.h,v 1.8 1992/08/29 12:57:38 jinx Exp $ -Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology +Copyright (c) 1987-1992 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -40,7 +40,7 @@ MIT in each case. */ #define BIT_STRING_LENGTH_TO_GC_LENGTH(bits) \ (((bits) + (OBJECT_LENGTH - 1)) / OBJECT_LENGTH) -#define LOW_MASK(nbits) ((1 << (nbits)) - 1) +#define LOW_MASK(nbits) ((1L << (nbits)) - 1) #define ANY_MASK(nbits, offset) ((LOW_MASK (nbits)) << (offset)) #define BIT_STRING_LENGTH(bit_string) \