blob: 0b380a78286836415046f2c0e1256f5b20a23326 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
$NetBSD: patch-aa,v 1.2 2007/03/13 10:55:12 drochner Exp $
--- value.h.orig 2007-02-22 20:27:04.000000000 +0100
+++ value.h
@@ -311,12 +311,12 @@ extern ValueRep ForeignRep;
* Use all but one bit to hold immediate integer values
*/
#define NICKLE_INT_BITS ((sizeof (int) * 8) - 1)
-#define NICKLE_INT_SIGN (1 << (NICKLE_INT_BITS - 1))
+#define NICKLE_INT_SIGN (1U << (NICKLE_INT_BITS - 1))
/*
* this bit holds any overflow; when different from SIGN,
* an addition/subtraction has overflowed
*/
-#define NICKLE_INT_CARRY (1 << NICKLE_INT_BITS)
+#define NICKLE_INT_CARRY (1U << NICKLE_INT_BITS)
/*
* An int fits in a 'nickle int' if the top two bits
* are the same. There are four initial values:
|