class.c (set_constant_value): When not emiting class files, then a String…

class.c (set_constant_value): When not emiting class files, then a String ConstantValue is a utf8const_ptr_type. * class.c (set_constant_value): When not emiting class files, then a String ConstantValue is a utf8const_ptr_type. From-SVN: r45333

class.c (set_constant_value): When not emiting class files, then a String…
class.c (set_constant_value): When not emiting class files, then a String ConstantValue is a utf8const_ptr_type. * class.c (set_constant_value): When not emiting class files, then a String ConstantValue is a utf8const_ptr_type. From-SVN: r45333
289b57ee · Per Bothner · Per Bothner · 6268b922 · 289b57ee · 289b57ee
Commit 289b57ee authored Aug 31, 2001 by Per Bothner Committed by Per Bothner Aug 31, 2001
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 2 deletions

gcc/java/ChangeLog
+5 -0

gcc/java/class.c
+4 -2

No files found.
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
+2001-08-31  Per Bothner  <per@bothner.com>
+
+	* class.c (set_constant_value):  When not emiting class files, then a
+	String ConstantValue is a utf8const_ptr_type.
+
 2001-08-30  Per Bothner  <per@bothner.com>

 	* jcf-write.c (generate_classfile):  Check that field is primitive

--- a/gcc/java/class.c
+++ b/gcc/java/class.c
@@ -780,8 +780,10 @@ set_constant_value (field, constant)
      if (TREE_TYPE (constant) != TREE_TYPE (field)
 	  && ! (TREE_TYPE (constant) == int_type_node
 		&& INTEGRAL_TYPE_P (TREE_TYPE (field))
-		&& TYPE_PRECISION (TREE_TYPE (field)) <= 32))
-	warning ("ConstantValue attribute of field '%s' has wrong type",
+		&& TYPE_PRECISION (TREE_TYPE (field)) <= 32)
+	  && ! (TREE_TYPE (constant) == utf8const_ptr_type
+		&& TREE_TYPE (field) == string_ptr_type_node))
+	error ("ConstantValue attribute of field '%s' has wrong type",
 	       IDENTIFIER_POINTER (DECL_NAME (field)));
      if (FIELD_FINAL (field))
 	DECL_FIELD_FINAL_IUD (field) = 1;