(compare_constant_1, case STRING_CST): Compare TYPE_MODE.

(record_constant_1, case STRING_CST): Record TYPE_MODE. From-SVN: r14606

(compare_constant_1, case STRING_CST): Compare TYPE_MODE.
(record_constant_1, case STRING_CST): Record TYPE_MODE. From-SVN: r14606
f163668c · Richard Kenner · 2cde2255 · f163668c
Commit f163668c authored Aug 02, 1997 by Richard Kenner
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

gcc/varasm.c
+4 -0

No files found.
--- a/gcc/varasm.c
+++ b/gcc/varasm.c
@@ -2533,6 +2533,9 @@ compare_constant_1 (exp, p)
      if (flag_writable_strings)
 	return 0;

+      if (*p++ != TYPE_MODE (TREE_TYPE (exp)))
+	return 0;
+
      strp = TREE_STRING_POINTER (exp);
      len = TREE_STRING_LENGTH (exp);
      if (bcmp ((char *) &TREE_STRING_LENGTH (exp), p,
@@ -2708,6 +2711,7 @@ record_constant_1 (exp)
      if (flag_writable_strings)
 	return;

+      obstack_1grow (&permanent_obstack, TYPE_MODE (TREE_TYPE (exp)));
      strp = TREE_STRING_POINTER (exp);
      len = TREE_STRING_LENGTH (exp);
      obstack_grow (&permanent_obstack, (char *) &TREE_STRING_LENGTH (exp),