massive sanitization fixes
[deliverable/binutils-gdb.git] / gdb / win32-nat.c
index feed5f5e64332940ef074d01c821345ff5223bfc..be83b7af3e5c0f906bcb1721d4c9055c7a7a1219 100644 (file)
@@ -1,8 +1,7 @@
 /* Target-vector operations for controlling win32 child processes, for GDB.
-   Copyright 1995
-   Free Software Foundation, Inc.
-
+   Copyright 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
    Contributed by Cygnus Support.
+
    This file is part of GDB.
 
    This program is free software; you can redistribute it and/or modify
 
    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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/
 
 /* by Steve Chamberlain, sac@cygnus.com */
 
+/* We assume we're being built with and will be used for cygwin32.  */
+
 #include "defs.h"
 #include "frame.h"             /* required by inferior.h */
 #include "inferior.h"
 #include <signal.h>
 #include <sys/types.h>
 #include <fcntl.h>
+#include <stdlib.h>
+
+#ifdef _MSC_VER
+#include "windefs.h"
+#else /* other WIN32 compiler */
 #include <windows.h>
+#endif
+
 #include "buildsym.h"
+#include "symfile.h"
+#include "objfiles.h"
 #include "gdb_string.h"
-#include "thread.h"
+#include "gdbthread.h"
 #include "gdbcmd.h"
+#include <sys/param.h>
+#include <unistd.h>
 
-#define CHECK(x) check (x, __FILE__,__LINE__)
-#define DEBUG(x) if (remote_debug) printf x
-
+#define CHECK(x)       check (x, __FILE__,__LINE__)
+#define DEBUG_EXEC(x)  if (debug_exec)         printf x
+#define DEBUG_EVENTS(x)        if (debug_events)       printf x
+#define DEBUG_MEM(x)   if (debug_memory)       printf x
+#define DEBUG_EXCEPT(x)        if (debug_exceptions)   printf x
 
 /* Forward declaration */
 extern struct target_ops child_ops;
 
+static void child_stop PARAMS ((void));
+
 /* The most recently read context. Inspect ContextFlags to see what 
    bits are valid. */
 
@@ -63,6 +80,10 @@ static int event_count = 0;
 /* User options. */
 static int new_console = 0;
 static int new_group = 0;
+static int debug_exec = 0;             /* show execution */
+static int debug_events = 0;           /* show events from kernel */
+static int debug_memory = 0;           /* show target memory accesses */
+static int debug_exceptions = 0;       /* show target exceptions */
 
 /* This vector maps GDB's idea of a register's number into an address
    in the win32 exception context vector. 
@@ -83,9 +104,90 @@ struct regmappings
     int mask;
   };
 
-static const struct regmappings
-  mappings[] =
+static const struct regmappings  mappings[] =
 {
+#ifdef __PPC__
+  {(char *) &context.Gpr0, CONTEXT_INTEGER},
+  {(char *) &context.Gpr1, CONTEXT_INTEGER},
+  {(char *) &context.Gpr2, CONTEXT_INTEGER},
+  {(char *) &context.Gpr3, CONTEXT_INTEGER},
+  {(char *) &context.Gpr4, CONTEXT_INTEGER},
+  {(char *) &context.Gpr5, CONTEXT_INTEGER},
+  {(char *) &context.Gpr6, CONTEXT_INTEGER},
+  {(char *) &context.Gpr7, CONTEXT_INTEGER},
+
+  {(char *) &context.Gpr8, CONTEXT_INTEGER},
+  {(char *) &context.Gpr9, CONTEXT_INTEGER},
+  {(char *) &context.Gpr10, CONTEXT_INTEGER},
+  {(char *) &context.Gpr11, CONTEXT_INTEGER},
+  {(char *) &context.Gpr12, CONTEXT_INTEGER},
+  {(char *) &context.Gpr13, CONTEXT_INTEGER},
+  {(char *) &context.Gpr14, CONTEXT_INTEGER},
+  {(char *) &context.Gpr15, CONTEXT_INTEGER},
+
+  {(char *) &context.Gpr16, CONTEXT_INTEGER},
+  {(char *) &context.Gpr17, CONTEXT_INTEGER},
+  {(char *) &context.Gpr18, CONTEXT_INTEGER},
+  {(char *) &context.Gpr19, CONTEXT_INTEGER},
+  {(char *) &context.Gpr20, CONTEXT_INTEGER},
+  {(char *) &context.Gpr21, CONTEXT_INTEGER},
+  {(char *) &context.Gpr22, CONTEXT_INTEGER},
+  {(char *) &context.Gpr23, CONTEXT_INTEGER},
+
+  {(char *) &context.Gpr24, CONTEXT_INTEGER},
+  {(char *) &context.Gpr25, CONTEXT_INTEGER},
+  {(char *) &context.Gpr26, CONTEXT_INTEGER},
+  {(char *) &context.Gpr27, CONTEXT_INTEGER},
+  {(char *) &context.Gpr28, CONTEXT_INTEGER},
+  {(char *) &context.Gpr29, CONTEXT_INTEGER},
+  {(char *) &context.Gpr30, CONTEXT_INTEGER},
+  {(char *) &context.Gpr31, CONTEXT_INTEGER},
+
+  {(char *) &context.Fpr0, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr1, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr2, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr3, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr4, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr5, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr6, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr7, CONTEXT_FLOATING_POINT},
+
+  {(char *) &context.Fpr8, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr9, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr10, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr11, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr12, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr13, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr14, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr15, CONTEXT_FLOATING_POINT},
+
+  {(char *) &context.Fpr16, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr17, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr18, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr19, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr20, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr21, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr22, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr23, CONTEXT_FLOATING_POINT},
+
+  {(char *) &context.Fpr24, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr25, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr26, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr27, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr28, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr29, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr30, CONTEXT_FLOATING_POINT},
+  {(char *) &context.Fpr31, CONTEXT_FLOATING_POINT},
+
+  {(char *) &context.Iar, CONTEXT_CONTROL},
+  {(char *) &context.Msr, CONTEXT_CONTROL},
+  {(char *) &context.Cr,  CONTEXT_INTEGER},
+  {(char *) &context.Lr,  CONTEXT_CONTROL},
+  {(char *) &context.Ctr, CONTEXT_CONTROL},
+
+  {(char *) &context.Xer, CONTEXT_INTEGER},
+  {0,0}, /* MQ, but there isn't one */
+#else
   {(char *) &context.Eax, CONTEXT_INTEGER},
   {(char *) &context.Ecx, CONTEXT_INTEGER},
   {(char *) &context.Edx, CONTEXT_INTEGER},
@@ -110,9 +212,9 @@ static const struct regmappings
   {&context.FloatSave.RegisterArea[5 * 10], CONTEXT_FLOATING_POINT},
   {&context.FloatSave.RegisterArea[6 * 10], CONTEXT_FLOATING_POINT},
   {&context.FloatSave.RegisterArea[7 * 10], CONTEXT_FLOATING_POINT},
+#endif
 };
 
-
 /* This vector maps the target's idea of an exception (extracted
    from the DEBUG_EVENT structure) to GDB's idea. */
 
@@ -122,17 +224,16 @@ struct xlate_exception
     enum target_signal us;
   };
 
-
 static const struct xlate_exception
   xlate[] =
 {
   {EXCEPTION_ACCESS_VIOLATION, TARGET_SIGNAL_SEGV},
+  {STATUS_STACK_OVERFLOW, TARGET_SIGNAL_SEGV},
   {EXCEPTION_BREAKPOINT, TARGET_SIGNAL_TRAP},
   {DBG_CONTROL_C, TARGET_SIGNAL_INT},
   {EXCEPTION_SINGLE_STEP, TARGET_SIGNAL_TRAP},
   {-1, -1}};
 
-
 static void 
 check (BOOL ok, const char *file, int line)
 {
@@ -172,10 +273,10 @@ child_store_inferior_registers (int r)
 /* Wait for child to do something.  Return pid of child, or -1 in case
    of error; store status through argument pointer OURSTATUS.  */
 
-
-static void 
-handle_load_dll (DEBUG_EVENT * event)
+static int
+handle_load_dll (char *eventp)
 {
+  DEBUG_EVENT * event = (DEBUG_EVENT *)eventp;
   DWORD dll_name_ptr;
   DWORD done;
 
@@ -189,7 +290,9 @@ handle_load_dll (DEBUG_EVENT * event)
 
   if (done == sizeof (dll_name_ptr) && dll_name_ptr)
     {
-      char *dll_name;
+      char *dll_name, *dll_basename;
+      struct objfile *objfile;
+      char unix_dll_name[MAX_PATH];
       int size = event->u.LoadDll.fUnicode ? sizeof (WCHAR) : sizeof (char);
       int len = 0;
       char b[2];
@@ -204,7 +307,6 @@ handle_load_dll (DEBUG_EVENT * event)
        }
       while ((b[0] != 0 || b[size - 1] != 0) && done == size);
 
-
       dll_name = alloca (len);
 
       if (event->u.LoadDll.fUnicode)
@@ -229,48 +331,102 @@ handle_load_dll (DEBUG_EVENT * event)
                             &done);
        }
 
+      /* FIXME: Can we delete this call?  */
+      cygwin32_conv_to_posix_path (dll_name, unix_dll_name);
+
       /* FIXME!! It would be nice to define one symbol which pointed to the 
          front of the dll if we can't find any symbols. */
 
-      context.ContextFlags = CONTEXT_FULL;
+       if (!(dll_basename = strrchr(dll_name, '\\')))
+       dll_basename = strrchr(dll_name, '/');
+       ALL_OBJFILES(objfile) 
+       {
+         char *objfile_basename;
+         if (!(objfile_basename = strrchr(objfile->name, '\\')))
+           objfile_basename = strrchr(objfile->name, '/');
+         if (dll_basename && objfile_basename &&
+             strcmp(dll_basename+1, objfile_basename+1) == 0)
+           {
+             printf_unfiltered ("%s (symbols previously loaded)\n", 
+                                dll_basename + 1);
+             return 1;
+           }
+       }
+
+      context.ContextFlags = CONTEXT_FULL | CONTEXT_FLOATING_POINT;
       GetThreadContext (current_thread, &context);
 
-      symbol_file_add (dll_name, 0, (int) event->u.LoadDll.lpBaseOfDll, 0, 0, 0);
+      /* The symbols in a dll are offset by 0x1000, which is the
+        the offset from 0 of the first byte in an image - because
+        of the file header and the section alignment. 
+        
+        FIXME: Is this the real reason that we need the 0x1000 ? */
 
-      /* We strip off the path of the dll for tidiness. */
-      if (strrchr (dll_name, '\\'))
-       dll_name = strrchr (dll_name, '\\') + 1;
-      printf_unfiltered ("%x:%s\n", event->u.LoadDll.lpBaseOfDll, dll_name);
+
+      symbol_file_add (unix_dll_name, 0,
+                      (int) event->u.LoadDll.lpBaseOfDll + 0x1000, 0, 0, 0);
+
+      printf_unfiltered ("%x:%s\n", event->u.LoadDll.lpBaseOfDll, 
+                        unix_dll_name);
     }
+  return 1;
 }
 
 
-static void
+static int
 handle_exception (DEBUG_EVENT * event, struct target_waitstatus *ourstatus)
 {
   int i;
   int done = 0;
   ourstatus->kind = TARGET_WAITKIND_STOPPED;
 
-  for (i = 0; !done && xlate[i].us > 0; i++)
-    {
-      if (xlate[i].them == event->u.Exception.ExceptionRecord.ExceptionCode)
-       {
-         ourstatus->value.sig = xlate[i].us;
-         done = 1;
-         break;
-       }
-    }
 
-  if (!done)
+  switch (event->u.Exception.ExceptionRecord.ExceptionCode) 
     {
-      printf_unfiltered ("Want to know about exception code %08x\n",
-                        event->u.Exception.ExceptionRecord.ExceptionCode);
+    case EXCEPTION_ACCESS_VIOLATION:
+      DEBUG_EXCEPT (("gdb: Target exception ACCESS_VIOLATION at 0x%08x\n",
+                    event->u.Exception.ExceptionRecord.ExceptionAddress));
+      ourstatus->value.sig = TARGET_SIGNAL_SEGV;
+      break;
+    case STATUS_STACK_OVERFLOW:
+      DEBUG_EXCEPT (("gdb: Target exception STACK_OVERFLOW at 0x%08x\n",
+                    event->u.Exception.ExceptionRecord.ExceptionAddress));
+      ourstatus->value.sig = TARGET_SIGNAL_SEGV;
+      break;
+    case EXCEPTION_BREAKPOINT:
+      DEBUG_EXCEPT (("gdb: Target exception BREAKPOINT at 0x%08x\n",
+                    event->u.Exception.ExceptionRecord.ExceptionAddress));
+      ourstatus->value.sig = TARGET_SIGNAL_TRAP;
+      break;
+    case DBG_CONTROL_C:
+      DEBUG_EXCEPT (("gdb: Target exception CONTROL_C at 0x%08x\n",
+                    event->u.Exception.ExceptionRecord.ExceptionAddress));
+      ourstatus->value.sig = TARGET_SIGNAL_INT;
+      break;
+    case EXCEPTION_SINGLE_STEP:
+      DEBUG_EXCEPT (("gdb: Target exception SINGLE_STEP at 0x%08x\n",
+                    event->u.Exception.ExceptionRecord.ExceptionAddress));
+      ourstatus->value.sig = TARGET_SIGNAL_TRAP;
+      break;
+    default:
+      /* This may be a structured exception handling exception.  In
+         that case, we want to let the program try to handle it, and
+         only break if we see the exception a second time.  */
+      if (event->u.Exception.dwFirstChance)
+       return 0;
+
+      printf_unfiltered ("gdb: unknown target exception 0x%08x at 0x%08x\n",
+                        event->u.Exception.ExceptionRecord.ExceptionCode,
+                        event->u.Exception.ExceptionRecord.ExceptionAddress);
       ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN;
+      break;
     }
-  context.ContextFlags = CONTEXT_FULL;
+  context.ContextFlags = CONTEXT_FULL | CONTEXT_FLOATING_POINT;
   GetThreadContext (current_thread, &context);
   exception_count++;
+  return 1;
 }
 
 static int
@@ -286,26 +442,38 @@ child_wait (int pid, struct target_waitstatus *ourstatus)
     {
       DEBUG_EVENT event;
       BOOL t = WaitForDebugEvent (&event, INFINITE);
-
-      DEBUG (("%d = WaitForDebugEvent() code=%d pid=%d tid=%d)\n",
-             t,
-             event.dwDebugEventCode,
-             event.dwProcessId,
-             event.dwThreadId));
+      char *p;
+      DWORD continue_status;
 
       event_count++;
 
       current_thread_id = event.dwThreadId;
       current_process_id = event.dwProcessId;
 
+      continue_status = DBG_CONTINUE;
+
       switch (event.dwDebugEventCode)
        {
        case CREATE_THREAD_DEBUG_EVENT:
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", 
+                       event.dwProcessId, event.dwThreadId,
+                       "CREATE_THREAD_DEBUG_EVENT"));
+         break;
        case EXIT_THREAD_DEBUG_EVENT:
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "EXIT_THREAD_DEBUG_EVENT"));
+         break;
        case CREATE_PROCESS_DEBUG_EVENT:
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "CREATE_PROCESS_DEBUG_EVENT"));
          break;
 
        case EXIT_PROCESS_DEBUG_EVENT:
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "EXIT_PROCESS_DEBUG_EVENT"));
          ourstatus->kind = TARGET_WAITKIND_EXITED;
          ourstatus->value.integer = event.u.ExitProcess.dwExitCode;
          CloseHandle (current_process);
@@ -314,27 +482,56 @@ child_wait (int pid, struct target_waitstatus *ourstatus)
          break;
 
        case LOAD_DLL_DEBUG_EVENT:
-         handle_load_dll (&event);
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "LOAD_DLL_DEBUG_EVENT"));
+         catch_errors (handle_load_dll,
+                       (char*) &event,
+                       "\n[failed reading symbols from DLL]\n",
+                       RETURN_MASK_ALL);
+         registers_changed();          /* mark all regs invalid */
+         break;
+       case UNLOAD_DLL_DEBUG_EVENT:
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "UNLOAD_DLL_DEBUG_EVENT"));
+         break;        /* FIXME: don't know what to do here */
+       case EXCEPTION_DEBUG_EVENT:
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "EXCEPTION_DEBUG_EVENT"));
+         if (handle_exception (&event, ourstatus))
+           return current_process_id;
+         continue_status = DBG_EXCEPTION_NOT_HANDLED;
+         break;
+
+       case OUTPUT_DEBUG_STRING_EVENT: /* message from the kernel */
+         DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
+                       event.dwProcessId, event.dwThreadId,
+                       "OUTPUT_DEBUG_STRING_EVENT"));
+         if (target_read_string
+             ((CORE_ADDR) event.u.DebugString.lpDebugStringData, 
+              &p, 1024, 0) && p && *p)
+           {
+             warning(p);
+             free(p);
+           }
          break;
-       case EXCEPTION_DEBUG_EVENT:
-         handle_exception (&event, ourstatus);
-         return current_process_id;
        default:
-         printf_unfiltered ("waitfor it %d %d %d %d\n", t,
-                            event.dwDebugEventCode,
-                            event.dwProcessId,
-                            event.dwThreadId);
+         printf_unfiltered ("gdb: kernel event for pid=%d tid=%d\n",
+                            event.dwProcessId, event.dwThreadId);
+         printf_unfiltered ("                 unknown event code %d\n",
+                            event.dwDebugEventCode);
          break;
        }
+      DEBUG_EVENTS (("ContinueDebugEvent (cpid=%d, ctid=%d, DBG_CONTINUE);\n",
+                    current_process_id, current_thread_id));
       CHECK (ContinueDebugEvent (current_process_id,
                                 current_thread_id,
-                                DBG_CONTINUE));
+                                continue_status));
     }
 }
 
-
-
-
 /* Attach to process PID, then initialize for debugging it.  */
 
 static void
@@ -354,7 +551,6 @@ child_attach (args, from_tty)
   if (!ok)
     error ("Can't attach to process.");
 
-
   exception_count = 0;
   event_count = 0;
 
@@ -376,7 +572,6 @@ child_attach (args, from_tty)
   push_target (&child_ops);
 }
 
-
 static void
 child_detach (args, from_tty)
      char *args;
@@ -395,7 +590,6 @@ child_detach (args, from_tty)
   unpush_target (&child_ops);
 }
 
-
 /* Print status information about what we're accessing.  */
 
 static void
@@ -415,20 +609,23 @@ child_open (arg, from_tty)
   error ("Use the \"run\" command to start a Unix child process.");
 }
 
-
 /* Start an inferior win32 child process and sets inferior_pid to its pid.
    EXEC_FILE is the file to run.
    ALLARGS is a string containing the arguments to the program.
    ENV is the environment vector to pass.  Errors reported with error().  */
 
-
 static void
 child_create_inferior (exec_file, allargs, env)
      char *exec_file;
      char *allargs;
      char **env;
 {
-  char *real_path;
+  char real_path[MAXPATHLEN];
+  char *winenv;
+  char *temp;
+  int  envlen;
+  int i;
+
   STARTUPINFO si;
   PROCESS_INFORMATION pi;
   struct target_waitstatus dummy;
@@ -444,11 +641,9 @@ child_create_inferior (exec_file, allargs, env)
   memset (&si, 0, sizeof (si));
   si.cb = sizeof (si);
 
-  /* A realpath is always the same size, or a bit shorter than a nice path. */
-  real_path = alloca (strlen (exec_file) + 1);
-  path_to_real_path (exec_file, real_path);
+  cygwin32_conv_to_win32_path (exec_file, real_path);
 
-  flags = DEBUG_ONLY_THIS_PROCESS | DEBUG_PROCESS;
+  flags = DEBUG_ONLY_THIS_PROCESS
 
   if (new_group)
     flags |= CREATE_NEW_PROCESS_GROUP;
@@ -456,19 +651,93 @@ child_create_inferior (exec_file, allargs, env)
   if (new_console)
     flags |= CREATE_NEW_CONSOLE;
 
-  args = alloca (strlen (exec_file) + strlen (allargs) + 2);
+  args = alloca (strlen (real_path) + strlen (allargs) + 2);
+
+  strcpy (args, real_path);
 
-  strcpy (args, exec_file);
   strcat (args, " ");
   strcat (args, allargs);
 
-  ret = CreateProcess (real_path,
-                      args,
+  /* Prepare the environment vars for CreateProcess.  */
+  {
+    /* This code use to assume all env vars were file names and would
+       translate them all to win32 style.  That obviously doesn't work in the
+       general case.  The current rule is that we only translate PATH.
+       We need to handle PATH because we're about to call CreateProcess and
+       it uses PATH to find DLL's.  Fortunately PATH has a well-defined value
+       in both posix and win32 environments.  cygwin.dll will change it back
+       to posix style if necessary.  */
+
+    static const char *conv_path_names[] =
+      {
+       "PATH=",
+       0
+      };
+
+    /* CreateProcess takes the environment list as a null terminated set of
+       strings (i.e. two nulls terminate the list).  */
+
+    /* Get total size for env strings.  */
+    for (envlen = 0, i = 0; env[i] && *env[i]; i++)
+      {
+       int j, len;
+
+       for (j = 0; conv_path_names[j]; j++)
+         {
+           len = strlen (conv_path_names[j]);
+           if (strncmp (conv_path_names[j], env[i], len) == 0)
+             {
+               if (cygwin32_posix_path_list_p (env[i] + len))
+                 envlen += len
+                   + cygwin32_posix_to_win32_path_list_buf_size (env[i] + len);
+               else
+                 envlen += strlen (env[i]) + 1;
+               break;
+             }
+         }
+       if (conv_path_names[j] == NULL)
+         envlen += strlen (env[i]) + 1;
+      }
+
+    winenv = alloca (envlen + 1);
+
+    /* Copy env strings into new buffer.  */
+    for (temp = winenv, i = 0; env[i] && *env[i]; i++) 
+      {
+       int j, len;
+
+       for (j = 0; conv_path_names[j]; j++)
+         {
+           len = strlen (conv_path_names[j]);
+           if (strncmp (conv_path_names[j], env[i], len) == 0)
+             {
+               if (cygwin32_posix_path_list_p (env[i] + len))
+                 {
+                   memcpy (temp, env[i], len);
+                   cygwin32_posix_to_win32_path_list (env[i] + len, temp + len);
+                 }
+               else
+                 strcpy (temp, env[i]);
+               break;
+             }
+         }
+       if (conv_path_names[j] == NULL)
+         strcpy (temp, env[i]);
+
+       temp += strlen (temp) + 1;
+      }
+
+    /* Final nil string to terminate new env.  */
+    *temp = 0;
+  }
+
+  ret = CreateProcess (0,
+                      args,    /* command line */
                       NULL,    /* Security */
                       NULL,    /* thread */
                       TRUE,    /* inherit handles */
                       flags,   /* start flags */
-                      env,
+                      winenv,
                       NULL,    /* current directory */
                       &si,
                       &pi);
@@ -499,18 +768,22 @@ child_create_inferior (exec_file, allargs, env)
 static void
 child_mourn_inferior ()
 {
+  (void) ContinueDebugEvent (current_process_id,
+                            current_thread_id,
+                            DBG_CONTINUE);
   unpush_target (&child_ops);
   generic_mourn_inferior ();
 }
 
-
 /* Send a SIGINT to the process group.  This acts just like the user typed a
    ^C on the controlling terminal. */
 
-void
+static void
 child_stop ()
 {
+  DEBUG_EVENTS (("gdb: GenerateConsoleCtrlEvent (CTRLC_EVENT, 0)\n"));
   CHECK (GenerateConsoleCtrlEvent (CTRL_C_EVENT, 0));
+  registers_changed();         /* refresh register state */
 }
 
 int
@@ -520,11 +793,15 @@ child_xfer_memory (CORE_ADDR memaddr, char *our, int len,
   DWORD done;
   if (write)
     {
+      DEBUG_MEM (("gdb: write target memory, %d bytes at 0x%08x\n",
+                 len, memaddr));
       WriteProcessMemory (current_process, memaddr, our, len, &done);
       FlushInstructionCache (current_process, memaddr, len);
     }
   else
     {
+      DEBUG_MEM (("gdb: read target memory, %d bytes at 0x%08x\n",
+                 len, memaddr));
       ReadProcessMemory (current_process, memaddr, our, len, &done);
     }
   return done;
@@ -534,20 +811,43 @@ void
 child_kill_inferior (void)
 {
   CHECK (TerminateProcess (current_process, 0));
+  
+  for (;;)
+    {
+      DEBUG_EVENT event;
+      if (!ContinueDebugEvent (current_process_id,
+                              current_thread_id,
+                              DBG_CONTINUE))
+       break;
+      if (!WaitForDebugEvent (&event, INFINITE))
+       break;
+      current_thread_id = event.dwThreadId;
+      current_process_id = event.dwProcessId;
+      if (event.dwDebugEventCode == EXIT_PROCESS_DEBUG_EVENT)
+       break;
+    }
+
   CHECK (CloseHandle (current_process));
   CHECK (CloseHandle (current_thread));
+  target_mourn_inferior();     /* or just child_mourn_inferior? */
 }
 
 void
 child_resume (int pid, int step, enum target_signal signal)
 {
-  DEBUG (("child_resume (%d, %d, %d);\n", pid, step, signal));
+  DEBUG_EXEC (("gdb: child_resume (pid=%d, step=%d, signal=%d);\n", 
+              pid, step, signal));
 
   if (step)
     {
+#ifdef __PPC__
+      warning ("Single stepping not done.\n");
+#endif
+#ifdef i386
       /* Single step by setting t bit */
       child_fetch_inferior_registers (PS_REGNUM);
       context.EFlags |= FLAG_TRACE_BIT;
+#endif
     }
 
   if (context.ContextFlags)
@@ -561,6 +861,8 @@ child_resume (int pid, int step, enum target_signal signal)
       fprintf_unfiltered (gdb_stderr, "Can't send signals to the child.\n");
     }
 
+  DEBUG_EVENTS (("gdb: ContinueDebugEvent (cpid=%d, ctid=%d, DBG_CONTINUE);\n",
+                current_process_id, current_thread_id));
   CHECK (ContinueDebugEvent (current_process_id,
                             current_thread_id,
                             DBG_CONTINUE));
@@ -581,8 +883,9 @@ child_can_run ()
 static void
 child_close ()
 {
-
+  DEBUG_EVENTS (("gdb: child_close, inferior_pid=%d\n", inferior_pid));
 }
+
 struct target_ops child_ops =
 {
   "child",                     /* to_shortname */
@@ -630,6 +933,8 @@ struct target_ops child_ops =
 void
 _initialize_inftarg ()
 {
+  struct cmd_list_element *c;
+
   add_show_from_set
     (add_set_cmd ("new-console", class_support, var_boolean,
                  (char *) &new_console,
@@ -644,5 +949,33 @@ _initialize_inftarg ()
                  &setlist),
      &showlist);
 
+  add_show_from_set
+    (add_set_cmd ("debugexec", class_support, var_boolean,
+                 (char *) &debug_exec,
+                 "Set whether to display execution in child process.",
+                 &setlist),
+     &showlist);
+
+  add_show_from_set
+    (add_set_cmd ("debugevents", class_support, var_boolean,
+                 (char *) &debug_events,
+                 "Set whether to display kernel events in child process.",
+                 &setlist),
+     &showlist);
+
+  add_show_from_set
+    (add_set_cmd ("debugmemory", class_support, var_boolean,
+                 (char *) &debug_memory,
+                 "Set whether to display memory accesses in child process.",
+                 &setlist),
+     &showlist);
+
+  add_show_from_set
+    (add_set_cmd ("debugexceptions", class_support, var_boolean,
+                 (char *) &debug_exceptions,
+                 "Set whether to display kernel exceptions in child process.",
+                 &setlist),
+     &showlist);
+
   add_target (&child_ops);
 }
This page took 0.030929 seconds and 4 git commands to generate.