# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1456608798 -3600
# Node ID 00b7f10969d75341723106f9016beb4f97ab71d7
# Parent  11160ea2c8b3ce3ddbe46d15d7eb98ef3667eba3
*** empty log message ***

diff -r 11160ea2c8b3 -r 00b7f10969d7 SmallInteger.st
--- 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;
     }