1 /* Support for printing D values for GDB, the GNU debugger.
3 Copyright (C) 2008-2012 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 /* Assuming that TYPE is a TYPE_CODE_STRUCT, verify that TYPE is a
27 dynamic array, and then print its value to STREAM. Return zero if
28 TYPE is a dynamic array, non-zero otherwise. */
31 dynamic_array_type (struct type
*type
, const gdb_byte
*valaddr
,
32 int embedded_offset
, CORE_ADDR address
,
33 struct ui_file
*stream
, int recurse
,
34 const struct value
*val
,
35 const struct value_print_options
*options
)
37 if (TYPE_NFIELDS (type
) == 2
38 && TYPE_CODE (TYPE_FIELD_TYPE (type
, 0)) == TYPE_CODE_INT
39 && strcmp (TYPE_FIELD_NAME (type
, 0), "length") == 0
40 && strcmp (TYPE_FIELD_NAME (type
, 1), "ptr") == 0
41 && value_bits_valid (val
, TARGET_CHAR_BIT
* embedded_offset
,
42 TARGET_CHAR_BIT
* TYPE_LENGTH (type
)))
46 struct type
*true_type
;
47 struct type
*ptr_type
;
51 length
= unpack_field_as_long (type
, valaddr
+ embedded_offset
, 0);
53 ptr_type
= TYPE_FIELD_TYPE (type
, 1);
54 elttype
= check_typedef (TYPE_TARGET_TYPE (ptr_type
));
55 addr
= unpack_pointer (ptr_type
,
56 valaddr
+ TYPE_FIELD_BITPOS (type
, 1) / 8
58 true_type
= check_typedef (elttype
);
60 true_type
= lookup_array_range_type (true_type
, 0, length
- 1);
61 ival
= value_at (true_type
, addr
);
63 d_val_print (true_type
,
64 value_contents_for_printing (ival
),
65 value_embedded_offset (ival
), addr
,
66 stream
, recurse
+ 1, ival
, options
);
72 /* Implements the la_val_print routine for language D. */
74 d_val_print (struct type
*type
, const gdb_byte
*valaddr
, int embedded_offset
,
75 CORE_ADDR address
, struct ui_file
*stream
, int recurse
,
76 const struct value
*val
,
77 const struct value_print_options
*options
)
82 switch (TYPE_CODE (type
))
84 case TYPE_CODE_STRUCT
:
85 ret
= dynamic_array_type (type
, valaddr
, embedded_offset
, address
,
86 stream
, recurse
, val
, options
);
90 c_val_print (type
, valaddr
, embedded_offset
, address
, stream
,
91 recurse
, val
, options
);