aboutsummaryrefslogtreecommitdiff
path: root/gcc/java/parse.y
diff options
context:
space:
mode:
authorTom Tromey <tromey@redhat.com>2001-04-07 19:54:52 +0000
committerTom Tromey <tromey@gcc.gnu.org>2001-04-07 19:54:52 +0000
commit10e2af3886c768ad8287dc4fa2548f674e1eeb9e (patch)
treed57cd7f984505d1ae8545ffaec1be8b2c0b910ab /gcc/java/parse.y
parent11e1e8b60b3d52b47ebbf081493b78a1de1d9113 (diff)
downloadgcc-10e2af3886c768ad8287dc4fa2548f674e1eeb9e.zip
gcc-10e2af3886c768ad8287dc4fa2548f674e1eeb9e.tar.gz
gcc-10e2af3886c768ad8287dc4fa2548f674e1eeb9e.tar.bz2
Fix for PR gcj/1404 and PR gcj/2332:
2001-04-06 Tom Tromey <tromey@redhat.com> Alexandre Petit-Bianco <apbianco@redhat.com> Fix for PR gcj/1404 and PR gcj/2332: * parse.y (build_array_from_name): If we use the type_wfl then accumulate dimensions from the original type as well. (build_unresolved_array_type): Don't modify TYPE_OR_WFL in place. Co-Authored-By: Alexandre Petit-Bianco <apbianco@redhat.com> From-SVN: r41178
Diffstat (limited to 'gcc/java/parse.y')
-rw-r--r--gcc/java/parse.y17
1 files changed, 14 insertions, 3 deletions
diff --git a/gcc/java/parse.y b/gcc/java/parse.y
index c0b9100..5bddc10 100644
--- a/gcc/java/parse.y
+++ b/gcc/java/parse.y
@@ -3255,6 +3255,8 @@ build_array_from_name (type, type_wfl, name, ret_name)
/* If we have, then craft a new type for this variable */
if (more_dims)
{
+ tree save = type;
+
name = get_identifier (&string [more_dims]);
/* If we have a pointer, use its type */
@@ -3273,7 +3275,14 @@ build_array_from_name (type, type_wfl, name, ret_name)
is already an array on an unresolved type, and we just keep
on adding dimensions) */
else if (type_wfl)
- type = type_wfl;
+ {
+ int i = 0;
+ type = type_wfl;
+ string = IDENTIFIER_POINTER (TYPE_NAME (save));
+ while (string[i] == '[')
+ ++i;
+ more_dims += i;
+ }
/* Add all the dimensions */
while (more_dims--)
@@ -3313,8 +3322,10 @@ build_unresolved_array_type (type_or_wfl)
IDENTIFIER_POINTER (EXPR_WFL_NODE (type_or_wfl)),
IDENTIFIER_LENGTH (EXPR_WFL_NODE (type_or_wfl)));
ptr = obstack_finish (&temporary_obstack);
- EXPR_WFL_NODE (type_or_wfl) = get_identifier (ptr);
- return type_or_wfl;
+ return build_expr_wfl (get_identifier (ptr),
+ EXPR_WFL_FILENAME (type_or_wfl),
+ EXPR_WFL_LINENO (type_or_wfl),
+ EXPR_WFL_COLNO (type_or_wfl));
}
static void