gdb/nto-procfs.c

   1 /* Machine independent support for QNX Neutrino /proc (process file system)
   2    for GDB.  Written by Colin Burgess at QNX Software Systems Limited.
   3
   4    Copyright (C) 2003-2015 Free Software Foundation, Inc.
   5
   6    Contributed by QNX Software Systems Ltd.
   7
   8    This file is part of GDB.
   9
  10    This program is free software; you can redistribute it and/or modify
  11    it under the terms of the GNU General Public License as published by
  12    the Free Software Foundation; either version 3 of the License, or
  13    (at your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful,
  16    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18    GNU General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  22
  23 #include "defs.h"
  24
  25 #include <fcntl.h>
  26 #include <spawn.h>
  27 #include <sys/debug.h>
  28 #include <sys/procfs.h>
  29 #include <sys/neutrino.h>
  30 #include <sys/syspage.h>
  31 #include <dirent.h>
  32 #include <sys/netmgr.h>
  33 #include <sys/auxv.h>
  34
  35 #include "gdbcore.h"
  36 #include "inferior.h"
  37 #include "target.h"
  38 #include "objfiles.h"
  39 #include "gdbthread.h"
  40 #include "nto-tdep.h"
  41 #include "command.h"
  42 #include "regcache.h"
  43 #include "solib.h"
  44 #include "inf-child.h"
  45 #include "common/filestuff.h"
  46
  47 #define NULL_PID                0
  48 #define _DEBUG_FLAG_TRACE       (_DEBUG_FLAG_TRACE_EXEC|_DEBUG_FLAG_TRACE_RD|\
  49                 _DEBUG_FLAG_TRACE_WR|_DEBUG_FLAG_TRACE_MODIFY)
  50
  51 int ctl_fd;
  52
  53 static sighandler_t ofunc;
  54
  55 static procfs_run run;
  56
  57 static ptid_t do_attach (ptid_t ptid);
  58
  59 static int procfs_can_use_hw_breakpoint (struct target_ops *self,
  60                                          enum bptype, int, int);
  61
  62 static int procfs_insert_hw_watchpoint (struct target_ops *self,
  63                                         CORE_ADDR addr, int len,
  64                                         enum target_hw_bp_type type,
  65                                         struct expression *cond);
  66
  67 static int procfs_remove_hw_watchpoint (struct target_ops *self,
  68                                         CORE_ADDR addr, int len,
  69                                         enum target_hw_bp_type type,
  70                                         struct expression *cond);
  71
  72 static int procfs_stopped_by_watchpoint (struct target_ops *ops);
  73
  74 /* These two globals are only ever set in procfs_open_1, but are
  75    referenced elsewhere.  'nto_procfs_node' is a flag used to say
  76    whether we are local, or we should get the current node descriptor
  77    for the remote QNX node.  */
  78 static char *nodestr;
  79 static unsigned nto_procfs_node = ND_LOCAL_NODE;
  80
  81 /* Return the current QNX Node, or error out.  This is a simple
  82    wrapper for the netmgr_strtond() function.  The reason this
  83    is required is because QNX node descriptors are transient so
  84    we have to re-acquire them every time.  */
  85 static unsigned
  86 nto_node (void)
  87 {
  88   unsigned node;
  89
  90   if (ND_NODE_CMP (nto_procfs_node, ND_LOCAL_NODE) == 0
  91       || nodestr == NULL)
  92     return ND_LOCAL_NODE;
  93
  94   node = netmgr_strtond (nodestr, 0);
  95   if (node == -1)
  96     error (_("Lost the QNX node.  Debug session probably over."));
  97
  98   return (node);
  99 }
 100
 101 static enum gdb_osabi
 102 procfs_is_nto_target (bfd *abfd)
 103 {
 104   return GDB_OSABI_QNXNTO;
 105 }
 106
 107 /* This is called when we call 'target native' or 'target procfs
 108    <arg>' from the (gdb) prompt.  For QNX6 (nto), the only valid arg
 109    will be a QNX node string, eg: "/net/some_node".  If arg is not a
 110    valid QNX node, we will default to local.  */
 111 static void
 112 procfs_open_1 (struct target_ops *ops, const char *arg, int from_tty)
 113 {
 114   char *endstr;
 115   char buffer[50];
 116   int fd, total_size;
 117   procfs_sysinfo *sysinfo;
 118   struct cleanup *cleanups;
 119   char nto_procfs_path[PATH_MAX];
 120
 121   /* Offer to kill previous inferiors before opening this target.  */
 122   target_preopen (from_tty);
 123
 124   nto_is_nto_target = procfs_is_nto_target;
 125
 126   /* Set the default node used for spawning to this one,
 127      and only override it if there is a valid arg.  */
 128
 129   xfree (nodestr);
 130   nodestr = NULL;
 131
 132   nto_procfs_node = ND_LOCAL_NODE;
 133   nodestr = (arg != NULL) ? xstrdup (arg) : NULL;
 134
 135   init_thread_list ();
 136
 137   if (nodestr)
 138     {
 139       nto_procfs_node = netmgr_strtond (nodestr, &endstr);
 140       if (nto_procfs_node == -1)
 141         {
 142           if (errno == ENOTSUP)
 143             printf_filtered ("QNX Net Manager not found.\n");
 144           printf_filtered ("Invalid QNX node %s: error %d (%s).\n", nodestr,
 145                            errno, safe_strerror (errno));
 146           xfree (nodestr);
 147           nodestr = NULL;
 148           nto_procfs_node = ND_LOCAL_NODE;
 149         }
 150       else if (*endstr)
 151         {
 152           if (*(endstr - 1) == '/')
 153             *(endstr - 1) = 0;
 154           else
 155             *endstr = 0;
 156         }
 157     }
 158   snprintf (nto_procfs_path, PATH_MAX - 1, "%s%s",
 159             (nodestr != NULL) ? nodestr : "", "/proc");
 160
 161   fd = open (nto_procfs_path, O_RDONLY);
 162   if (fd == -1)
 163     {
 164       printf_filtered ("Error opening %s : %d (%s)\n", nto_procfs_path, errno,
 165                        safe_strerror (errno));
 166       error (_("Invalid procfs arg"));
 167     }
 168   cleanups = make_cleanup_close (fd);
 169
 170   sysinfo = (void *) buffer;
 171   if (devctl (fd, DCMD_PROC_SYSINFO, sysinfo, sizeof buffer, 0) != EOK)
 172     {
 173       printf_filtered ("Error getting size: %d (%s)\n", errno,
 174                        safe_strerror (errno));
 175       error (_("Devctl failed."));
 176     }
 177   else
 178     {
 179       total_size = sysinfo->total_size;
 180       sysinfo = alloca (total_size);
 181       if (sysinfo == NULL)
 182         {
 183           printf_filtered ("Memory error: %d (%s)\n", errno,
 184                            safe_strerror (errno));
 185           error (_("alloca failed."));
 186         }
 187       else
 188         {
 189           if (devctl (fd, DCMD_PROC_SYSINFO, sysinfo, total_size, 0) != EOK)
 190             {
 191               printf_filtered ("Error getting sysinfo: %d (%s)\n", errno,
 192                                safe_strerror (errno));
 193               error (_("Devctl failed."));
 194             }
 195           else
 196             {
 197               if (sysinfo->type !=
 198                   nto_map_arch_to_cputype (gdbarch_bfd_arch_info
 199                                            (target_gdbarch ())->arch_name))
 200                 error (_("Invalid target CPU."));
 201             }
 202         }
 203     }
 204   do_cleanups (cleanups);
 205
 206   inf_child_open_target (ops, arg, from_tty);
 207   printf_filtered ("Debugging using %s\n", nto_procfs_path);
 208 }
 209
 210 static void
 211 procfs_set_thread (ptid_t ptid)
 212 {
 213   pid_t tid;
 214
 215   tid = ptid_get_tid (ptid);
 216   devctl (ctl_fd, DCMD_PROC_CURTHREAD, &tid, sizeof (tid), 0);
 217 }
 218
 219 /*  Return nonzero if the thread TH is still alive.  */
 220 static int
 221 procfs_thread_alive (struct target_ops *ops, ptid_t ptid)
 222 {
 223   pid_t tid;
 224   pid_t pid;
 225   procfs_status status;
 226   int err;
 227
 228   tid = ptid_get_tid (ptid);
 229   pid = ptid_get_pid (ptid);
 230
 231   if (kill (pid, 0) == -1)
 232     return 0;
 233
 234   status.tid = tid;
 235   if ((err = devctl (ctl_fd, DCMD_PROC_TIDSTATUS,
 236                      &status, sizeof (status), 0)) != EOK)
 237     return 0;
 238
 239   /* Thread is alive or dead but not yet joined,
 240      or dead and there is an alive (or dead unjoined) thread with
 241      higher tid.
 242
 243      If the tid is not the same as requested, requested tid is dead.  */
 244   return (status.tid == tid) && (status.state != STATE_DEAD);
 245 }
 246
 247 static void
 248 update_thread_private_data_name (struct thread_info *new_thread,
 249                                  const char *newname)
 250 {
 251   int newnamelen;
 252   struct private_thread_info *pti;
 253
 254   gdb_assert (newname != NULL);
 255   gdb_assert (new_thread != NULL);
 256   newnamelen = strlen (newname);
 257   if (!new_thread->priv)
 258     {
 259       new_thread->priv = xmalloc (offsetof (struct private_thread_info,
 260                                                name)
 261                                      + newnamelen + 1);
 262       memcpy (new_thread->priv->name, newname, newnamelen + 1);
 263     }
 264   else if (strcmp (newname, new_thread->priv->name) != 0)
 265     {
 266       /* Reallocate if neccessary.  */
 267       int oldnamelen = strlen (new_thread->priv->name);
 268
 269       if (oldnamelen < newnamelen)
 270         new_thread->priv = xrealloc (new_thread->priv,
 271                                         offsetof (struct private_thread_info,
 272                                                   name)
 273                                         + newnamelen + 1);
 274       memcpy (new_thread->priv->name, newname, newnamelen + 1);
 275     }
 276 }
 277
 278 static void
 279 update_thread_private_data (struct thread_info *new_thread,
 280                             pthread_t tid, int state, int flags)
 281 {
 282   struct private_thread_info *pti;
 283   procfs_info pidinfo;
 284   struct _thread_name *tn;
 285   procfs_threadctl tctl;
 286
 287 #if _NTO_VERSION > 630
 288   gdb_assert (new_thread != NULL);
 289
 290   if (devctl (ctl_fd, DCMD_PROC_INFO, &pidinfo,
 291               sizeof(pidinfo), 0) != EOK)
 292     return;
 293
 294   memset (&tctl, 0, sizeof (tctl));
 295   tctl.cmd = _NTO_TCTL_NAME;
 296   tn = (struct _thread_name *) (&tctl.data);
 297
 298   /* Fetch name for the given thread.  */
 299   tctl.tid = tid;
 300   tn->name_buf_len = sizeof (tctl.data) - sizeof (*tn);
 301   tn->new_name_len = -1; /* Getting, not setting.  */
 302   if (devctl (ctl_fd, DCMD_PROC_THREADCTL, &tctl, sizeof (tctl), NULL) != EOK)
 303     tn->name_buf[0] = '\0';
 304
 305   tn->name_buf[_NTO_THREAD_NAME_MAX] = '\0';
 306
 307   update_thread_private_data_name (new_thread, tn->name_buf);
 308
 309   pti = (struct private_thread_info *) new_thread->priv;
 310   pti->tid = tid;
 311   pti->state = state;
 312   pti->flags = flags;
 313 #endif /* _NTO_VERSION */
 314 }
 315
 316 static void
 317 procfs_update_thread_list (struct target_ops *ops)
 318 {
 319   procfs_status status;
 320   pid_t pid;
 321   ptid_t ptid;
 322   pthread_t tid;
 323   struct thread_info *new_thread;
 324
 325   if (ctl_fd == -1)
 326     return;
 327
 328   prune_threads ();
 329
 330   pid = ptid_get_pid (inferior_ptid);
 331
 332   status.tid = 1;
 333
 334   for (tid = 1;; ++tid)
 335     {
 336       if (status.tid == tid
 337           && (devctl (ctl_fd, DCMD_PROC_TIDSTATUS, &status, sizeof (status), 0)
 338               != EOK))
 339         break;
 340       if (status.tid != tid)
 341         /* The reason why this would not be equal is that devctl might have
 342            returned different tid, meaning the requested tid no longer exists
 343            (e.g. thread exited).  */
 344         continue;
 345       ptid = ptid_build (pid, 0, tid);
 346       new_thread = find_thread_ptid (ptid);
 347       if (!new_thread)
 348         new_thread = add_thread (ptid);
 349       update_thread_private_data (new_thread, tid, status.state, 0);
 350       status.tid++;
 351     }
 352   return;
 353 }
 354
 355 static void
 356 do_closedir_cleanup (void *dir)
 357 {
 358   closedir (dir);
 359 }
 360
 361 static void
 362 procfs_pidlist (char *args, int from_tty)
 363 {
 364   DIR *dp = NULL;
 365   struct dirent *dirp = NULL;
 366   char buf[PATH_MAX];
 367   procfs_info *pidinfo = NULL;
 368   procfs_debuginfo *info = NULL;
 369   procfs_status *status = NULL;
 370   pid_t num_threads = 0;
 371   pid_t pid;
 372   char name[512];
 373   struct cleanup *cleanups;
 374   char procfs_dir[PATH_MAX];
 375
 376   snprintf (procfs_dir, sizeof (procfs_dir), "%s%s",
 377             (nodestr != NULL) ? nodestr : "", "/proc");
 378
 379   dp = opendir (procfs_dir);
 380   if (dp == NULL)
 381     {
 382       fprintf_unfiltered (gdb_stderr, "failed to opendir \"%s\" - %d (%s)",
 383                           procfs_dir, errno, safe_strerror (errno));
 384       return;
 385     }
 386
 387   cleanups = make_cleanup (do_closedir_cleanup, dp);
 388
 389   /* Start scan at first pid.  */
 390   rewinddir (dp);
 391
 392   do
 393     {
 394       int fd;
 395       struct cleanup *inner_cleanup;
 396
 397       /* Get the right pid and procfs path for the pid.  */
 398       do
 399         {
 400           dirp = readdir (dp);
 401           if (dirp == NULL)
 402             {
 403               do_cleanups (cleanups);
 404               return;
 405             }
 406           snprintf (buf, sizeof (buf), "%s%s/%s/as",
 407                     (nodestr != NULL) ? nodestr : "",
 408                     "/proc", dirp->d_name);
 409           pid = atoi (dirp->d_name);
 410         }
 411       while (pid == 0);
 412
 413       /* Open the procfs path.  */
 414       fd = open (buf, O_RDONLY);
 415       if (fd == -1)
 416         {
 417           fprintf_unfiltered (gdb_stderr, "failed to open %s - %d (%s)\n",
 418                               buf, errno, safe_strerror (errno));
 419           continue;
 420         }
 421       inner_cleanup = make_cleanup_close (fd);
 422
 423       pidinfo = (procfs_info *) buf;
 424       if (devctl (fd, DCMD_PROC_INFO, pidinfo, sizeof (buf), 0) != EOK)
 425         {
 426           fprintf_unfiltered (gdb_stderr,
 427                               "devctl DCMD_PROC_INFO failed - %d (%s)\n",
 428                               errno, safe_strerror (errno));
 429           break;
 430         }
 431       num_threads = pidinfo->num_threads;
 432
 433       info = (procfs_debuginfo *) buf;
 434       if (devctl (fd, DCMD_PROC_MAPDEBUG_BASE, info, sizeof (buf), 0) != EOK)
 435         strcpy (name, "unavailable");
 436       else
 437         strcpy (name, info->path);
 438
 439       /* Collect state info on all the threads.  */
 440       status = (procfs_status *) buf;
 441       for (status->tid = 1; status->tid <= num_threads; status->tid++)
 442         {
 443           const int err
 444             = devctl (fd, DCMD_PROC_TIDSTATUS, status, sizeof (buf), 0);
 445           printf_filtered ("%s - %d", name, pid);
 446           if (err == EOK && status->tid != 0)
 447             printf_filtered ("/%d\n", status->tid);
 448           else
 449             {
 450               printf_filtered ("\n");
 451               break;
 452             }
 453         }
 454
 455       do_cleanups (inner_cleanup);
 456     }
 457   while (dirp != NULL);
 458
 459   do_cleanups (cleanups);
 460   return;
 461 }
 462
 463 static void
 464 procfs_meminfo (char *args, int from_tty)
 465 {
 466   procfs_mapinfo *mapinfos = NULL;
 467   static int num_mapinfos = 0;
 468   procfs_mapinfo *mapinfo_p, *mapinfo_p2;
 469   int flags = ~0, err, num, i, j;
 470
 471   struct
 472   {
 473     procfs_debuginfo info;
 474     char buff[_POSIX_PATH_MAX];
 475   } map;
 476
 477   struct info
 478   {
 479     unsigned addr;
 480     unsigned size;
 481     unsigned flags;
 482     unsigned debug_vaddr;
 483     unsigned long long offset;
 484   };
 485
 486   struct printinfo
 487   {
 488     unsigned long long ino;
 489     unsigned dev;
 490     struct info text;
 491     struct info data;
 492     char name[256];
 493   } printme;
 494
 495   /* Get the number of map entrys.  */
 496   err = devctl (ctl_fd, DCMD_PROC_MAPINFO, NULL, 0, &num);
 497   if (err != EOK)
 498     {
 499       printf ("failed devctl num mapinfos - %d (%s)\n", err,
 500               safe_strerror (err));
 501       return;
 502     }
 503
 504   mapinfos = XNEWVEC (procfs_mapinfo, num);
 505
 506   num_mapinfos = num;
 507   mapinfo_p = mapinfos;
 508
 509   /* Fill the map entrys.  */
 510   err = devctl (ctl_fd, DCMD_PROC_MAPINFO, mapinfo_p, num
 511                 * sizeof (procfs_mapinfo), &num);
 512   if (err != EOK)
 513     {
 514       printf ("failed devctl mapinfos - %d (%s)\n", err, safe_strerror (err));
 515       xfree (mapinfos);
 516       return;
 517     }
 518
 519   num = min (num, num_mapinfos);
 520
 521   /* Run through the list of mapinfos, and store the data and text info
 522      so we can print it at the bottom of the loop.  */
 523   for (mapinfo_p = mapinfos, i = 0; i < num; i++, mapinfo_p++)
 524     {
 525       if (!(mapinfo_p->flags & flags))
 526         mapinfo_p->ino = 0;
 527
 528       if (mapinfo_p->ino == 0)  /* Already visited.  */
 529         continue;
 530
 531       map.info.vaddr = mapinfo_p->vaddr;
 532
 533       err = devctl (ctl_fd, DCMD_PROC_MAPDEBUG, &map, sizeof (map), 0);
 534       if (err != EOK)
 535         continue;
 536
 537       memset (&printme, 0, sizeof printme);
 538       printme.dev = mapinfo_p->dev;
 539       printme.ino = mapinfo_p->ino;
 540       printme.text.addr = mapinfo_p->vaddr;
 541       printme.text.size = mapinfo_p->size;
 542       printme.text.flags = mapinfo_p->flags;
 543       printme.text.offset = mapinfo_p->offset;
 544       printme.text.debug_vaddr = map.info.vaddr;
 545       strcpy (printme.name, map.info.path);
 546
 547       /* Check for matching data.  */
 548       for (mapinfo_p2 = mapinfos, j = 0; j < num; j++, mapinfo_p2++)
 549         {
 550           if (mapinfo_p2->vaddr != mapinfo_p->vaddr
 551               && mapinfo_p2->ino == mapinfo_p->ino
 552               && mapinfo_p2->dev == mapinfo_p->dev)
 553             {
 554               map.info.vaddr = mapinfo_p2->vaddr;
 555               err =
 556                 devctl (ctl_fd, DCMD_PROC_MAPDEBUG, &map, sizeof (map), 0);
 557               if (err != EOK)
 558                 continue;
 559
 560               if (strcmp (map.info.path, printme.name))
 561                 continue;
 562
 563               /* Lower debug_vaddr is always text, if nessessary, swap.  */
 564               if ((int) map.info.vaddr < (int) printme.text.debug_vaddr)
 565                 {
 566                   memcpy (&(printme.data), &(printme.text),
 567                           sizeof (printme.data));
 568                   printme.text.addr = mapinfo_p2->vaddr;
 569                   printme.text.size = mapinfo_p2->size;
 570                   printme.text.flags = mapinfo_p2->flags;
 571                   printme.text.offset = mapinfo_p2->offset;
 572                   printme.text.debug_vaddr = map.info.vaddr;
 573                 }
 574               else
 575                 {
 576                   printme.data.addr = mapinfo_p2->vaddr;
 577                   printme.data.size = mapinfo_p2->size;
 578                   printme.data.flags = mapinfo_p2->flags;
 579                   printme.data.offset = mapinfo_p2->offset;
 580                   printme.data.debug_vaddr = map.info.vaddr;
 581                 }
 582               mapinfo_p2->ino = 0;
 583             }
 584         }
 585       mapinfo_p->ino = 0;
 586
 587       printf_filtered ("%s\n", printme.name);
 588       printf_filtered ("\ttext=%08x bytes @ 0x%08x\n", printme.text.size,
 589                        printme.text.addr);
 590       printf_filtered ("\t\tflags=%08x\n", printme.text.flags);
 591       printf_filtered ("\t\tdebug=%08x\n", printme.text.debug_vaddr);
 592       printf_filtered ("\t\toffset=%s\n", phex (printme.text.offset, 8));
 593       if (printme.data.size)
 594         {
 595           printf_filtered ("\tdata=%08x bytes @ 0x%08x\n", printme.data.size,
 596                            printme.data.addr);
 597           printf_filtered ("\t\tflags=%08x\n", printme.data.flags);
 598           printf_filtered ("\t\tdebug=%08x\n", printme.data.debug_vaddr);
 599           printf_filtered ("\t\toffset=%s\n", phex (printme.data.offset, 8));
 600         }
 601       printf_filtered ("\tdev=0x%x\n", printme.dev);
 602       printf_filtered ("\tino=0x%x\n", (unsigned int) printme.ino);
 603     }
 604   xfree (mapinfos);
 605   return;
 606 }
 607
 608 /* Print status information about what we're accessing.  */
 609 static void
 610 procfs_files_info (struct target_ops *ignore)
 611 {
 612   struct inferior *inf = current_inferior ();
 613
 614   printf_unfiltered ("\tUsing the running image of %s %s via %s.\n",
 615                      inf->attach_flag ? "attached" : "child",
 616                      target_pid_to_str (inferior_ptid),
 617                      (nodestr != NULL) ? nodestr : "local node");
 618 }
 619
 620 /* Target to_pid_to_exec_file implementation.  */
 621
 622 static char *
 623 procfs_pid_to_exec_file (struct target_ops *ops, const int pid)
 624 {
 625   int proc_fd;
 626   static char proc_path[PATH_MAX];
 627   ssize_t rd;
 628
 629   /* Read exe file name.  */
 630   snprintf (proc_path, sizeof (proc_path), "%s/proc/%d/exefile",
 631             (nodestr != NULL) ? nodestr : "", pid);
 632   proc_fd = open (proc_path, O_RDONLY);
 633   if (proc_fd == -1)
 634     return NULL;
 635
 636   rd = read (proc_fd, proc_path, sizeof (proc_path) - 1);
 637   close (proc_fd);
 638   if (rd <= 0)
 639     {
 640       proc_path[0] = '\0';
 641       return NULL;
 642     }
 643   proc_path[rd] = '\0';
 644   return proc_path;
 645 }
 646
 647 /* Attach to process PID, then initialize for debugging it.  */
 648 static void
 649 procfs_attach (struct target_ops *ops, const char *args, int from_tty)
 650 {
 651   char *exec_file;
 652   int pid;
 653   struct inferior *inf;
 654
 655   pid = parse_pid_to_attach (args);
 656
 657   if (pid == getpid ())
 658     error (_("Attaching GDB to itself is not a good idea..."));
 659
 660   if (from_tty)
 661     {
 662       exec_file = (char *) get_exec_file (0);
 663
 664       if (exec_file)
 665         printf_unfiltered ("Attaching to program `%s', %s\n", exec_file,
 666                            target_pid_to_str (pid_to_ptid (pid)));
 667       else
 668         printf_unfiltered ("Attaching to %s\n",
 669                            target_pid_to_str (pid_to_ptid (pid)));
 670
 671       gdb_flush (gdb_stdout);
 672     }
 673   inferior_ptid = do_attach (pid_to_ptid (pid));
 674   inf = current_inferior ();
 675   inferior_appeared (inf, pid);
 676   inf->attach_flag = 1;
 677
 678   if (!target_is_pushed (ops))
 679     push_target (ops);
 680
 681   procfs_update_thread_list (ops);
 682 }
 683
 684 static void
 685 procfs_post_attach (struct target_ops *self, pid_t pid)
 686 {
 687   if (exec_bfd)
 688     solib_create_inferior_hook (0);
 689 }
 690
 691 static ptid_t
 692 do_attach (ptid_t ptid)
 693 {
 694   procfs_status status;
 695   struct sigevent event;
 696   char path[PATH_MAX];
 697
 698   snprintf (path, PATH_MAX - 1, "%s%s/%d/as",
 699             (nodestr != NULL) ? nodestr : "", "/proc", ptid_get_pid (ptid));
 700   ctl_fd = open (path, O_RDWR);
 701   if (ctl_fd == -1)
 702     error (_("Couldn't open proc file %s, error %d (%s)"), path, errno,
 703            safe_strerror (errno));
 704   if (devctl (ctl_fd, DCMD_PROC_STOP, &status, sizeof (status), 0) != EOK)
 705     error (_("Couldn't stop process"));
 706
 707   /* Define a sigevent for process stopped notification.  */
 708   event.sigev_notify = SIGEV_SIGNAL_THREAD;
 709   event.sigev_signo = SIGUSR1;
 710   event.sigev_code = 0;
 711   event.sigev_value.sival_ptr = NULL;
 712   event.sigev_priority = -1;
 713   devctl (ctl_fd, DCMD_PROC_EVENT, &event, sizeof (event), 0);
 714
 715   if (devctl (ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), 0) == EOK
 716       && status.flags & _DEBUG_FLAG_STOPPED)
 717     SignalKill (nto_node (), ptid_get_pid (ptid), 0, SIGCONT, 0, 0);
 718   nto_init_solib_absolute_prefix ();
 719   return ptid_build (ptid_get_pid (ptid), 0, status.tid);
 720 }
 721
 722 /* Ask the user what to do when an interrupt is received.  */
 723 static void
 724 interrupt_query (void)
 725 {
 726   target_terminal_ours ();
 727
 728   if (query (_("Interrupted while waiting for the program.\n\
 729 Give up (and stop debugging it)? ")))
 730     {
 731       target_mourn_inferior ();
 732       quit ();
 733     }
 734
 735   target_terminal_inferior ();
 736 }
 737
 738 /* The user typed ^C twice.  */
 739 static void
 740 nto_handle_sigint_twice (int signo)
 741 {
 742   signal (signo, ofunc);
 743   interrupt_query ();
 744   signal (signo, nto_handle_sigint_twice);
 745 }
 746
 747 static void
 748 nto_handle_sigint (int signo)
 749 {
 750   /* If this doesn't work, try more severe steps.  */
 751   signal (signo, nto_handle_sigint_twice);
 752
 753   target_interrupt (inferior_ptid);
 754 }
 755
 756 static ptid_t
 757 procfs_wait (struct target_ops *ops,
 758              ptid_t ptid, struct target_waitstatus *ourstatus, int options)
 759 {
 760   sigset_t set;
 761   siginfo_t info;
 762   procfs_status status;
 763   static int exit_signo = 0;    /* To track signals that cause termination.  */
 764
 765   ourstatus->kind = TARGET_WAITKIND_SPURIOUS;
 766
 767   if (ptid_equal (inferior_ptid, null_ptid))
 768     {
 769       ourstatus->kind = TARGET_WAITKIND_STOPPED;
 770       ourstatus->value.sig = GDB_SIGNAL_0;
 771       exit_signo = 0;
 772       return null_ptid;
 773     }
 774
 775   sigemptyset (&set);
 776   sigaddset (&set, SIGUSR1);
 777
 778   devctl (ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), 0);
 779   while (!(status.flags & _DEBUG_FLAG_ISTOP))
 780     {
 781       ofunc = signal (SIGINT, nto_handle_sigint);
 782       sigwaitinfo (&set, &info);
 783       signal (SIGINT, ofunc);
 784       devctl (ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), 0);
 785     }
 786
 787   if (status.flags & _DEBUG_FLAG_SSTEP)
 788     {
 789       ourstatus->kind = TARGET_WAITKIND_STOPPED;
 790       ourstatus->value.sig = GDB_SIGNAL_TRAP;
 791     }
 792   /* Was it a breakpoint?  */
 793   else if (status.flags & _DEBUG_FLAG_TRACE)
 794     {
 795       ourstatus->kind = TARGET_WAITKIND_STOPPED;
 796       ourstatus->value.sig = GDB_SIGNAL_TRAP;
 797     }
 798   else if (status.flags & _DEBUG_FLAG_ISTOP)
 799     {
 800       switch (status.why)
 801         {
 802         case _DEBUG_WHY_SIGNALLED:
 803           ourstatus->kind = TARGET_WAITKIND_STOPPED;
 804           ourstatus->value.sig =
 805             gdb_signal_from_host (status.info.si_signo);
 806           exit_signo = 0;
 807           break;
 808         case _DEBUG_WHY_FAULTED:
 809           ourstatus->kind = TARGET_WAITKIND_STOPPED;
 810           if (status.info.si_signo == SIGTRAP)
 811             {
 812               ourstatus->value.sig = 0;
 813               exit_signo = 0;
 814             }
 815           else
 816             {
 817               ourstatus->value.sig =
 818                 gdb_signal_from_host (status.info.si_signo);
 819               exit_signo = ourstatus->value.sig;
 820             }
 821           break;
 822
 823         case _DEBUG_WHY_TERMINATED:
 824           {
 825             int waitval = 0;
 826
 827             waitpid (ptid_get_pid (inferior_ptid), &waitval, WNOHANG);
 828             if (exit_signo)
 829               {
 830                 /* Abnormal death.  */
 831                 ourstatus->kind = TARGET_WAITKIND_SIGNALLED;
 832                 ourstatus->value.sig = exit_signo;
 833               }
 834             else
 835               {
 836                 /* Normal death.  */
 837                 ourstatus->kind = TARGET_WAITKIND_EXITED;
 838                 ourstatus->value.integer = WEXITSTATUS (waitval);
 839               }
 840             exit_signo = 0;
 841             break;
 842           }
 843
 844         case _DEBUG_WHY_REQUESTED:
 845           /* We are assuming a requested stop is due to a SIGINT.  */
 846           ourstatus->kind = TARGET_WAITKIND_STOPPED;
 847           ourstatus->value.sig = GDB_SIGNAL_INT;
 848           exit_signo = 0;
 849           break;
 850         }
 851     }
 852
 853   return ptid_build (status.pid, 0, status.tid);
 854 }
 855
 856 /* Read the current values of the inferior's registers, both the
 857    general register set and floating point registers (if supported)
 858    and update gdb's idea of their current values.  */
 859 static void
 860 procfs_fetch_registers (struct target_ops *ops,
 861                         struct regcache *regcache, int regno)
 862 {
 863   union
 864   {
 865     procfs_greg greg;
 866     procfs_fpreg fpreg;
 867     procfs_altreg altreg;
 868   }
 869   reg;
 870   int regsize;
 871
 872   procfs_set_thread (inferior_ptid);
 873   if (devctl (ctl_fd, DCMD_PROC_GETGREG, &reg, sizeof (reg), &regsize) == EOK)
 874     nto_supply_gregset (regcache, (char *) &reg.greg);
 875   if (devctl (ctl_fd, DCMD_PROC_GETFPREG, &reg, sizeof (reg), &regsize)
 876       == EOK)
 877     nto_supply_fpregset (regcache, (char *) &reg.fpreg);
 878   if (devctl (ctl_fd, DCMD_PROC_GETALTREG, &reg, sizeof (reg), &regsize)
 879       == EOK)
 880     nto_supply_altregset (regcache, (char *) &reg.altreg);
 881 }
 882
 883 /* Helper for procfs_xfer_partial that handles memory transfers.
 884    Arguments are like target_xfer_partial.  */
 885
 886 static enum target_xfer_status
 887 procfs_xfer_memory (gdb_byte *readbuf, const gdb_byte *writebuf,
 888                     ULONGEST memaddr, ULONGEST len, ULONGEST *xfered_len)
 889 {
 890   int nbytes;
 891
 892   if (lseek (ctl_fd, (off_t) memaddr, SEEK_SET) != (off_t) memaddr)
 893     return TARGET_XFER_E_IO;
 894
 895   if (writebuf != NULL)
 896     nbytes = write (ctl_fd, writebuf, len);
 897   else
 898     nbytes = read (ctl_fd, readbuf, len);
 899   if (nbytes <= 0)
 900     return TARGET_XFER_E_IO;
 901   *xfered_len = nbytes;
 902   return TARGET_XFER_OK;
 903 }
 904
 905 /* Target to_xfer_partial implementation.  */
 906
 907 static enum target_xfer_status
 908 procfs_xfer_partial (struct target_ops *ops, enum target_object object,
 909                      const char *annex, gdb_byte *readbuf,
 910                      const gdb_byte *writebuf, ULONGEST offset, ULONGEST len,
 911                      ULONGEST *xfered_len)
 912 {
 913   switch (object)
 914     {
 915     case TARGET_OBJECT_MEMORY:
 916       return procfs_xfer_memory (readbuf, writebuf, offset, len, xfered_len);
 917     case TARGET_OBJECT_AUXV:
 918       if (readbuf != NULL)
 919         {
 920           int err;
 921           CORE_ADDR initial_stack;
 922           debug_process_t procinfo;
 923           /* For 32-bit architecture, size of auxv_t is 8 bytes.  */
 924           const unsigned int sizeof_auxv_t = sizeof (auxv_t);
 925           const unsigned int sizeof_tempbuf = 20 * sizeof_auxv_t;
 926           int tempread;
 927           gdb_byte *const tempbuf = alloca (sizeof_tempbuf);
 928
 929           if (tempbuf == NULL)
 930             return TARGET_XFER_E_IO;
 931
 932           err = devctl (ctl_fd, DCMD_PROC_INFO, &procinfo,
 933                         sizeof procinfo, 0);
 934           if (err != EOK)
 935             return TARGET_XFER_E_IO;
 936
 937           initial_stack = procinfo.initial_stack;
 938
 939           /* procfs is always 'self-hosted', no byte-order manipulation.  */
 940           tempread = nto_read_auxv_from_initial_stack (initial_stack, tempbuf,
 941                                                        sizeof_tempbuf,
 942                                                        sizeof (auxv_t));
 943           tempread = min (tempread, len) - offset;
 944           memcpy (readbuf, tempbuf + offset, tempread);
 945           *xfered_len = tempread;
 946           return tempread ? TARGET_XFER_OK : TARGET_XFER_EOF;
 947         }
 948         /* Fallthru */
 949     default:
 950       return ops->beneath->to_xfer_partial (ops->beneath, object, annex,
 951                                             readbuf, writebuf, offset, len,
 952                                             xfered_len);
 953     }
 954 }
 955
 956 /* Take a program previously attached to and detaches it.
 957    The program resumes execution and will no longer stop
 958    on signals, etc.  We'd better not have left any breakpoints
 959    in the program or it'll die when it hits one.  */
 960 static void
 961 procfs_detach (struct target_ops *ops, const char *args, int from_tty)
 962 {
 963   int siggnal = 0;
 964   int pid;
 965
 966   if (from_tty)
 967     {
 968       char *exec_file = get_exec_file (0);
 969       if (exec_file == 0)
 970         exec_file = "";
 971       printf_unfiltered ("Detaching from program: %s %s\n",
 972                          exec_file, target_pid_to_str (inferior_ptid));
 973       gdb_flush (gdb_stdout);
 974     }
 975   if (args)
 976     siggnal = atoi (args);
 977
 978   if (siggnal)
 979     SignalKill (nto_node (), ptid_get_pid (inferior_ptid), 0, siggnal, 0, 0);
 980
 981   close (ctl_fd);
 982   ctl_fd = -1;
 983
 984   pid = ptid_get_pid (inferior_ptid);
 985   inferior_ptid = null_ptid;
 986   detach_inferior (pid);
 987   init_thread_list ();
 988   inf_child_maybe_unpush_target (ops);
 989 }
 990
 991 static int
 992 procfs_breakpoint (CORE_ADDR addr, int type, int size)
 993 {
 994   procfs_break brk;
 995
 996   brk.type = type;
 997   brk.addr = addr;
 998   brk.size = size;
 999   errno = devctl (ctl_fd, DCMD_PROC_BREAK, &brk, sizeof (brk), 0);
1000   if (errno != EOK)
1001     return 1;
1002   return 0;
1003 }
1004
1005 static int
1006 procfs_insert_breakpoint (struct target_ops *ops, struct gdbarch *gdbarch,
1007                           struct bp_target_info *bp_tgt)
1008 {
1009   bp_tgt->placed_address = bp_tgt->reqstd_address;
1010   return procfs_breakpoint (bp_tgt->placed_address, _DEBUG_BREAK_EXEC, 0);
1011 }
1012
1013 static int
1014 procfs_remove_breakpoint (struct target_ops *ops, struct gdbarch *gdbarch,
1015                           struct bp_target_info *bp_tgt)
1016 {
1017   return procfs_breakpoint (bp_tgt->placed_address, _DEBUG_BREAK_EXEC, -1);
1018 }
1019
1020 static int
1021 procfs_insert_hw_breakpoint (struct target_ops *self, struct gdbarch *gdbarch,
1022                              struct bp_target_info *bp_tgt)
1023 {
1024   bp_tgt->placed_address = bp_tgt->reqstd_address;
1025   return procfs_breakpoint (bp_tgt->placed_address,
1026                             _DEBUG_BREAK_EXEC | _DEBUG_BREAK_HW, 0);
1027 }
1028
1029 static int
1030 procfs_remove_hw_breakpoint (struct target_ops *self,
1031                              struct gdbarch *gdbarch,
1032                              struct bp_target_info *bp_tgt)
1033 {
1034   return procfs_breakpoint (bp_tgt->placed_address,
1035                             _DEBUG_BREAK_EXEC | _DEBUG_BREAK_HW, -1);
1036 }
1037
1038 static void
1039 procfs_resume (struct target_ops *ops,
1040                ptid_t ptid, int step, enum gdb_signal signo)
1041 {
1042   int signal_to_pass;
1043   procfs_status status;
1044   sigset_t *run_fault = (sigset_t *) (void *) &run.fault;
1045
1046   if (ptid_equal (inferior_ptid, null_ptid))
1047     return;
1048
1049   procfs_set_thread (ptid_equal (ptid, minus_one_ptid) ? inferior_ptid :
1050                      ptid);
1051
1052   run.flags = _DEBUG_RUN_FAULT | _DEBUG_RUN_TRACE;
1053   if (step)
1054     run.flags |= _DEBUG_RUN_STEP;
1055
1056   sigemptyset (run_fault);
1057   sigaddset (run_fault, FLTBPT);
1058   sigaddset (run_fault, FLTTRACE);
1059   sigaddset (run_fault, FLTILL);
1060   sigaddset (run_fault, FLTPRIV);
1061   sigaddset (run_fault, FLTBOUNDS);
1062   sigaddset (run_fault, FLTIOVF);
1063   sigaddset (run_fault, FLTIZDIV);
1064   sigaddset (run_fault, FLTFPE);
1065   /* Peter V will be changing this at some point.  */
1066   sigaddset (run_fault, FLTPAGE);
1067
1068   run.flags |= _DEBUG_RUN_ARM;
1069
1070   signal_to_pass = gdb_signal_to_host (signo);
1071
1072   if (signal_to_pass)
1073     {
1074       devctl (ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), 0);
1075       signal_to_pass = gdb_signal_to_host (signo);
1076       if (status.why & (_DEBUG_WHY_SIGNALLED | _DEBUG_WHY_FAULTED))
1077         {
1078           if (signal_to_pass != status.info.si_signo)
1079             {
1080               SignalKill (nto_node (), ptid_get_pid (inferior_ptid), 0,
1081                           signal_to_pass, 0, 0);
1082               run.flags |= _DEBUG_RUN_CLRFLT | _DEBUG_RUN_CLRSIG;
1083             }
1084           else          /* Let it kill the program without telling us.  */
1085             sigdelset (&run.trace, signal_to_pass);
1086         }
1087     }
1088   else
1089     run.flags |= _DEBUG_RUN_CLRSIG | _DEBUG_RUN_CLRFLT;
1090
1091   errno = devctl (ctl_fd, DCMD_PROC_RUN, &run, sizeof (run), 0);
1092   if (errno != EOK)
1093     {
1094       perror (_("run error!\n"));
1095       return;
1096     }
1097 }
1098
1099 static void
1100 procfs_mourn_inferior (struct target_ops *ops)
1101 {
1102   if (!ptid_equal (inferior_ptid, null_ptid))
1103     {
1104       SignalKill (nto_node (), ptid_get_pid (inferior_ptid), 0, SIGKILL, 0, 0);
1105       close (ctl_fd);
1106     }
1107   inferior_ptid = null_ptid;
1108   init_thread_list ();
1109   inf_child_mourn_inferior (ops);
1110 }
1111
1112 /* This function breaks up an argument string into an argument
1113    vector suitable for passing to execvp().
1114    E.g., on "run a b c d" this routine would get as input
1115    the string "a b c d", and as output it would fill in argv with
1116    the four arguments "a", "b", "c", "d".  The only additional
1117    functionality is simple quoting.  The gdb command:
1118         run a "b c d" f
1119    will fill in argv with the three args "a", "b c d", "e".  */
1120 static void
1121 breakup_args (char *scratch, char **argv)
1122 {
1123   char *pp, *cp = scratch;
1124   char quoting = 0;
1125
1126   for (;;)
1127     {
1128       /* Scan past leading separators.  */
1129       quoting = 0;
1130       while (*cp == ' ' || *cp == '\t' || *cp == '\n')
1131         cp++;
1132
1133       /* Break if at end of string.  */
1134       if (*cp == '\0')
1135         break;
1136
1137       /* Take an arg.  */
1138       if (*cp == '"')
1139         {
1140           cp++;
1141           quoting = strchr (cp, '"') ? 1 : 0;
1142         }
1143
1144       *argv++ = cp;
1145
1146       /* Scan for next arg separator.  */
1147       pp = cp;
1148       if (quoting)
1149         cp = strchr (pp, '"');
1150       if ((cp == NULL) || (!quoting))
1151         cp = strchr (pp, ' ');
1152       if (cp == NULL)
1153         cp = strchr (pp, '\t');
1154       if (cp == NULL)
1155         cp = strchr (pp, '\n');
1156
1157       /* No separators => end of string => break.  */
1158       if (cp == NULL)
1159         {
1160           pp = cp;
1161           break;
1162         }
1163
1164       /* Replace the separator with a terminator.  */
1165       *cp++ = '\0';
1166     }
1167
1168   /* Execv requires a null-terminated arg vector.  */
1169   *argv = NULL;
1170 }
1171
1172 static void
1173 procfs_create_inferior (struct target_ops *ops, char *exec_file,
1174                         char *allargs, char **env, int from_tty)
1175 {
1176   struct inheritance inherit;
1177   pid_t pid;
1178   int flags, errn;
1179   char **argv, *args;
1180   const char *in = "", *out = "", *err = "";
1181   int fd, fds[3];
1182   sigset_t set;
1183   const char *inferior_io_terminal = get_inferior_io_terminal ();
1184   struct inferior *inf;
1185
1186   argv = xmalloc (((strlen (allargs) + 1) / (unsigned) 2 + 2) *
1187                   sizeof (*argv));
1188   argv[0] = get_exec_file (1);
1189   if (!argv[0])
1190     {
1191       if (exec_file)
1192         argv[0] = exec_file;
1193       else
1194         return;
1195     }
1196
1197   args = xstrdup (allargs);
1198   breakup_args (args, (exec_file != NULL) ? &argv[1] : &argv[0]);
1199
1200   argv = nto_parse_redirection (argv, &in, &out, &err);
1201
1202   fds[0] = STDIN_FILENO;
1203   fds[1] = STDOUT_FILENO;
1204   fds[2] = STDERR_FILENO;
1205
1206   /* If the user specified I/O via gdb's --tty= arg, use it, but only
1207      if the i/o is not also being specified via redirection.  */
1208   if (inferior_io_terminal)
1209     {
1210       if (!in[0])
1211         in = inferior_io_terminal;
1212       if (!out[0])
1213         out = inferior_io_terminal;
1214       if (!err[0])
1215         err = inferior_io_terminal;
1216     }
1217
1218   if (in[0])
1219     {
1220       fd = open (in, O_RDONLY);
1221       if (fd == -1)
1222         perror (in);
1223       else
1224         fds[0] = fd;
1225     }
1226   if (out[0])
1227     {
1228       fd = open (out, O_WRONLY);
1229       if (fd == -1)
1230         perror (out);
1231       else
1232         fds[1] = fd;
1233     }
1234   if (err[0])
1235     {
1236       fd = open (err, O_WRONLY);
1237       if (fd == -1)
1238         perror (err);
1239       else
1240         fds[2] = fd;
1241     }
1242
1243   /* Clear any pending SIGUSR1's but keep the behavior the same.  */
1244   signal (SIGUSR1, signal (SIGUSR1, SIG_IGN));
1245
1246   sigemptyset (&set);
1247   sigaddset (&set, SIGUSR1);
1248   sigprocmask (SIG_UNBLOCK, &set, NULL);
1249
1250   memset (&inherit, 0, sizeof (inherit));
1251
1252   if (ND_NODE_CMP (nto_procfs_node, ND_LOCAL_NODE) != 0)
1253     {
1254       inherit.nd = nto_node ();
1255       inherit.flags |= SPAWN_SETND;
1256       inherit.flags &= ~SPAWN_EXEC;
1257     }
1258   inherit.flags |= SPAWN_SETGROUP | SPAWN_HOLD;
1259   inherit.pgroup = SPAWN_NEWPGROUP;
1260   pid = spawnp (argv[0], 3, fds, &inherit, argv,
1261                 ND_NODE_CMP (nto_procfs_node, ND_LOCAL_NODE) == 0 ? env : 0);
1262   xfree (args);
1263
1264   sigprocmask (SIG_BLOCK, &set, NULL);
1265
1266   if (pid == -1)
1267     error (_("Error spawning %s: %d (%s)"), argv[0], errno,
1268            safe_strerror (errno));
1269
1270   if (fds[0] != STDIN_FILENO)
1271     close (fds[0]);
1272   if (fds[1] != STDOUT_FILENO)
1273     close (fds[1]);
1274   if (fds[2] != STDERR_FILENO)
1275     close (fds[2]);
1276
1277   inferior_ptid = do_attach (pid_to_ptid (pid));
1278   procfs_update_thread_list (ops);
1279
1280   inf = current_inferior ();
1281   inferior_appeared (inf, pid);
1282   inf->attach_flag = 0;
1283
1284   flags = _DEBUG_FLAG_KLC;      /* Kill-on-Last-Close flag.  */
1285   errn = devctl (ctl_fd, DCMD_PROC_SET_FLAG, &flags, sizeof (flags), 0);
1286   if (errn != EOK)
1287     {
1288       /* FIXME: expected warning?  */
1289       /* warning( "Failed to set Kill-on-Last-Close flag: errno = %d(%s)\n",
1290          errn, strerror(errn) ); */
1291     }
1292   if (!target_is_pushed (ops))
1293     push_target (ops);
1294   target_terminal_init ();
1295
1296   if (exec_bfd != NULL
1297       || (symfile_objfile != NULL && symfile_objfile->obfd != NULL))
1298     solib_create_inferior_hook (0);
1299 }
1300
1301 static void
1302 procfs_interrupt (struct target_ops *self, ptid_t ptid)
1303 {
1304   devctl (ctl_fd, DCMD_PROC_STOP, NULL, 0, 0);
1305 }
1306
1307 static void
1308 procfs_kill_inferior (struct target_ops *ops)
1309 {
1310   target_mourn_inferior ();
1311 }
1312
1313 /* Fill buf with regset and return devctl cmd to do the setting.  Return
1314    -1 if we fail to get the regset.  Store size of regset in regsize.  */
1315 static int
1316 get_regset (int regset, char *buf, int bufsize, int *regsize)
1317 {
1318   int dev_get, dev_set;
1319   switch (regset)
1320     {
1321     case NTO_REG_GENERAL:
1322       dev_get = DCMD_PROC_GETGREG;
1323       dev_set = DCMD_PROC_SETGREG;
1324       break;
1325
1326     case NTO_REG_FLOAT:
1327       dev_get = DCMD_PROC_GETFPREG;
1328       dev_set = DCMD_PROC_SETFPREG;
1329       break;
1330
1331     case NTO_REG_ALT:
1332       dev_get = DCMD_PROC_GETALTREG;
1333       dev_set = DCMD_PROC_SETALTREG;
1334       break;
1335
1336     case NTO_REG_SYSTEM:
1337     default:
1338       return -1;
1339     }
1340   if (devctl (ctl_fd, dev_get, buf, bufsize, regsize) != EOK)
1341     return -1;
1342
1343   return dev_set;
1344 }
1345
1346 static void
1347 procfs_store_registers (struct target_ops *ops,
1348                         struct regcache *regcache, int regno)
1349 {
1350   union
1351   {
1352     procfs_greg greg;
1353     procfs_fpreg fpreg;
1354     procfs_altreg altreg;
1355   }
1356   reg;
1357   unsigned off;
1358   int len, regset, regsize, dev_set, err;
1359   char *data;
1360
1361   if (ptid_equal (inferior_ptid, null_ptid))
1362     return;
1363   procfs_set_thread (inferior_ptid);
1364
1365   if (regno == -1)
1366     {
1367       for (regset = NTO_REG_GENERAL; regset < NTO_REG_END; regset++)
1368         {
1369           dev_set = get_regset (regset, (char *) &reg,
1370                                 sizeof (reg), &regsize);
1371           if (dev_set == -1)
1372             continue;
1373
1374           if (nto_regset_fill (regcache, regset, (char *) &reg) == -1)
1375             continue;
1376
1377           err = devctl (ctl_fd, dev_set, &reg, regsize, 0);
1378           if (err != EOK)
1379             fprintf_unfiltered (gdb_stderr,
1380                                 "Warning unable to write regset %d: %s\n",
1381                                 regno, safe_strerror (err));
1382         }
1383     }
1384   else
1385     {
1386       regset = nto_regset_id (regno);
1387       if (regset == -1)
1388         return;
1389
1390       dev_set = get_regset (regset, (char *) &reg, sizeof (reg), &regsize);
1391       if (dev_set == -1)
1392         return;
1393
1394       len = nto_register_area (get_regcache_arch (regcache),
1395                                regno, regset, &off);
1396
1397       if (len < 1)
1398         return;
1399
1400       regcache_raw_collect (regcache, regno, (char *) &reg + off);
1401
1402       err = devctl (ctl_fd, dev_set, &reg, regsize, 0);
1403       if (err != EOK)
1404         fprintf_unfiltered (gdb_stderr,
1405                             "Warning unable to write regset %d: %s\n", regno,
1406                             safe_strerror (err));
1407     }
1408 }
1409
1410 /* Set list of signals to be handled in the target.  */
1411
1412 static void
1413 procfs_pass_signals (struct target_ops *self,
1414                      int numsigs, unsigned char *pass_signals)
1415 {
1416   int signo;
1417
1418   sigfillset (&run.trace);
1419
1420   for (signo = 1; signo < NSIG; signo++)
1421     {
1422       int target_signo = gdb_signal_from_host (signo);
1423       if (target_signo < numsigs && pass_signals[target_signo])
1424         sigdelset (&run.trace, signo);
1425     }
1426 }
1427
1428 static char *
1429 procfs_pid_to_str (struct target_ops *ops, ptid_t ptid)
1430 {
1431   static char buf[1024];
1432   int pid, tid, n;
1433   struct tidinfo *tip;
1434
1435   pid = ptid_get_pid (ptid);
1436   tid = ptid_get_tid (ptid);
1437
1438   n = snprintf (buf, 1023, "process %d", pid);
1439
1440 #if 0                           /* NYI */
1441   tip = procfs_thread_info (pid, tid);
1442   if (tip != NULL)
1443     snprintf (&buf[n], 1023, " (state = 0x%02x)", tip->state);
1444 #endif
1445
1446   return buf;
1447 }
1448
1449 /* to_can_run implementation for "target procfs".  Note this really
1450   means "can this target be the default run target", which there can
1451   be only one, and we make it be "target native" like other ports.
1452   "target procfs <node>" wouldn't make sense as default run target, as
1453   it needs <node>.  */
1454
1455 static int
1456 procfs_can_run (struct target_ops *self)
1457 {
1458   return 0;
1459 }
1460
1461 /* "target procfs".  */
1462 static struct target_ops nto_procfs_ops;
1463
1464 /* "target native".  */
1465 static struct target_ops *nto_native_ops;
1466
1467 /* to_open implementation for "target procfs".  */
1468
1469 static void
1470 procfs_open (const char *arg, int from_tty)
1471 {
1472   procfs_open_1 (&nto_procfs_ops, arg, from_tty);
1473 }
1474
1475 /* to_open implementation for "target native".  */
1476
1477 static void
1478 procfs_native_open (const char *arg, int from_tty)
1479 {
1480   procfs_open_1 (nto_native_ops, arg, from_tty);
1481 }
1482
1483 /* Create the "native" and "procfs" targets.  */
1484
1485 static void
1486 init_procfs_targets (void)
1487 {
1488   struct target_ops *t = inf_child_target ();
1489
1490   /* Leave to_shortname as "native".  */
1491   t->to_longname = "QNX Neutrino local process";
1492   t->to_doc = "QNX Neutrino local process (started by the \"run\" command).";
1493   t->to_open = procfs_native_open;
1494   t->to_attach = procfs_attach;
1495   t->to_post_attach = procfs_post_attach;
1496   t->to_detach = procfs_detach;
1497   t->to_resume = procfs_resume;
1498   t->to_wait = procfs_wait;
1499   t->to_fetch_registers = procfs_fetch_registers;
1500   t->to_store_registers = procfs_store_registers;
1501   t->to_xfer_partial = procfs_xfer_partial;
1502   t->to_files_info = procfs_files_info;
1503   t->to_insert_breakpoint = procfs_insert_breakpoint;
1504   t->to_remove_breakpoint = procfs_remove_breakpoint;
1505   t->to_can_use_hw_breakpoint = procfs_can_use_hw_breakpoint;
1506   t->to_insert_hw_breakpoint = procfs_insert_hw_breakpoint;
1507   t->to_remove_hw_breakpoint = procfs_remove_hw_breakpoint;
1508   t->to_insert_watchpoint = procfs_insert_hw_watchpoint;
1509   t->to_remove_watchpoint = procfs_remove_hw_watchpoint;
1510   t->to_stopped_by_watchpoint = procfs_stopped_by_watchpoint;
1511   t->to_kill = procfs_kill_inferior;
1512   t->to_create_inferior = procfs_create_inferior;
1513   t->to_mourn_inferior = procfs_mourn_inferior;
1514   t->to_pass_signals = procfs_pass_signals;
1515   t->to_thread_alive = procfs_thread_alive;
1516   t->to_update_thread_list = procfs_update_thread_list;
1517   t->to_pid_to_str = procfs_pid_to_str;
1518   t->to_interrupt = procfs_interrupt;
1519   t->to_have_continuable_watchpoint = 1;
1520   t->to_extra_thread_info = nto_extra_thread_info;
1521   t->to_pid_to_exec_file = procfs_pid_to_exec_file;
1522
1523   nto_native_ops = t;
1524
1525   /* Register "target native".  This is the default run target.  */
1526   add_target (t);
1527
1528   /* Register "target procfs <node>".  */
1529   nto_procfs_ops = *t;
1530   nto_procfs_ops.to_shortname = "procfs";
1531   nto_procfs_ops.to_can_run = procfs_can_run;
1532   t->to_longname = "QNX Neutrino local or remote process";
1533   t->to_doc = "QNX Neutrino process.  target procfs <node>";
1534   t->to_open = procfs_open;
1535
1536   add_target (&nto_procfs_ops);
1537 }
1538
1539 #define OSTYPE_NTO 1
1540
1541 extern initialize_file_ftype _initialize_procfs;
1542
1543 void
1544 _initialize_procfs (void)
1545 {
1546   sigset_t set;
1547
1548   init_procfs_targets ();
1549
1550   /* We use SIGUSR1 to gain control after we block waiting for a process.
1551      We use sigwaitevent to wait.  */
1552   sigemptyset (&set);
1553   sigaddset (&set, SIGUSR1);
1554   sigprocmask (SIG_BLOCK, &set, NULL);
1555
1556   /* Initially, make sure all signals are reported.  */
1557   sigfillset (&run.trace);
1558
1559   /* Stuff some information.  */
1560   nto_cpuinfo_flags = SYSPAGE_ENTRY (cpuinfo)->flags;
1561   nto_cpuinfo_valid = 1;
1562
1563   add_info ("pidlist", procfs_pidlist, _("pidlist"));
1564   add_info ("meminfo", procfs_meminfo, _("memory information"));
1565
1566   nto_is_nto_target = procfs_is_nto_target;
1567 }
1568
1569
1570 static int
1571 procfs_hw_watchpoint (int addr, int len, enum target_hw_bp_type type)
1572 {
1573   procfs_break brk;
1574
1575   switch (type)
1576     {
1577     case hw_read:
1578       brk.type = _DEBUG_BREAK_RD;
1579       break;
1580     case hw_access:
1581       brk.type = _DEBUG_BREAK_RW;
1582       break;
1583     default:                    /* Modify.  */
1584 /* FIXME: brk.type = _DEBUG_BREAK_RWM gives EINVAL for some reason.  */
1585       brk.type = _DEBUG_BREAK_RW;
1586     }
1587   brk.type |= _DEBUG_BREAK_HW;  /* Always ask for HW.  */
1588   brk.addr = addr;
1589   brk.size = len;
1590
1591   errno = devctl (ctl_fd, DCMD_PROC_BREAK, &brk, sizeof (brk), 0);
1592   if (errno != EOK)
1593     {
1594       perror (_("Failed to set hardware watchpoint"));
1595       return -1;
1596     }
1597   return 0;
1598 }
1599
1600 static int
1601 procfs_can_use_hw_breakpoint (struct target_ops *self,
1602                               enum bptype type,
1603                               int cnt, int othertype)
1604 {
1605   return 1;
1606 }
1607
1608 static int
1609 procfs_remove_hw_watchpoint (struct target_ops *self,
1610                              CORE_ADDR addr, int len,
1611                              enum target_hw_bp_type type,
1612                              struct expression *cond)
1613 {
1614   return procfs_hw_watchpoint (addr, -1, type);
1615 }
1616
1617 static int
1618 procfs_insert_hw_watchpoint (struct target_ops *self,
1619                              CORE_ADDR addr, int len,
1620                              enum target_hw_bp_type type,
1621                              struct expression *cond)
1622 {
1623   return procfs_hw_watchpoint (addr, len, type);
1624 }
1625
1626 static int
1627 procfs_stopped_by_watchpoint (struct target_ops *ops)
1628 {
1629   return 0;
1630 }