From: Björn Lindqvist <bjourne@gmail.com>
Date: Wed, 16 Nov 2016 04:23:54 +0000 (+0100)
Subject: Revert "VM: cast to fixnum looks suspicious"
X-Git-Tag: unmaintained~438
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=abf497938bed27ed474a7935317890884e2f55b2

Revert "VM: cast to fixnum looks suspicious"

This reverts commit 5027830b0532f4d4905f64db19ef5bb410554879.
---

diff --git a/vm/mark_bits.hpp b/vm/mark_bits.hpp
index e86290f320..efd66b339c 100644
--- 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 = marked[index] >> bit_index;
+      cell mask = ((fixnum)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);