Update Win64 support

[factor.git] / vm / instruction_operands.hpp

diff --git a/vm/instruction_operands.hpp b/vm/instruction_operands.hpp
index d46b5cf3913c35a9a4c75f88c1774783218e4f08..dc8aa9d841d24a2f47b275a29aaa5b1ef61565f6 100644 (file)
--- a/vm/instruction_operands.hpp
+++ b/vm/instruction_operands.hpp
@@ -69,7 +69,7 @@ struct relocation_entry {
                relocation_class rel_class,
                cell offset)
        {
-               value = (rel_type << 28) | (rel_class << 24) | offset;
+               value = (u32)((rel_type << 28) | (rel_class << 24) | offset);
        }
 
        relocation_type rel_type()