GDB (xrefs)
Loading...
Searching...
No Matches
d-valprint.c
Go to the documentation of this file.
1/* Support for printing D values for GDB, the GNU debugger.
2
3 Copyright (C) 2008-2023 Free Software Foundation, Inc.
4
5 This file is part of GDB.
6
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.
11
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.
16
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/>. */
19
20#include "defs.h"
21#include "gdbtypes.h"
22#include "gdbcore.h"
23#include "d-lang.h"
24#include "c-lang.h"
25
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. */
29
30static int
32 LONGEST embedded_offset, CORE_ADDR address,
33 struct ui_file *stream, int recurse,
34 struct value *val,
35 const struct value_print_options *options)
36{
37 if (type->num_fields () == 2
38 && type->field (0).type ()->code () == TYPE_CODE_INT
39 && strcmp (type->field (0).name (), "length") == 0
40 && strcmp (type->field (1).name (), "ptr") == 0
41 && !val->bits_any_optimized_out (TARGET_CHAR_BIT * embedded_offset,
42 TARGET_CHAR_BIT * type->length ()))
43 {
44 CORE_ADDR addr;
45 struct type *elttype;
46 struct type *true_type;
47 struct type *ptr_type;
48 struct value *ival;
49 int length;
50 const gdb_byte *valaddr = val->contents_for_printing ().data ();
51
52 length = unpack_field_as_long (type, valaddr + embedded_offset, 0);
53
54 ptr_type = type->field (1).type ();
55 elttype = check_typedef (ptr_type->target_type ());
56 addr = unpack_pointer (ptr_type,
57 valaddr + type->field (1).loc_bitpos () / 8
59 true_type = check_typedef (elttype);
60
61 true_type = lookup_array_range_type (true_type, 0, length - 1);
62 ival = value_at (true_type, addr);
63 true_type = ival->type ();
64
65 d_value_print_inner (ival, stream, recurse + 1, options);
66 return 0;
67 }
68 return 1;
69}
70
71/* See d-lang.h. */
72
73void
74d_value_print_inner (struct value *val, struct ui_file *stream, int recurse,
75 const struct value_print_options *options)
76{
77 int ret;
78
79 struct type *type = check_typedef (val->type ());
80 switch (type->code ())
81 {
82 case TYPE_CODE_STRUCT:
84 val->address (),
85 stream, recurse, val, options);
86 if (ret == 0)
87 break;
88 /* Fall through. */
89 default:
90 c_value_print_inner (val, stream, recurse, options);
91 break;
92 }
93}
void c_value_print_inner(struct value *, struct ui_file *, int, const struct value_print_options *)
Definition c-valprint.c:422
static int dynamic_array_type(struct type *type, LONGEST embedded_offset, CORE_ADDR address, struct ui_file *stream, int recurse, struct value *val, const struct value_print_options *options)
Definition d-valprint.c:31
void d_value_print_inner(struct value *val, struct ui_file *stream, int recurse, const struct value_print_options *options)
Definition d-valprint.c:74
struct type * lookup_array_range_type(struct type *element_type, LONGEST low_bound, LONGEST high_bound)
Definition gdbtypes.c:1397
struct type * check_typedef(struct type *type)
Definition gdbtypes.c:2966
LONGEST loc_bitpos() const
Definition gdbtypes.h:611
const char * name() const
Definition gdbtypes.h:557
struct type * type() const
Definition gdbtypes.h:547
struct type * target_type() const
Definition gdbtypes.h:1037
type_code code() const
Definition gdbtypes.h:956
ULONGEST length() const
Definition gdbtypes.h:983
struct field & field(int idx) const
Definition gdbtypes.h:1012
unsigned int num_fields() const
Definition gdbtypes.h:994
Definition value.h:130
bool bits_any_optimized_out(int bit_offset, int bit_length) const
Definition value.c:201
LONGEST embedded_offset() const
Definition value.h:244
struct type * type() const
Definition value.h:180
CORE_ADDR address
Definition value.h:658
gdb::array_view< const gdb_byte > contents_for_printing()
Definition value.c:1100
struct value * value_at(struct type *type, CORE_ADDR addr)
Definition valops.c:1015
CORE_ADDR unpack_pointer(struct type *type, const gdb_byte *valaddr)
Definition value.c:2843
LONGEST unpack_field_as_long(struct type *type, const gdb_byte *valaddr, int fieldno)
Definition value.c:3203