gdb/nto-tdep.c

   1 /* nto-tdep.c - general QNX Neutrino target functionality.
   2
   3    Copyright (C) 2003, 2004, 2007 Free Software Foundation, Inc.
   4
   5    Contributed by QNX Software Systems Ltd.
   6
   7    This file is part of GDB.
   8
   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.
  13
  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.
  18
  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.  */
  23
  24 #include "gdb_stat.h"
  25 #include "gdb_string.h"
  26 #include "nto-tdep.h"
  27 #include "top.h"
  28 #include "cli/cli-decode.h"
  29 #include "cli/cli-cmds.h"
  30 #include "inferior.h"
  31 #include "gdbarch.h"
  32 #include "bfd.h"
  33 #include "elf-bfd.h"
  34 #include "solib-svr4.h"
  35 #include "gdbcore.h"
  36 #include "objfiles.h"
  37
  38 #include <string.h>
  39
  40 #ifdef __CYGWIN__
  41 #include <sys/cygwin.h>
  42 #endif
  43
  44 #ifdef __CYGWIN__
  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";
  48 #else
  49 static char default_nto_target[] = "";
  50 #endif
  51
  52 struct nto_target_ops current_nto_target;
  53
  54 static char *
  55 nto_target (void)
  56 {
  57   char *p = getenv ("QNX_TARGET");
  58
  59 #ifdef __CYGWIN__
  60   static char buf[PATH_MAX];
  61   if (p)
  62     cygwin_conv_to_posix_path (p, buf);
  63   else
  64     cygwin_conv_to_posix_path (default_nto_target, buf);
  65   return buf;
  66 #else
  67   return p ? p : default_nto_target;
  68 #endif
  69 }
  70
  71 void
  72 nto_set_target (struct nto_target_ops *targ)
  73 {
  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;
  82 }
  83
  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.  */
  86 int
  87 nto_map_arch_to_cputype (const char *arch)
  88 {
  89   if (!strcmp (arch, "i386") || !strcmp (arch, "x86"))
  90     return CPUTYPE_X86;
  91   if (!strcmp (arch, "rs6000") || !strcmp (arch, "powerpc"))
  92     return CPUTYPE_PPC;
  93   if (!strcmp (arch, "mips"))
  94     return CPUTYPE_MIPS;
  95   if (!strcmp (arch, "arm"))
  96     return CPUTYPE_ARM;
  97   if (!strcmp (arch, "sh"))
  98     return CPUTYPE_SH;
  99   return CPUTYPE_UNKNOWN;
 100 }
 101
 102 int
 103 nto_find_and_open_solib (char *solib, unsigned o_flags, char **temp_pathname)
 104 {
 105   char *buf, *arch_path, *nto_root, *endian, *base;
 106   const char *arch;
 107   int ret;
 108 #define PATH_FMT "%s/lib:%s/usr/lib:%s/usr/photon/lib:%s/usr/photon/dll:%s/lib/dll"
 109
 110   nto_root = nto_target ();
 111   if (strcmp (TARGET_ARCHITECTURE->arch_name, "i386") == 0)
 112     {
 113       arch = "x86";
 114       endian = "";
 115     }
 116   else if (strcmp (TARGET_ARCHITECTURE->arch_name, "rs6000") == 0
 117            || strcmp (TARGET_ARCHITECTURE->arch_name, "powerpc") == 0)
 118     {
 119       arch = "ppc";
 120       endian = "be";
 121     }
 122   else
 123     {
 124       arch = TARGET_ARCHITECTURE->arch_name;
 125       endian = TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? "be" : "le";
 126     }
 127
 128   /* In case nto_root is short, add strlen(solib)
 129      so we can reuse arch_path below.  */
 130   arch_path =
 131     alloca (strlen (nto_root) + strlen (arch) + strlen (endian) + 2 +
 132             strlen (solib));
 133   sprintf (arch_path, "%s/%s%s", nto_root, arch, endian);
 134
 135   buf = alloca (strlen (PATH_FMT) + strlen (arch_path) * 5 + 1);
 136   sprintf (buf, PATH_FMT, arch_path, arch_path, arch_path, arch_path,
 137            arch_path);
 138
 139   /* Don't assume basename() isn't destructive.  */
 140   base = strrchr (solib, '/');
 141   if (!base)
 142     base = solib;
 143   else
 144     base++;                     /* Skip over '/'.  */
 145
 146   ret = openp (buf, 1, base, o_flags, 0, temp_pathname);
 147   if (ret < 0 && base != solib)
 148     {
 149       sprintf (arch_path, "/%s", solib);
 150       ret = open (arch_path, o_flags, 0);
 151       if (temp_pathname)
 152         {
 153           if (ret >= 0)
 154             *temp_pathname = gdb_realpath (arch_path);
 155           else
 156             **temp_pathname = '\0';
 157         }
 158     }
 159   return ret;
 160 }
 161
 162 void
 163 nto_init_solib_absolute_prefix (void)
 164 {
 165   char buf[PATH_MAX * 2], arch_path[PATH_MAX];
 166   char *nto_root, *endian;
 167   const char *arch;
 168
 169   nto_root = nto_target ();
 170   if (strcmp (TARGET_ARCHITECTURE->arch_name, "i386") == 0)
 171     {
 172       arch = "x86";
 173       endian = "";
 174     }
 175   else if (strcmp (TARGET_ARCHITECTURE->arch_name, "rs6000") == 0
 176            || strcmp (TARGET_ARCHITECTURE->arch_name, "powerpc") == 0)
 177     {
 178       arch = "ppc";
 179       endian = "be";
 180     }
 181   else
 182     {
 183       arch = TARGET_ARCHITECTURE->arch_name;
 184       endian = TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? "be" : "le";
 185     }
 186
 187   sprintf (arch_path, "%s/%s%s", nto_root, arch, endian);
 188
 189   sprintf (buf, "set solib-absolute-prefix %s", arch_path);
 190   execute_command (buf, 0);
 191 }
 192
 193 char **
 194 nto_parse_redirection (char *pargv[], char **pin, char **pout, char **perr)
 195 {
 196   char **argv;
 197   char *in, *out, *err, *p;
 198   int argc, i, n;
 199
 200   for (n = 0; pargv[n]; n++);
 201   if (n == 0)
 202     return NULL;
 203   in = "";
 204   out = "";
 205   err = "";
 206
 207   argv = xcalloc (n + 1, sizeof argv[0]);
 208   argc = n;
 209   for (i = 0, n = 0; n < argc; n++)
 210     {
 211       p = pargv[n];
 212       if (*p == '>')
 213         {
 214           p++;
 215           if (*p)
 216             out = p;
 217           else
 218             out = pargv[++n];
 219         }
 220       else if (*p == '<')
 221         {
 222           p++;
 223           if (*p)
 224             in = p;
 225           else
 226             in = pargv[++n];
 227         }
 228       else if (*p++ == '2' && *p++ == '>')
 229         {
 230           if (*p == '&' && *(p + 1) == '1')
 231             err = out;
 232           else if (*p)
 233             err = p;
 234           else
 235             err = pargv[++n];
 236         }
 237       else
 238         argv[i++] = pargv[n];
 239     }
 240   *pin = in;
 241   *pout = out;
 242   *perr = err;
 243   return argv;
 244 }
 245
 246 /* The struct lm_info, LM_ADDR, and nto_truncate_ptr are copied from
 247    solib-svr4.c to support nto_relocate_section_addresses
 248    which is different from the svr4 version.  */
 249
 250 struct lm_info
 251 {
 252   /* Pointer to copy of link map from inferior.  The type is char *
 253      rather than void *, so that we may use byte offsets to find the
 254      various fields without the need for a cast.  */
 255   char *lm;
 256 };
 257
 258 static CORE_ADDR
 259 LM_ADDR (struct so_list *so)
 260 {
 261   struct link_map_offsets *lmo = nto_fetch_link_map_offsets ();
 262
 263   return (CORE_ADDR) extract_signed_integer (so->lm_info->lm +
 264                                              lmo->l_addr_offset,
 265                                              lmo->l_addr_size);
 266 }
 267
 268 static CORE_ADDR
 269 nto_truncate_ptr (CORE_ADDR addr)
 270 {
 271   if (TARGET_PTR_BIT == sizeof (CORE_ADDR) * 8)
 272     /* We don't need to truncate anything, and the bit twiddling below
 273        will fail due to overflow problems.  */
 274     return addr;
 275   else
 276     return addr & (((CORE_ADDR) 1 << TARGET_PTR_BIT) - 1);
 277 }
 278
 279 Elf_Internal_Phdr *
 280 find_load_phdr (bfd *abfd)
 281 {
 282   Elf_Internal_Phdr *phdr;
 283   unsigned int i;
 284
 285   if (!elf_tdata (abfd))
 286     return NULL;
 287
 288   phdr = elf_tdata (abfd)->phdr;
 289   for (i = 0; i < elf_elfheader (abfd)->e_phnum; i++, phdr++)
 290     {
 291       if (phdr->p_type == PT_LOAD && (phdr->p_flags & PF_X))
 292         return phdr;
 293     }
 294   return NULL;
 295 }
 296
 297 void
 298 nto_relocate_section_addresses (struct so_list *so, struct section_table *sec)
 299 {
 300   /* Neutrino treats the l_addr base address field in link.h as different than
 301      the base address in the System V ABI and so the offset needs to be
 302      calculated and applied to relocations.  */
 303   Elf_Internal_Phdr *phdr = find_load_phdr (sec->bfd);
 304   unsigned vaddr = phdr ? phdr->p_vaddr : 0;
 305
 306   sec->addr = nto_truncate_ptr (sec->addr + LM_ADDR (so) - vaddr);
 307   sec->endaddr = nto_truncate_ptr (sec->endaddr + LM_ADDR (so) - vaddr);
 308 }
 309
 310 /* This is cheating a bit because our linker code is in libc.so.  If we
 311    ever implement lazy linking, this may need to be re-examined.  */
 312 int
 313 nto_in_dynsym_resolve_code (CORE_ADDR pc)
 314 {
 315   if (in_plt_section (pc, NULL))
 316     return 1;
 317   return 0;
 318 }
 319
 320 void
 321 nto_generic_supply_gpregset (const struct regset *regset,
 322                              struct regcache *regcache, int regnum,
 323                              const void *gregs, size_t len)
 324 {
 325 }
 326
 327 void
 328 nto_generic_supply_fpregset (const struct regset *regset,
 329                              struct regcache *regcache, int regnum,
 330                              const void *fpregs, size_t len)
 331 {
 332 }
 333
 334 void
 335 nto_generic_supply_altregset (const struct regset *regset,
 336                               struct regcache *regcache, int regnum,
 337                               const void *altregs, size_t len)
 338 {
 339 }
 340
 341 void
 342 nto_dummy_supply_regset (char *regs)
 343 {
 344   /* Do nothing.  */
 345 }
 346
 347 enum gdb_osabi
 348 nto_elf_osabi_sniffer (bfd *abfd)
 349 {
 350   if (nto_is_nto_target)
 351     return nto_is_nto_target (abfd);
 352   return GDB_OSABI_UNKNOWN;
 353 }
 354
 355 void
 356 nto_initialize_signals (void)
 357 {
 358   /* We use SIG45 for pulses, or something, so nostop, noprint
 359      and pass them.  */
 360   signal_stop_update (target_signal_from_name ("SIG45"), 0);
 361   signal_print_update (target_signal_from_name ("SIG45"), 0);
 362   signal_pass_update (target_signal_from_name ("SIG45"), 1);
 363
 364   /* By default we don't want to stop on these two, but we do want to pass.  */
 365 #if defined(SIGSELECT)
 366   signal_stop_update (SIGSELECT, 0);
 367   signal_print_update (SIGSELECT, 0);
 368   signal_pass_update (SIGSELECT, 1);
 369 #endif
 370
 371 #if defined(SIGPHOTON)
 372   signal_stop_update (SIGPHOTON, 0);
 373   signal_print_update (SIGPHOTON, 0);
 374   signal_pass_update (SIGPHOTON, 1);
 375 #endif
 376 }
 377
 378 void
 379 _initialize_nto_tdep (void)
 380 {
 381   add_setshow_zinteger_cmd ("nto-debug", class_maintenance,
 382                             &nto_internal_debugging, _("\
 383 Set QNX NTO internal debugging."), _("\
 384 Show QNX NTO internal debugging."), _("\
 385 When non-zero, nto specific debug info is\n\
 386 displayed. Different information is displayed\n\
 387 for different positive values."),
 388                             NULL,
 389                             NULL, /* FIXME: i18n: QNX NTO internal debugging is %s.  */
 390                             &setdebuglist, &showdebuglist);
 391 }