rtld - do not allow both dynamic DTV index and static TLS offset
[dragonfly.git] / contrib / gdb-7 / gdb / bfd-target.c
blobca32ffe9e9da1d6b3ca0af284fb220dc6ebe29b1
1 /* Very simple "bfd" target, for GDB, the GNU debugger.
3 Copyright (C) 2003-2013 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/>. */
20 #include "defs.h"
21 #include "target.h"
22 #include "bfd-target.h"
23 #include "exec.h"
24 #include "gdb_bfd.h"
26 /* The object that is stored in the target_ops->to_data field has this
27 type. */
28 struct target_bfd_data
30 /* The BFD we're wrapping. */
31 struct bfd *bfd;
33 /* The section table build from the ALLOC sections in BFD. Note
34 that we can't rely on extracting the BFD from a random section in
35 the table, since the table can be legitimately empty. */
36 struct target_section_table table;
39 static LONGEST
40 target_bfd_xfer_partial (struct target_ops *ops,
41 enum target_object object,
42 const char *annex, gdb_byte *readbuf,
43 const gdb_byte *writebuf,
44 ULONGEST offset, LONGEST len)
46 switch (object)
48 case TARGET_OBJECT_MEMORY:
50 struct target_bfd_data *data = ops->to_data;
51 return section_table_xfer_memory_partial (readbuf, writebuf,
52 offset, len,
53 data->table.sections,
54 data->table.sections_end,
55 NULL);
57 default:
58 return -1;
62 static struct target_section_table *
63 target_bfd_get_section_table (struct target_ops *ops)
65 struct target_bfd_data *data = ops->to_data;
66 return &data->table;
69 static void
70 target_bfd_xclose (struct target_ops *t, int quitting)
72 struct target_bfd_data *data = t->to_data;
74 gdb_bfd_unref (data->bfd);
75 xfree (data->table.sections);
76 xfree (data);
77 xfree (t);
80 struct target_ops *
81 target_bfd_reopen (struct bfd *abfd)
83 struct target_ops *t;
84 struct target_bfd_data *data;
86 data = XZALLOC (struct target_bfd_data);
87 data->bfd = abfd;
88 gdb_bfd_ref (abfd);
89 build_section_table (abfd, &data->table.sections, &data->table.sections_end);
91 t = XZALLOC (struct target_ops);
92 t->to_shortname = "bfd";
93 t->to_longname = _("BFD backed target");
94 t->to_doc = _("You should never see this");
95 t->to_get_section_table = target_bfd_get_section_table;
96 t->to_xfer_partial = target_bfd_xfer_partial;
97 t->to_xclose = target_bfd_xclose;
98 t->to_data = data;
100 return t;