typeck.c (java_array_type_length, [...]): Represent empty arrays by NULL index.

* java/typeck.c (java_array_type_length, build_prim_array_type):
        Represent empty arrays by NULL index.

        * stor-layout.c (compute_record_mode): Check DECL_SIZE is set.

From-SVN: r45460
This commit is contained in:
Matt Kraai 2001-09-07 08:54:32 +00:00 committed by Richard Henderson
parent b5f2093196
commit 6a9f67271e
4 changed files with 25 additions and 6 deletions

View File

@ -1,3 +1,7 @@
2001-09-07 Matt Kraai <kraai@alumni.carnegiemellon.edu>
* stor-layout.c (compute_record_mode): Check DECL_SIZE is set.
2001-09-06 Ira Ruben <ira@apple.com>
Remove OP_IDENTIFIER.

View File

@ -1,3 +1,8 @@
2001-09-07 Matt Kraai <kraai@alumni.carnegiemellon.edu>
* typeck.c (java_array_type_length, build_prim_array_type):
Represent empty arrays by NULL index.
2001-09-06 Anthony Green <green@redhat.com>
* class.c (O_BINARY): Define if necessary.

View File

@ -353,9 +353,12 @@ java_array_type_length (array_type)
if (arfld != NULL_TREE)
{
tree index_type = TYPE_DOMAIN (TREE_TYPE (arfld));
tree high = TYPE_MAX_VALUE (index_type);
if (TREE_CODE (high) == INTEGER_CST)
return TREE_INT_CST_LOW (high) + 1;
if (index_type != NULL_TREE)
{
tree high = TYPE_MAX_VALUE (index_type);
if (TREE_CODE (high) == INTEGER_CST)
return TREE_INT_CST_LOW (high) + 1;
}
}
return -1;
}
@ -370,9 +373,15 @@ build_prim_array_type (element_type, length)
tree element_type;
HOST_WIDE_INT length;
{
tree max_index = build_int_2 (length - 1, (0 == length ? -1 : 0));
TREE_TYPE (max_index) = sizetype;
return build_array_type (element_type, build_index_type (max_index));
tree index = NULL;
if (length != -1)
{
tree max_index = build_int_2 (length - 1, (0 == length ? -1 : 0));
TREE_TYPE (max_index) = sizetype;
index = build_index_type (max_index);
}
return build_array_type (element_type, index);
}
/* Return a Java array type with a given ELEMENT_TYPE and LENGTH.

View File

@ -1110,6 +1110,7 @@ compute_record_mode (type)
|| (TYPE_MODE (TREE_TYPE (field)) == BLKmode
&& ! TYPE_NO_FORCE_BLK (TREE_TYPE (field)))
|| ! host_integerp (bit_position (field), 1)
|| DECL_SIZE (field) == 0
|| ! host_integerp (DECL_SIZE (field), 1))
return;