SmallInteger.st
changeset 19265 00b7f10969d7
parent 19264 11160ea2c8b3
child 19278 00ed0917a8a0
child 19317 18904be01e63
--- a/SmallInteger.st	Sat Feb 27 22:26:31 2016 +0100
+++ b/SmallInteger.st	Sat Feb 27 22:33:18 2016 +0100
@@ -2855,7 +2855,7 @@
     INT i = __intVal(self);
 
     if (i & 0x800000L) {
-	i = i | ~0xFFFFFFL;
+	i = i | ~((INT)0xFFFFFF);
     } else {
 	i = i & 0x7FFFFF;
     }
@@ -2881,7 +2881,7 @@
     INT i = __intVal(self);
 
     if (i & 0x80) {
-	i = i | ~0xFFL;
+	i = i | ~((INT)0xFF);
     } else {
 	i = i & 0x7F;
     }
@@ -2907,7 +2907,7 @@
     INT i = __intVal(self);
 
     if (i & 0x80000000L) {
-	i = i | ~0xFFFFFFFFL;
+	i = i | ~((INT)0xFFFFFFFF);
     } else {
 	i = i & 0x7FFFFFFFL;
     }
@@ -2933,7 +2933,7 @@
     INT i = __intVal(self);
 
     if (i & 0x8000) {
-	i = i | ~0xFFFFL;
+	i = i | ~((INT)0xFFFF);
     } else {
 	i = i & 0x7FFF;
     }