From d234235cb4cd99504dd8d9717493c1744941f125 Mon Sep 17 00:00:00 2001 From: Dave Brolley Date: Tue, 4 May 1999 11:56:26 +0000 Subject: [PATCH] actions.c (chill_expand_assignment): Use powersetlen to calculate the length of an array of packed bits. 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. From-SVN: r26767 --- 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 686c321bf5e..a4a0710839e 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 132dbd0b7e8..4104ce7a86b 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.30.2