From 2a93dcfebf39ce77d3cfd3a180cacae8e8a5aacc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 20 Apr 2017 21:09:07 -0700 Subject: Use TAG_SHFIT instead of hard-coded 2. * arith.c (comp_trunc, logtrunc, ash): The constant 2 appears here, which corresponds to TAG_SHIFT: the number of tag bits in an int_ptr_t word. It must be replaced by TAG_SHIFT. --- arith.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/arith.c b/arith.c index 241dd56f..d22adb9b 100644 --- a/arith.c +++ b/arith.c @@ -2267,7 +2267,7 @@ static val comp_trunc(val a, val bits) cnum an, bn; val b; const cnum num_mask = (NUM_MAX << 1) | 1; - const int num_bits = CHAR_BIT * sizeof (cnum) - 2; + const int num_bits = CHAR_BIT * sizeof (cnum) - TAG_SHIFT; if (!fixnump(bits)) goto bad2; @@ -2330,7 +2330,7 @@ val logtrunc(val a, val bits) cnum an, bn; val b; const cnum num_mask = (NUM_MAX << 1) | 1; - const int num_bits = CHAR_BIT * sizeof (cnum) - 2; + const int num_bits = CHAR_BIT * sizeof (cnum) - TAG_SHIFT; if (!fixnump(bits)) goto bad2; @@ -2397,7 +2397,7 @@ val ash(val a, val bits) cnum an, bn; val b; int hb; - const int num_bits = CHAR_BIT * sizeof (cnum) - 2; + const int num_bits = CHAR_BIT * sizeof (cnum) - TAG_SHIFT; if (!fixnump(bits)) goto bad2; -- cgit v1.2.3