* gdb.fortran/types.exp: Escape brackets in expect patterns

[binutils.git] / gdb / lynx-nat.c

diff --git a/gdb/lynx-nat.c b/gdb/lynx-nat.c
index 4b2d288eee9192f1e155d9c262e8c35a486ba7c0..f006aa46c9c349eae9d74af7c11dda7547bc32d2 100644 (file)
--- a/gdb/lynx-nat.c
+++ b/gdb/lynx-nat.c
@@ -15,18 +15,20 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #include "defs.h"
 #include "frame.h"
 #include "inferior.h"
 #include "target.h"
+#include "gdbcore.h"
 
 #include <sys/ptrace.h>
 #include <sys/wait.h>
 #include <sys/fpp.h>
 
 static unsigned long registers_addr PARAMS ((int pid));
+static void fetch_core_registers PARAMS ((char *, unsigned, int, CORE_ADDR);
 
 #define X(ENTRY)(offsetof(struct econtext, ENTRY))
 
@@ -654,18 +656,32 @@ child_wait (pid, ourstatus)
 
          if (realsig == SIGNEWTHREAD)
            {
-             /* It's a new thread notification.  Nothing to do here since
-                the machine independent code in wait_for_inferior will
-                add the thread to the thread list and restart the thread
-                when pid != inferior_pid and pid is not in the thread
-                list.   We don't even want to much with realsig -- the
-                code in wait_for_inferior expects SIGTRAP.  */
-             ;
+             /* It's a new thread notification.  We don't want to much with
+                realsig -- the code in wait_for_inferior expects SIGTRAP. */
+             ourstatus->kind = TARGET_WAITKIND_SPURIOUS;
+             ourstatus->value.sig = TARGET_SIGNAL_0;
+             return pid;
            }
          else
            error ("Signal for unknown thread was not SIGNEWTHREAD");
        }
 
+      /* Check for thread termination.  */
+      else if (WIFSTOPPED(status)
+              && WSTOPSIG(status) == SIGTRAP
+              && in_thread_list (pid))
+       {
+         int realsig;
+
+         realsig = ptrace (PTRACE_GETTRACESIG, pid, (PTRACE_ARG3_TYPE)0, 0);
+
+         if (realsig == SIGTHREADEXIT)
+           {
+             ptrace (PTRACE_CONT, PIDGET (pid), (PTRACE_ARG3_TYPE)0, 0);
+             continue;
+           }
+       }
+
 #ifdef SPARC
       /* SPARC Lynx uses an byte reversed wait status; we must use the
         host macros to access it.  These lines just a copy of
@@ -780,12 +796,12 @@ lynx_pid_to_str (pid)
            Original upage address X is at location core_reg_sect+x+reg_addr.
  */
 
-void
+static void
 fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
      char *core_reg_sect;
      unsigned core_reg_size;
      int which;
-     unsigned reg_addr;
+     CORE_ADDR reg_addr;
 {
   struct st_entry s;
   unsigned int regno;
@@ -802,3 +818,20 @@ fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
   fetch_inferior_registers (I0_REGNUM);
 #endif
 }
+
+\f
+/* Register that we are able to handle lynx core file formats.
+   FIXME: is this really bfd_target_unknown_flavour? */
+
+static struct core_fns lynx_core_fns =
+{
+  bfd_target_unknown_flavour,
+  fetch_core_registers,
+  NULL
+};
+
+void
+_initialize_core_lynx ()
+{
+  add_core_fns (&lynx_core_fns);
+}