aboutsummaryrefslogtreecommitdiff
path: root/gcc/ch
diff options
context:
space:
mode:
authorDave Brolley <brolley@cygnus.com>1999-05-04 11:56:26 +0000
committerDave Brolley <brolley@gcc.gnu.org>1999-05-04 07:56:26 -0400
commitd234235cb4cd99504dd8d9717493c1744941f125 (patch)
tree9bed4b584352711b9e9ec98336da38c97723893a /gcc/ch
parent6bdbd22b69315cfbd5892e8364ff9ba90e07bdfe (diff)
downloadgcc-d234235cb4cd99504dd8d9717493c1744941f125.zip
gcc-d234235cb4cd99504dd8d9717493c1744941f125.tar.gz
gcc-d234235cb4cd99504dd8d9717493c1744941f125.tar.bz2
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
Diffstat (limited to 'gcc/ch')
-rw-r--r--gcc/ch/ChangeLog5
-rw-r--r--gcc/ch/actions.c6
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 <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
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 (