actions.c (chill_expand_assignment): Use powersetlen to calculate the length of…

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  <brolley@cygnus.com>
	* actions.c (chill_expand_assignment): Use powersetlen to calculate the
	length of an array of packed bits.

From-SVN: r26767

gcc/ch/ChangeLog

+Tue May  4 14:52:53 1999  Dave Brolley  <brolley@cygnus.com>
+
+	* 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  <nathan@acm.org>
 
 	* Make-lang.in (ch/chill.info): Put MAKEINFO parameters in correct

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 (