From: Cat Stevens <catb0t@protonmail.ch>
Date: Sat, 27 Jan 2018 18:05:07 +0000 (-0500)
Subject: cast fixes undefined behaviour; closes #1919 in upstream
X-Git-Tag: 0.98~381
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=21cb42edf3d91a4be40af5c79cfc1d53e3a0abff

cast fixes undefined behaviour; closes #1919 in upstream
---

diff --git a/vm/layouts.hpp b/vm/layouts.hpp
index 7975f4ca92..e60201ed5d 100644
--- a/vm/layouts.hpp
+++ b/vm/layouts.hpp
@@ -104,7 +104,7 @@ inline static fixnum untag_fixnum(cell tagged) {
 }
 
 inline static cell tag_fixnum(fixnum untagged) {
-  return (untagged << TAG_BITS) | FIXNUM_TYPE;
+  return ( (cell)untagged << TAG_BITS) | FIXNUM_TYPE;
 }
 
 #define NO_TYPE_CHECK static const cell type_number = TYPE_COUNT