1 /* nto-tdep.c - general QNX Neutrino target functionality.
3 Copyright (C) 2003, 2004, 2007 Free Software Foundation, Inc.
5 Contributed by QNX Software Systems Ltd.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
25 #include "gdb_string.h"
28 #include "cli/cli-decode.h"
29 #include "cli/cli-cmds.h"
34 #include "solib-svr4.h"
41 #include <sys/cygwin.h>
45 static char default_nto_target[] = "C:\\QNXsdk\\target\\qnx6";
46 #elif defined(__sun__) || defined(linux)
47 static char default_nto_target[] = "/opt/QNXsdk/target/qnx6";
49 static char default_nto_target[] = "";
52 struct nto_target_ops current_nto_target;
57 char *p = getenv ("QNX_TARGET");
60 static char buf[PATH_MAX];
62 cygwin_conv_to_posix_path (p, buf);
64 cygwin_conv_to_posix_path (default_nto_target, buf);
67 return p ? p : default_nto_target;
72 nto_set_target (struct nto_target_ops *targ)
74 nto_regset_id = targ->regset_id;
75 nto_supply_gregset = targ->supply_gregset;
76 nto_supply_fpregset = targ->supply_fpregset;
77 nto_supply_altregset = targ->supply_altregset;
78 nto_supply_regset = targ->supply_regset;
79 nto_register_area = targ->register_area;
80 nto_regset_fill = targ->regset_fill;
81 nto_fetch_link_map_offsets = targ->fetch_link_map_offsets;
84 /* Take a string such as i386, rs6000, etc. and map it onto CPUTYPE_X86,
85 CPUTYPE_PPC, etc. as defined in nto-share/dsmsgs.h. */
87 nto_map_arch_to_cputype (const char *arch)
89 if (!strcmp (arch, "i386") || !strcmp (arch, "x86"))
91 if (!strcmp (arch, "rs6000") || !strcmp (arch, "powerpc"))
93 if (!strcmp (arch, "mips"))
95 if (!strcmp (arch, "arm"))
97 if (!strcmp (arch, "sh"))
99 return CPUTYPE_UNKNOWN;
103 nto_find_and_open_solib (char *solib, unsigned o_flags, char **temp_pathname)
105 char *buf, *arch_path, *nto_root, *endian, *base;
108 #define PATH_FMT "%s/lib:%s/usr/lib:%s/usr/photon/lib:%s/usr/photon/dll:%s/lib/dll"
110 nto_root = nto_target ();
111 if (strcmp (TARGET_ARCHITECTURE->arch_name, "i386") == 0)
116 else if (strcmp (TARGET_ARCHITECTURE->arch_name, "rs6000") == 0
117 || strcmp (TARGET_ARCHITECTURE->arch_name, "powerpc") == 0)
124 arch = TARGET_ARCHITECTURE->arch_name;
125 endian = gdbarch_byte_order (current_gdbarch)
126 == BFD_ENDIAN_BIG ? "be" : "le";
129 /* In case nto_root is short, add strlen(solib)
130 so we can reuse arch_path below. */
132 alloca (strlen (nto_root) + strlen (arch) + strlen (endian) + 2 +
134 sprintf (arch_path, "%s/%s%s", nto_root, arch, endian);
136 buf = alloca (strlen (PATH_FMT) + strlen (arch_path) * 5 + 1);
137 sprintf (buf, PATH_FMT, arch_path, arch_path, arch_path, arch_path,
140 /* Don't assume basename() isn't destructive. */
141 base = strrchr (solib, '/');
145 base++; /* Skip over '/'. */
147 ret = openp (buf, 1, base, o_flags, 0, temp_pathname);
148 if (ret < 0 && base != solib)
150 sprintf (arch_path, "/%s", solib);
151 ret = open (arch_path, o_flags, 0);
155 *temp_pathname = gdb_realpath (arch_path);
157 **temp_pathname = '\0';
164 nto_init_solib_absolute_prefix (void)
166 char buf[PATH_MAX * 2], arch_path[PATH_MAX];
167 char *nto_root, *endian;
170 nto_root = nto_target ();
171 if (strcmp (TARGET_ARCHITECTURE->arch_name, "i386") == 0)
176 else if (strcmp (TARGET_ARCHITECTURE->arch_name, "rs6000") == 0
177 || strcmp (TARGET_ARCHITECTURE->arch_name, "powerpc") == 0)
184 arch = TARGET_ARCHITECTURE->arch_name;
185 endian = gdbarch_byte_order (current_gdbarch)
186 == BFD_ENDIAN_BIG ? "be" : "le";
189 sprintf (arch_path, "%s/%s%s", nto_root, arch, endian);
191 sprintf (buf, "set solib-absolute-prefix %s", arch_path);
192 execute_command (buf, 0);
196 nto_parse_redirection (char *pargv[], char **pin, char **pout, char **perr)
199 char *in, *out, *err, *p;
202 for (n = 0; pargv[n]; n++);
209 argv = xcalloc (n + 1, sizeof argv[0]);
211 for (i = 0, n = 0; n < argc; n++)
230 else if (*p++ == '2' && *p++ == '>')
232 if (*p == '&' && *(p + 1) == '1')
240 argv[i++] = pargv[n];
248 /* The struct lm_info, LM_ADDR, and nto_truncate_ptr are copied from
249 solib-svr4.c to support nto_relocate_section_addresses
250 which is different from the svr4 version. */
254 /* Pointer to copy of link map from inferior. The type is char *
255 rather than void *, so that we may use byte offsets to find the
256 various fields without the need for a cast. */
261 LM_ADDR (struct so_list *so)
263 struct link_map_offsets *lmo = nto_fetch_link_map_offsets ();
265 return (CORE_ADDR) extract_signed_integer (so->lm_info->lm +
271 nto_truncate_ptr (CORE_ADDR addr)
273 if (TARGET_PTR_BIT == sizeof (CORE_ADDR) * 8)
274 /* We don't need to truncate anything, and the bit twiddling below
275 will fail due to overflow problems. */
278 return addr & (((CORE_ADDR) 1 << TARGET_PTR_BIT) - 1);
282 find_load_phdr (bfd *abfd)
284 Elf_Internal_Phdr *phdr;
287 if (!elf_tdata (abfd))
290 phdr = elf_tdata (abfd)->phdr;
291 for (i = 0; i < elf_elfheader (abfd)->e_phnum; i++, phdr++)
293 if (phdr->p_type == PT_LOAD && (phdr->p_flags & PF_X))
300 nto_relocate_section_addresses (struct so_list *so, struct section_table *sec)
302 /* Neutrino treats the l_addr base address field in link.h as different than
303 the base address in the System V ABI and so the offset needs to be
304 calculated and applied to relocations. */
305 Elf_Internal_Phdr *phdr = find_load_phdr (sec->bfd);
306 unsigned vaddr = phdr ? phdr->p_vaddr : 0;
308 sec->addr = nto_truncate_ptr (sec->addr + LM_ADDR (so) - vaddr);
309 sec->endaddr = nto_truncate_ptr (sec->endaddr + LM_ADDR (so) - vaddr);
312 /* This is cheating a bit because our linker code is in libc.so. If we
313 ever implement lazy linking, this may need to be re-examined. */
315 nto_in_dynsym_resolve_code (CORE_ADDR pc)
317 if (in_plt_section (pc, NULL))
323 nto_generic_supply_gpregset (const struct regset *regset,
324 struct regcache *regcache, int regnum,
325 const void *gregs, size_t len)
330 nto_generic_supply_fpregset (const struct regset *regset,
331 struct regcache *regcache, int regnum,
332 const void *fpregs, size_t len)
337 nto_generic_supply_altregset (const struct regset *regset,
338 struct regcache *regcache, int regnum,
339 const void *altregs, size_t len)
344 nto_dummy_supply_regset (struct regcache *regcache, char *regs)
350 nto_elf_osabi_sniffer (bfd *abfd)
352 if (nto_is_nto_target)
353 return nto_is_nto_target (abfd);
354 return GDB_OSABI_UNKNOWN;
358 nto_initialize_signals (void)
360 /* We use SIG45 for pulses, or something, so nostop, noprint
362 signal_stop_update (target_signal_from_name ("SIG45"), 0);
363 signal_print_update (target_signal_from_name ("SIG45"), 0);
364 signal_pass_update (target_signal_from_name ("SIG45"), 1);
366 /* By default we don't want to stop on these two, but we do want to pass. */
367 #if defined(SIGSELECT)
368 signal_stop_update (SIGSELECT, 0);
369 signal_print_update (SIGSELECT, 0);
370 signal_pass_update (SIGSELECT, 1);
373 #if defined(SIGPHOTON)
374 signal_stop_update (SIGPHOTON, 0);
375 signal_print_update (SIGPHOTON, 0);
376 signal_pass_update (SIGPHOTON, 1);
381 _initialize_nto_tdep (void)
383 add_setshow_zinteger_cmd ("nto-debug", class_maintenance,
384 &nto_internal_debugging, _("\
385 Set QNX NTO internal debugging."), _("\
386 Show QNX NTO internal debugging."), _("\
387 When non-zero, nto specific debug info is\n\
388 displayed. Different information is displayed\n\
389 for different positive values."),
391 NULL, /* FIXME: i18n: QNX NTO internal debugging is %s. */
392 &setdebuglist, &showdebuglist);