diff options
| author | Andrew Cagney <cagney@redhat.com> | 2005-02-02 22:34:36 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2005-02-02 22:34:36 +0000 |
| commit | d69fe07ead0b14603cb37fd9659bffc11afa37b1 (patch) | |
| tree | 533dc9f35cdcd999b12c8520a7fda6f944af14e0 /gdb/ada-lang.c | |
| parent | 46615f07c3db91f7a0f138baec128749604dca43 (diff) | |
| download | gdb-d69fe07ead0b14603cb37fd9659bffc11afa37b1.zip gdb-d69fe07ead0b14603cb37fd9659bffc11afa37b1.tar.gz gdb-d69fe07ead0b14603cb37fd9659bffc11afa37b1.tar.bz2 | |
2005-02-02 Andrew Cagney <cagney@gnu.org>
* value.h (value_lazy): Declare.
* varobj.c, value.c, valops.c, valarith.c, printcmd.c: Update.
* cp-valprint.c, breakpoint.c, ada-lang.c: Update.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 97ffba8..3228fe5 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -451,7 +451,7 @@ coerce_unspec_val_to_type (struct value *val, struct type *type) result->bitsize = value_bitsize (val); result->bitpos = value_bitpos (val); VALUE_ADDRESS (result) = VALUE_ADDRESS (val) + value_offset (val); - if (VALUE_LAZY (val) + if (value_lazy (val) || TYPE_LENGTH (type) > TYPE_LENGTH (value_type (val))) VALUE_LAZY (result) = 1; else @@ -1811,7 +1811,7 @@ ada_value_primitive_packed_val (struct value *obj, const bfd_byte *valaddr, v = allocate_value (type); bytes = (unsigned char *) (valaddr + offset); } - else if (VALUE_LAZY (obj)) + else if (value_lazy (obj)) { v = value_at (type, VALUE_ADDRESS (obj) + value_offset (obj) + offset); |