diff options
| author | brolley <brolley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-04 11:56:26 +0000 |
|---|---|---|
| committer | brolley <brolley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-04 11:56:26 +0000 |
| commit | 3bbeea9db170d9584c61c27a59135648aaeff284 (patch) | |
| tree | 9bed4b584352711b9e9ec98336da38c97723893a /gcc/ch | |
| parent | 21b77204b5bf481cb3caa469cf799cf97f0fb77f (diff) | |
| download | gcc-3bbeea9db170d9584c61c27a59135648aaeff284.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26767 138bc75d-0d04-0410-961f-82ee72b054a4
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 686c321bf5e..a4a0710839e 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 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 ( |