2011-02-26 Michael Snyder <msnyder@vmware.com>
[deliverable/binutils-gdb.git] / gdb / d-valprint.c
CommitLineData
6aecb9c2
JB
1/* Support for printing D values for GDB, the GNU debugger.
2
7b6bb8da 3 Copyright (C) 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
6aecb9c2
JB
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
27 a dynamic array, and then print its value to STREAM. Return
28 the number of string characters printed, or -1 if TYPE is not
29 a dynamic array. */
30static int
31dynamic_array_type (struct type *type, const gdb_byte *valaddr,
32 int embedded_offset, CORE_ADDR address,
33 struct ui_file *stream, int recurse,
0e03807e 34 const struct value *val,
6aecb9c2
JB
35 const struct value_print_options *options)
36{
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
0e03807e
TT
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)))
6aecb9c2
JB
43 {
44 CORE_ADDR addr;
45 struct type *elttype;
46 struct type *true_type;
47 struct type *ptr_type;
6aecb9c2
JB
48 struct value *val;
49 int length;
50
51 length = unpack_field_as_long (type, valaddr + embedded_offset, 0);
52
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
57 + embedded_offset);
58 true_type = check_typedef (elttype);
59
60 true_type = lookup_array_range_type (true_type, 0, length - 1);
61 val = value_at (true_type, addr);
6aecb9c2 62
490f124f
PA
63 return d_val_print (true_type,
64 value_contents_for_printing (val),
65 value_embedded_offset (val), addr,
66 stream, recurse + 1, val, options);
6aecb9c2
JB
67 }
68 return -1;
69}
70
71/* Implements the la_val_print routine for language D. */
72int
73d_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
74 CORE_ADDR address, struct ui_file *stream, int recurse,
0e03807e 75 const struct value *val,
6aecb9c2
JB
76 const struct value_print_options *options)
77{
78 int ret;
79
80 CHECK_TYPEDEF (type);
81 switch (TYPE_CODE (type))
82 {
83 case TYPE_CODE_STRUCT:
84 ret = dynamic_array_type (type, valaddr, embedded_offset, address,
0e03807e 85 stream, recurse, val, options);
6aecb9c2
JB
86 if (ret != -1)
87 break;
88 default:
89 ret = c_val_print (type, valaddr, embedded_offset, address, stream,
0e03807e 90 recurse, val, options);
6aecb9c2
JB
91 }
92
93 return ret;
94}
This page took 0.099422 seconds and 4 git commands to generate.