# HG changeset patch
# User Paul Boddie <paul@boddie.org.uk>
# Date 1636156563 -3600
# Node ID 7124e454ce1677d44e700f4d65f4368bc3d76fbf
# Parent  8fa2b54e892c542bda8827da0a0a082c9ebba98c
Removed superfluous tagging definitions.

diff -r 8fa2b54e892c -r 7124e454ce16 templates/native/identity.c
--- a/templates/native/identity.c	Fri Nov 05 01:17:14 2021 +0100
+++ b/templates/native/identity.c	Sat Nov 06 00:56:03 2021 +0100
@@ -28,15 +28,11 @@
 
 __attr __fn_native_identity_is_(__attr __self, __attr x, __attr y)
 {
-    /* NOTE: value member assumed equivalent to rawvalue for comparison. */
-
     return x.value == y.value ? __builtins___boolean_True : __builtins___boolean_False;
 }
 
 __attr __fn_native_identity_is_not(__attr __self, __attr x, __attr y)
 {
-    /* NOTE: value member assumed equivalent to rawvalue for comparison. */
-
     return x.value != y.value ? __builtins___boolean_True : __builtins___boolean_False;
 }
 
diff -r 8fa2b54e892c -r 7124e454ce16 templates/types.h
--- a/templates/types.h	Fri Nov 05 01:17:14 2021 +0100
+++ b/templates/types.h	Sat Nov 06 00:56:03 2021 +0100
@@ -87,7 +87,6 @@
     /* General attribute members. */
 
     __ref value;                /* attribute value */
-    uintptr_t rawvalue;         /* raw attribute value used to test tagging */
 
     /* Special case attribute members. */
 
@@ -128,18 +127,6 @@
 
 #define __FRAGMENT_SIZE(NUMBER) ((NUMBER) * sizeof(__attr) + 2 * sizeof(__int))
 
-/* Attribute interpretation. */
-
-#define __NUM_TAG_BITS      2
-#define __TAG_INT           0b01
-#define __TAG_FLOAT         0b10
-#define __TAG_MASK          0b11
-
-#if 0
-#define __INTEGER(ATTR)     (((ATTR).rawvalue & __TAG_MASK) == __TAG_INT)
-#define __FLOAT(ATTR)       (((ATTR).rawvalue & __TAG_MASK) == __TAG_FLOAT)
-#endif
-
 /* Attribute value setting. */
 
 #define __ATTRVALUE(VALUE)  ((__attr) {.value=(__ref) VALUE})