diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-03-14 14:59:24 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-03-14 14:59:24 +0000 |
| commit | 36633dcc4a70d3b57829bff8120db8fe7423de09 (patch) | |
| tree | bf9cc4194f114e6ee7fd3ba764587710f372408b /gdb/valops.c | |
| parent | a3012272b0820f86cd29a35aee2fcce1ad32053a (diff) | |
| download | gdb-36633dcc4a70d3b57829bff8120db8fe7423de09.zip gdb-36633dcc4a70d3b57829bff8120db8fe7423de09.tar.gz gdb-36633dcc4a70d3b57829bff8120db8fe7423de09.tar.bz2 | |
* valops.c (value_cast, value_slice), parse.c (follow_types): Add
FIXME-type-allocation comments.
Diffstat (limited to 'gdb/valops.c')
| -rw-r--r-- | gdb/valops.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gdb/valops.c b/gdb/valops.c index ad3d8f9..fdd94e5 100644 --- a/gdb/valops.c +++ b/gdb/valops.c @@ -140,6 +140,8 @@ value_cast (type, arg2) int new_length = val_length / TYPE_LENGTH (element_type); if (val_length % TYPE_LENGTH (element_type) != 0) warning("array element type size does not divide object size in cast"); + /* FIXME-type-allocation: need a way to free this type when we are + done with it. */ range_type = create_range_type ((struct type *) NULL, TYPE_TARGET_TYPE (range_type), low_bound, new_length + low_bound - 1); @@ -2054,6 +2056,7 @@ value_slice (array, lowbound, length) value_ptr array; int lowbound, length; { + COERCE_VARYING_ARRAY (array); if (TYPE_CODE (VALUE_TYPE (array)) == TYPE_CODE_BITSTRING) error ("not implemented - bitstring slice"); if (TYPE_CODE (VALUE_TYPE (array)) != TYPE_CODE_ARRAY @@ -2071,6 +2074,8 @@ value_slice (array, lowbound, length) if (lowbound < lowerbound || length < 0 || lowbound + length - 1 > upperbound) error ("slice out of range"); + /* FIXME-type-allocation: need a way to free this type when we are + done with it. */ slice_range_type = create_range_type ((struct type*) NULL, TYPE_TARGET_TYPE (range_type), lowerbound, |