[MLton-commit] r5841

[Matthew Fluet]

Formatting and qualifier
----------------------------------------------------------------------

U   mlton/trunk/runtime/gc/int-inf.c

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/gc/int-inf.c
===================================================================
--- mlton/trunk/runtime/gc/int-inf.c	2007-08-09 20:28:13 UTC (rev 5840)
+++ mlton/trunk/runtime/gc/int-inf.c	2007-08-09 21:46:09 UTC (rev 5841)
@@ -18,7 +18,7 @@
 }
 
 static inline bool areSmall (objptr arg1, objptr arg2) {
-  return (arg1 & arg2 & (objptr)1);
+  return ((arg1 & arg2) & (objptr)1);
 }
 
 /*
@@ -54,7 +54,7 @@
     if (arg == (objptr)1) {
       res->_mp_size = 0;
     } else {
-      objptr highBitMask = (objptr)1 << (CHAR_BIT * OBJPTR_SIZE - 1);
+      const objptr highBitMask = (objptr)1 << (CHAR_BIT * OBJPTR_SIZE - 1);
       bool neg = (arg & highBitMask) != (objptr)0;
       if (neg) {
         res->_mp_size = - (mp_size_t)LIMBS_PER_OBJPTR;