fixed a minor bug in cstoper.c: computation of mach_long_sign was wrong

diff --git a/lang/m2/comp/cstoper.c b/lang/m2/comp/cstoper.c
index c5ed847..6785c3c 100644 (file)
--- a/lang/m2/comp/cstoper.c
+++ b/lang/m2/comp/cstoper.c
@@ -553,13 +553,13 @@ InitCst()
                full_mask[i] = bt;
        }
        mach_long_size = i;
-       mach_long_sign = 1 << (mach_long_size * 8 - 1);
+       mach_long_sign = 1L << (mach_long_size * 8 - 1);
        if (long_size > mach_long_size) {
                fatal("sizeof (long) insufficient on this machine");
        }
 
-       max_int = full_mask[int_size] & ~(1 << (int_size * 8 - 1));
+       max_int = full_mask[int_size] & ~(1L << (int_size * 8 - 1));
        max_unsigned = full_mask[int_size];
-       max_longint = full_mask[long_size] & ~(1 << (long_size * 8 - 1));
+       max_longint = full_mask[long_size] & ~(1L << (long_size * 8 - 1));
        wrd_bits = 8 * word_size;
 }