From 3a21922e3716b39b076025745de1a88b36fd54f8 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 25 May 2014 23:49:01 +0100
Subject: [PATCH] fix 32 bit operations

---
 H/Tags_32LowTag.h | 5 ++---
 H/Tags_32Ops.h    | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/H/Tags_32LowTag.h b/H/Tags_32LowTag.h
index d6dbc1608..f54202a72 100644
--- a/H/Tags_32LowTag.h
+++ b/H/Tags_32LowTag.h
@@ -14,7 +14,7 @@
 * version:      $Id: Tags_32LowTag.h,v 1.4 2008-01-30 10:35:43 vsc Exp $	 *
 *************************************************************************/
 
-#if FALSE /* not in use */
+#if SIZEOF_INT_P==4 && USE_LOW32_TAGS
 
 #define TAG_LOW_BITS_32 1
 
@@ -199,6 +199,5 @@ IntOfTerm (Term t)
   return (Int) (((Int) (t << 1)) >> (SHIFT_LOW_TAG + SHIFT_HIGH_TAG + 1));
 }
 
-#endif /* currently not in use */
-
+#endif
 
diff --git a/H/Tags_32Ops.h b/H/Tags_32Ops.h
index 6c014d3f3..848093cad 100644
--- a/H/Tags_32Ops.h
+++ b/H/Tags_32Ops.h
@@ -49,7 +49,7 @@ are now 1 in compound terms and structures.
 
 */
 
-#if SIZEOF_INT_P==4
+#if SIZEOF_INT_P==4 && !defined(USE_LOW32_TAGS)
 
 #define TAGS_FAST_OPS 1