1 /* Support for printing D values for GDB, the GNU debugger.
3 Copyright (C) 2008-2018 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
,
32 LONGEST embedded_offset
, CORE_ADDR address
,
33 struct ui_file
*stream
, int recurse
,
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_any_optimized_out (val
,
42 TARGET_CHAR_BIT
* embedded_offset
,
43 TARGET_CHAR_BIT
* TYPE_LENGTH (type
)))
47 struct type
*true_type
;
48 struct type
*ptr_type
;
51 const gdb_byte
*valaddr
= value_contents_for_printing (val
);
53 length
= unpack_field_as_long (type
, valaddr
+ embedded_offset
, 0);
55 ptr_type
= TYPE_FIELD_TYPE (type
, 1);
56 elttype
= check_typedef (TYPE_TARGET_TYPE (ptr_type
));
57 addr
= unpack_pointer (ptr_type
,
58 valaddr
+ TYPE_FIELD_BITPOS (type
, 1) / 8
60 true_type
= check_typedef (elttype
);
62 true_type
= lookup_array_range_type (true_type
, 0, length
- 1);
63 ival
= value_at (true_type
, addr
);
64 true_type
= value_type (ival
);
66 d_val_print (true_type
,
67 value_embedded_offset (ival
), addr
,
68 stream
, recurse
+ 1, ival
, options
);
74 /* Implements the la_val_print routine for language D. */
76 d_val_print (struct type
*type
, int embedded_offset
,
77 CORE_ADDR address
, struct ui_file
*stream
, int recurse
,
79 const struct value_print_options
*options
)
83 type
= check_typedef (type
);
84 switch (TYPE_CODE (type
))
86 case TYPE_CODE_STRUCT
:
87 ret
= dynamic_array_type (type
, embedded_offset
, address
,
88 stream
, recurse
, val
, options
);
92 c_val_print (type
, embedded_offset
, address
, stream
,
93 recurse
, val
, options
);
This page took 0.032373 seconds and 4 git commands to generate.