diff options
author | Dave Brolley <brolley@cygnus.com> | 1999-05-04 11:56:26 +0000 |
---|---|---|
committer | Dave Brolley <brolley@gcc.gnu.org> | 1999-05-04 07:56:26 -0400 |
commit | d234235cb4cd99504dd8d9717493c1744941f125 (patch) | |
tree | 9bed4b584352711b9e9ec98336da38c97723893a /gcc/ch | |
parent | 6bdbd22b69315cfbd5892e8364ff9ba90e07bdfe (diff) | |
download | gcc-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/ChangeLog | 5 | ||||
-rw-r--r-- | 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 <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 ( |