From 3bbeea9db170d9584c61c27a59135648aaeff284 Mon Sep 17 00:00:00 2001 From: brolley Date: Tue, 4 May 1999 11:56:26 +0000 Subject: [PATCH] Tue May 4 14:52:53 1999 Dave Brolley * actions.c (chill_expand_assignment): Use powersetlen to calculate the length of an array of packed bits. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26767 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ch/ChangeLog | 5 +++++ gcc/ch/actions.c | 6 +----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog index 686c321..a4a0710 100644 --- a/gcc/ch/ChangeLog +++ b/gcc/ch/ChangeLog @@ -1,3 +1,8 @@ +Tue May 4 14:52:53 1999 Dave Brolley + + * actions.c (chill_expand_assignment): Use powersetlen to calculate the + length of an array of packed bits. + Tue Apr 20 23:37:01 1999 Nathan Sidwell * Make-lang.in (ch/chill.info): Put MAKEINFO parameters in correct diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c index 132dbd0..4104ce7 100644 --- a/gcc/ch/actions.c +++ b/gcc/ch/actions.c @@ -1706,11 +1706,7 @@ chill_expand_assignment (lhs, modifycode, rhs) tree from_pos = save_expr (TREE_OPERAND (lhs, 1)); tree array = TREE_OPERAND (lhs, 0); tree domain = TYPE_DOMAIN (TREE_TYPE (array)); - tree array_length = size_binop (PLUS_EXPR, - size_binop (MINUS_EXPR, - TYPE_MAX_VALUE (domain), - TYPE_MIN_VALUE (domain)), - integer_one_node); + tree array_length = powersetlen (array); tree filename = force_addr_of (get_chill_filename()); expand_expr_stmt ( build_chill_function_call (lookup_name ( -- 2.7.4