diff options
| author | Andrew Cagney <cagney@redhat.com> | 2005-02-07 23:51:03 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2005-02-07 23:51:03 +0000 |
| commit | 046245839052222161e5cb1233a0f4ca55cfffba (patch) | |
| tree | 5f03d8e8715954687d0c45b965b47cf1e4e01595 /gdb/ada-lang.c | |
| parent | 55bc2f369cdb7533c18144abed052fce62e66000 (diff) | |
| download | gdb-046245839052222161e5cb1233a0f4ca55cfffba.zip gdb-046245839052222161e5cb1233a0f4ca55cfffba.tar.gz gdb-046245839052222161e5cb1233a0f4ca55cfffba.tar.bz2 | |
2005-02-07 Andrew Cagney <cagney@gnu.org>
* value.h (deprecated_set_value_type): Declare.
* value.c (deprecated_set_value_type): Define.
* hpacc-abi.c, gnu-v2-abi.c, cp-valprint.c: Update.
* c-valprint.c, jv-lang.c, objc-lang.c, ada-lang.c: Update.
* infcall.c, printcmd.c, valops.c, eval.c, p-exp.y: Update.
* ax-gdb.c, tracepoint.c: Update.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 222ead4..3526505 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -1547,7 +1547,7 @@ ada_coerce_to_simple_array_type (struct type *type) struct value *mark = value_mark (); struct value *dummy = value_from_longest (builtin_type_long, 0); struct type *result; - dummy->type = type; + deprecated_set_value_type (dummy, type); result = ada_type_of_array (dummy, 0); value_free_to_mark (mark); return result; @@ -2041,7 +2041,7 @@ ada_value_assign (struct value *toval, struct value *fromval) val = value_copy (toval); memcpy (value_contents_raw (val), value_contents (fromval), TYPE_LENGTH (type)); - val->type = type; + deprecated_set_value_type (val, type); return val; } @@ -7047,7 +7047,7 @@ coerce_for_assign (struct type *type, struct value *val) || TYPE_LENGTH (TYPE_TARGET_TYPE (type2)) != TYPE_LENGTH (TYPE_TARGET_TYPE (type2))) error (_("Incompatible types in assignment")); - val->type = type; + deprecated_set_value_type (val, type); } return val; } |