VM: cast to fixnum looks suspicious

diff --git a/vm/mark_bits.hpp b/vm/mark_bits.hpp
index efd66b339c34f0fc5811cc233f015ffdcb7f25fc..e86290f320152819860e0cddf6ef12e7689e586f 100644 (file)
--- a/vm/mark_bits.hpp
+++ b/vm/mark_bits.hpp
@@ -112,7 +112,7 @@ struct mark_bits {
     cell bit_index = position.second;
 
     for (cell index = position.first; index < bits_size; index++) {
-      cell mask = ((fixnum)marked[index] >> bit_index);
+      cell mask = marked[index] >> bit_index;
       if (~mask) {
         // Found an unmarked block on this page. Stop, it's hammer time
         cell clear_bit = rightmost_clear_bit(mask);
@@ -132,7 +132,7 @@ struct mark_bits {
     cell bit_index = position.second;
 
     for (cell index = position.first; index < bits_size; index++) {
-      cell mask = (marked[index] >> bit_index);
+      cell mask = marked[index] >> bit_index;
       if (mask) {
         // Found an marked block on this page. Stop, it's hammer time
         cell set_bit = rightmost_set_bit(mask);