From 394bee60e90acca7ec74556b809179fb81ec61f2 Mon Sep 17 00:00:00 2001
From: gdr <gdr@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 25 Jul 2003 10:27:43 +0000
Subject: [PATCH] * objc/objc-act.c (objc_check_decl): Don't use
xxx_with_decl. (objc_declare_class): Likewise.
(error_with_ivar): Likewise. (start_class): Likewise.
(warn_with_method): Likewise.
java/
* expr.c (expand_java_field_op): Don't use xxx_with_decl
(expand_java_field_op): Likewise.
* class.c (layout_class_method): Likewise
(emit_register_classes): Likewise.
* decl.c (pushdecl): Likewise.
(poplevel): Likewise.
(force_poplevels): Likewise.
(give_name_to_locals): Likewise.
* check-init.c (check_for_initialization): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@69780 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/ChangeLog | 8 ++++++++
gcc/java/ChangeLog | 12 ++++++++++++
gcc/java/check-init.c | 3 ++-
gcc/java/class.c | 8 ++++----
gcc/java/decl.c | 20 ++++++++++++--------
gcc/java/expr.c | 12 +++++++-----
gcc/objc/objc-act.c | 9 ++++++---
7 files changed, 51 insertions(+), 21 deletions(-)
diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 5c90a76b3710..d9227f060455 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,11 @@
+2003-07-25 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * objc/objc-act.c (objc_check_decl): Don't use xxx_with_decl.
+ (objc_declare_class): Likewise.
+ (error_with_ivar): Likewise.
+ (start_class): Likewise.
+ (warn_with_method): Likewise.
+
2003-07-25 Gabriel Dos Reis <gdr@integrable-solutions.net>
Remove pedwarn_with_decl, warning_with_decl and error_with_decl
diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index 7aa7f12abffb..1de47fe43293 100644
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,15 @@
+2003-07-25 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * expr.c (expand_java_field_op): Don't use xxx_with_decl
+ (expand_java_field_op): Likewise.
+ * class.c (layout_class_method): Likewise
+ (emit_register_classes): Likewise.
+ * decl.c (pushdecl): Likewise.
+ (poplevel): Likewise.
+ (force_poplevels): Likewise.
+ (give_name_to_locals): Likewise.
+ * check-init.c (check_for_initialization): Likewise.
+
2003-07-24 Jason Merrill <jason@redhat.com>
* java-tree.h: Move boolean_type_node et al to the back end.
diff --git a/gcc/java/check-init.c b/gcc/java/check-init.c
index 82b14b57cfc8..c2272a80b8fc 100644
--- a/gcc/java/check-init.c
+++ b/gcc/java/check-init.c
@@ -977,7 +977,8 @@ check_for_initialization (tree body, tree mdecl)
if (index >= 0 && ! ASSIGNED_P (before, index))
{
if (! is_finit_method)
- error_with_decl (decl, "final field '%s' may not have been initialized");
+ error ("%Hfinal field '%D' may not have been initialized",
+ &DECL_SOURCE_LOCATION (decl), decl);
}
else if (is_finit_method)
DECL_FIELD_FINAL_IUD (decl) = 1;
diff --git a/gcc/java/class.c b/gcc/java/class.c
index a4278efa0c02..582183dcc4a4 100644
--- a/gcc/java/class.c
+++ b/gcc/java/class.c
@@ -1211,8 +1211,8 @@ get_dispatch_table (tree type, tree this_class_addr)
if (METHOD_ABSTRACT (method))
{
if (! abstract_p)
- warning_with_decl (method,
- "abstract method in non-abstract class");
+ warning ("%Habstract method in non-abstract class",
+ &DECL_SOURCE_FILE (method));
if (TARGET_VTABLE_USES_DESCRIPTORS)
for (j = 0; j < TARGET_VTABLE_USES_DESCRIPTORS; ++j)
@@ -1927,8 +1927,8 @@ layout_class_method (tree this_class, tree super_class,
DECL_VINDEX (method_decl) = DECL_VINDEX (super_method);
if (DECL_VINDEX (method_decl) == NULL_TREE
&& !CLASS_FROM_SOURCE_P (this_class))
- error_with_decl (method_decl,
- "non-static method '%s' overrides static method");
+ error ("%Hnon-static method '%D' overrides static method",
+ &DECL_SOURCE_LOCATION (method_decl), method_decl);
}
else if (! METHOD_FINAL (method_decl)
&& ! METHOD_PRIVATE (method_decl)
diff --git a/gcc/java/decl.c b/gcc/java/decl.c
index 2737463eca00..d1c5b5cc657f 100644
--- a/gcc/java/decl.c
+++ b/gcc/java/decl.c
@@ -1022,7 +1022,8 @@ pushdecl (tree x)
/* error_mark_node is 0 for a while during initialization! */
{
t = 0;
- error_with_decl (x, "`%s' used prior to declaration");
+ error ("%H'%D' used prior to declaration",
+ &DECL_SOURCE_LOCATION (x), x);
}
if (t != 0)
@@ -1364,12 +1365,14 @@ poplevel (int keep, int reverse, int functionbody)
if (DECL_INITIAL (label) == 0)
{
- error_with_decl (label, "label `%s' used but not defined");
+ error ("%Hlabel '%D' used but not defined",
+ &DECL_SOURCE_LOCATION (label), label);
/* Avoid crashing later. */
define_label (input_location, DECL_NAME (label));
}
else if (warn_unused[UNUSED_LABEL] && !TREE_USED (label))
- warning_with_decl (label, "label `%s' defined but not used");
+ warning ("%Hlabel '%D' defined but not used",
+ &DECL_SOURCE_LOCATION (label), label);
IDENTIFIER_LABEL_VALUE (DECL_NAME (label)) = 0;
/* Put the labels into the "variables" of the
@@ -1497,9 +1500,10 @@ force_poplevels (int start_pc)
while (current_binding_level->start_pc > start_pc)
{
if (pedantic && current_binding_level->start_pc > start_pc)
- warning_with_decl (current_function_decl,
- "In %s: overlapped variable and exception ranges at %d",
- current_binding_level->start_pc);
+ warning (current_function_decl,
+ "%HIn %D: overlapped variable and exception ranges at %d",
+ &DECL_SOURCE_LOCATION (current_function_decl),
+ current_function_decl, current_binding_level->start_pc);
expand_end_bindings (getdecls (), 1, 0);
poplevel (1, 0, 0);
}
@@ -1584,8 +1588,8 @@ give_name_to_locals (JCF *jcf)
tree decl = build_decl (VAR_DECL, name, type);
if (end_pc > DECL_CODE_LENGTH (current_function_decl))
{
- warning_with_decl (decl,
- "bad PC range for debug info for local `%s'");
+ warning ("%Hbad PC range for debug info for local '%D'",
+ &DECL_SOURCE_LOCATION (decl), decl);
end_pc = DECL_CODE_LENGTH (current_function_decl);
}
diff --git a/gcc/java/expr.c b/gcc/java/expr.c
index 5cf855c82435..7710008fc280 100644
--- a/gcc/java/expr.c
+++ b/gcc/java/expr.c
@@ -2334,20 +2334,22 @@ expand_java_field_op (int is_static, int is_putting, int field_ref_index)
if (FIELD_FINAL (field_decl))
{
if (DECL_CONTEXT (field_decl) != current_class)
- error_with_decl (field_decl,
- "assignment to final field `%s' not in field's class");
+ error ("%Hassignment to final field '%D' not in field's class",
+ &DECL_SOURCE_LOCATION (field_decl), field_decl);
else if (FIELD_STATIC (field_decl))
{
if (!DECL_CLINIT_P (current_function_decl))
- warning_with_decl (field_decl,
- "assignment to final static field `%s' not in class initializer");
+ warning ("assignment to final static field `%s' not in "
+ "class initializer",
+ &DECL_SOURCE_LOCATION (field_decl), field_decl);
}
else
{
tree cfndecl_name = DECL_NAME (current_function_decl);
if (! DECL_CONSTRUCTOR_P (current_function_decl)
&& !ID_FINIT_P (cfndecl_name))
- warning_with_decl (field_decl, "assignment to final field `%s' not in constructor");
+ warning ("%Hassignment to final field '%D' not in constructor",
+ &DECL_SOURCE_LOCATION (field_decl), field_decl);
}
}
expand_assignment (field_ref, new_value, 0);
diff --git a/gcc/objc/objc-act.c b/gcc/objc/objc-act.c
index 4112f6369ab8..e5d6e520f161 100644
--- a/gcc/objc/objc-act.c
+++ b/gcc/objc/objc-act.c
@@ -915,7 +915,8 @@ objc_check_decl (decl)
if (TREE_CODE (type) == RECORD_TYPE
&& TREE_STATIC_TEMPLATE (type)
&& type != constant_string_type)
- error_with_decl (decl, "`%s' cannot be statically allocated");
+ error ("%H'%D' cannot be statically allocated",
+ &DECL_SOURCE_LOCATION (decl), decl);
}
/* Implement static typing. At this point, we know we have an interface. */
@@ -2370,7 +2371,8 @@ objc_declare_class (ident_list)
{
error ("`%s' redeclared as different kind of symbol",
IDENTIFIER_POINTER (ident));
- error_with_decl (decl, "previous declaration of `%s'");
+ error ("%Hprevious declaration of '%D'",
+ &DECL_SOURCE_LOCATION (decl), decl);
}
if (! is_class_name (ident))
@@ -6116,7 +6118,8 @@ start_class (code, class_name, super_name, protocol_list)
{
error ("`%s' redeclared as different kind of symbol",
IDENTIFIER_POINTER (class_name));
- error_with_decl (decl, "previous declaration of `%s'");
+ error ("%Hprevious declaration of '%D'",
+ &DECL_SOURCE_LOCATION (decl), decl);
}
if (code == CLASS_IMPLEMENTATION_TYPE)
--
GitLab