# HG changeset patch
# User Paul Boddie <paul@boddie.org.uk>
# Date 1635807888 -3600
# Node ID f57be963049fa457db6f3a8fda3990d1bf5ffc67
# Parent  d697508a12c0afbfaed617ba10a209bd7cef4e76
Support two tag bits and employ proper testing of tag values.

diff -r d697508a12c0 -r f57be963049f templates/types.h
--- a/templates/types.h	Sun Oct 31 01:01:10 2021 +0200
+++ b/templates/types.h	Tue Nov 02 00:04:48 2021 +0100
@@ -122,9 +122,10 @@
 
 /* Attribute interpretation. */
 
-#define __NUM_TAG_BITS      1
-#define __TAG_INT           0b1
-#define __INTEGER(ATTR)     ((ATTR).intvalue & __TAG_INT)
+#define __NUM_TAG_BITS      2
+#define __TAG_INT           0b01
+#define __TAG_MASK          0b11
+#define __INTEGER(ATTR)     (((ATTR).intvalue & __TAG_MASK) == __TAG_INT)
 
 /* Attribute value setting. */