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