From d4e45dc26048ab864a9d281db742e47645ff4390 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Fri, 6 Oct 2017 22:40:28 +0900
Subject: [PATCH] avoid left shifts for string cursors

---
 include/chibi/sexp.h | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h
index bf241634..50250479 100755
--- a/include/chibi/sexp.h
+++ b/include/chibi/sexp.h
@@ -824,8 +824,13 @@ SEXP_API int sexp_idp(sexp x);
 #define SEXP_TEN     sexp_make_fixnum(10)
 
 #if SEXP_USE_DISJOINT_STRING_CURSORS
+#if SEXP_USE_SIGNED_SHIFTS
 #define sexp_make_string_cursor(n)    ((sexp) ((((sexp_sint_t)(n))<<SEXP_STRING_CURSOR_BITS) + SEXP_STRING_CURSOR_TAG))
 #define sexp_unbox_string_cursor(n)   (((sexp_sint_t)(n))>>SEXP_STRING_CURSOR_BITS)
+#else
+#define sexp_make_string_cursor(n)    ((sexp) ((((sexp_sint_t)(n))*(sexp_sint_t)(1uL<<SEXP_STRING_CURSOR_BITS)) | SEXP_STRING_CURSOR_TAG))
+#define sexp_unbox_string_cursor(n)   (((sexp_sint_t)((sexp_uint_t)(n) & ~SEXP_STRING_CURSOR_TAG))/(sexp_sint_t)(1uL<<SEXP_STRING_CURSOR_BITS))
+#endif
 #define sexp_string_cursor_to_fixnum(n) sexp_make_fixnum(sexp_unbox_string_cursor(n))
 #define sexp_fixnum_to_string_cursor(n) sexp_make_string_cursor(sexp_unbox_fixnum(n))
 #else