mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 05:10:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

typeck.c (build_chill_slice): Always use TYPE_DOMAIN to get the domain type of the array.

Browse Source 
Mon Sep 14 16:46:36 1998  Dave Brolley  <brolley@cygnus.com>
	* typeck.c (build_chill_slice): Always use TYPE_DOMAIN to get the
	domain type of the array.

From-SVN: r22420
This commit is contained in:
Dave Brolley 1998-09-14 14:55:10 +00:00 committed by Dave Brolley
parent e12994aba3
commit 20aa9a3576
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ch/ChangeLog
View File

@ -1,5 +1,8 @@
Mon Sep 14 16:46:36 1998 Dave Brolley <brolley@cygnus.com>
* typeck.c (build_chill_slice): Always use TYPE_DOMAIN to get the
domain type of the array.
* expr.c (build_chill_function_call): Remove redundant call to
chill_convert_to_assignment

16
gcc/ch/typeck.c
View File

@ -237,18 +237,12 @@ build_chill_slice (array, min_value, length)
if (TREE_CODE (array_type) == ARRAY_TYPE)
{
tree domain_type = TYPE_DOMAIN (array_type);
tree index_domain
= TREE_CODE (length) != INTEGER_CST || integer_zerop (length)
? sizetype
: domain_type;
tree domain_min = convert (index_domain, TYPE_MIN_VALUE (domain_type));
tree domain_max = fold (build (PLUS_EXPR, index_domain,
tree domain_min = TYPE_MIN_VALUE (domain_type);
tree domain_max = fold (build (PLUS_EXPR, domain_type,
domain_min,
convert (index_domain,
size_binop (MINUS_EXPR,
length,
integer_one_node))));
tree index_type = build_chill_range_type (domain_type,
size_binop (MINUS_EXPR,
length, integer_one_node)));
tree index_type = build_chill_range_type (TYPE_DOMAIN (array_type),
domain_min,
domain_max);