From: Per Bothner <bothner@gcc.gnu.org>
Date: Wed, 15 Feb 1995 06:41:25 +0000 (-0800)
Subject: varasm.c (const_hash): Add support for SET_TYPE constructors.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=474bda6c46cd9bc40c35f8c7220a88f9587aa354;p=gcc.git

varasm.c (const_hash): Add support for SET_TYPE constructors.

* varasm.c (const_hash):  Add support for SET_TYPE constructors.
(record_constant_1), (copy_constant):  Likewise.
(output_constant):  Likewise.  (Also SET_TYPE INTEGER_CSTs.)

From-SVN: r8955
---

diff --git a/gcc/varasm.c b/gcc/varasm.c
index 9091023ff4c..42cde912aa7 100644
--- a/gcc/varasm.c
+++ b/gcc/varasm.c
@@ -2149,6 +2149,12 @@ const_hash (exp)
   else if (code == COMPLEX_CST)
     return const_hash (TREE_REALPART (exp)) * 5
       + const_hash (TREE_IMAGPART (exp));
+  else if (code == CONSTRUCTOR && TREE_CODE (TREE_TYPE (exp)) == SET_TYPE)
+    {
+      len = int_size_in_bytes (TREE_TYPE (exp));
+      p = (char*) alloca (len);
+      get_set_constructor_bytes (exp, (unsigned char *) p, len);
+    }
   else if (code == CONSTRUCTOR)
     {
       register tree link;
@@ -2274,6 +2280,12 @@ compare_constant_1 (exp, p)
       p = compare_constant_1 (TREE_IMAGPART (exp), p);
       return p;
     }
+  else if (code == CONSTRUCTOR && TREE_CODE (TREE_TYPE (exp)) == SET_TYPE)
+    {
+      len = int_size_in_bytes (TREE_TYPE (exp));
+      strp = (char*) alloca (len);
+      get_set_constructor_bytes (exp, (unsigned char *) strp, len);
+    }
   else if (code == CONSTRUCTOR)
     {
       register tree link;
@@ -2418,6 +2430,16 @@ record_constant_1 (exp)
       record_constant_1 (TREE_IMAGPART (exp));
       return;
     }
+  else if (code == CONSTRUCTOR && TREE_CODE (TREE_TYPE (exp)) == SET_TYPE)
+    {
+      int nbytes = int_size_in_bytes (TREE_TYPE (exp));
+      obstack_grow (&permanent_obstack, &nbytes, sizeof (nbytes));
+      obstack_blank (&permanent_obstack, nbytes);
+      get_set_constructor_bytes (exp,
+				 (unsigned char *) permanent_obstack.next_free,
+				 nbytes);
+      return;
+    }
   else if (code == CONSTRUCTOR)
     {
       register tree link;
@@ -2573,6 +2595,9 @@ copy_constant (exp)
 	CONSTRUCTOR_ELTS (copy) = list;
 	for (tail = list; tail; tail = TREE_CHAIN (tail))
 	  TREE_VALUE (tail) = copy_constant (TREE_VALUE (tail));
+	if (TREE_CODE (TREE_TYPE (exp)) == SET_TYPE)
+	  for (tail = list; tail; tail = TREE_CHAIN (tail))
+	    TREE_PURPOSE (tail) = copy_constant (TREE_PURPOSE (tail));
 
 	return copy;
       }
@@ -3489,6 +3514,22 @@ output_constant (exp, size)
       else
 	abort ();
       return;
+
+    case SET_TYPE:
+      if (TREE_CODE (exp) == INTEGER_CST)
+	assemble_integer (expand_expr (exp, NULL_RTX,
+				       VOIDmode, EXPAND_INITIALIZER),
+			  byte_size, 1);
+      else if (TREE_CODE (exp) == CONSTRUCTOR)
+	{
+	  unsigned char *buffer = (unsigned char *) alloca (byte_size);
+	  if (get_set_constructor_bytes (constructor, buffer, byte_size))
+	    abort ();
+	  assemble_string (buffer, byte_size);
+	}
+      else
+	error ("unknown set constructor type");
+      return;
     }
 
   if (size > 0)