vm: Tweak Factor VM to compile with Microsoft Visual Studio on Windows, in addition...

[factor.git] / vm / compaction.cpp

diff --git a/vm/compaction.cpp b/vm/compaction.cpp
index 7a062998a748628cd9f64fdcb5e8d3ff0f8d6ab5..240a725a08aab91ee9ce163fbd76516c5f44f7bf 100644 (file)
--- a/vm/compaction.cpp
+++ b/vm/compaction.cpp
@@ -168,7 +168,7 @@ void factor_vm::update_code_roots_for_compaction()
        for(; iter < end; iter++)
        {
                code_root *root = *iter;
-               code_block *block = (code_block *)(root->value & -data_alignment);
+               code_block *block = (code_block *)(root->value & (~data_alignment + 1));
 
                /* Offset of return address within 16-byte allocation line */
                cell offset = root->value - (cell)block;