Subversion Repositories or1k

/* Target-vector operations for controlling win32 child processes, for GDB.

   Copyright 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.

   Contributed by Cygnus Solutions, A Red Hat Company.

   This file is part of GDB.

   This program is free software; you can redistribute it and/or modify

   it under the terms of the GNU General Public License as published by

   the Free Software Foundation; either version 2 of the License, or

   (at your option) any later version.

   This program is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without eve nthe implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   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., 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 cygwin.  */

#include "defs.h"

#include "frame.h"              /* required by inferior.h */

#include "inferior.h"

#include "target.h"

#include "gdbcore.h"

#include "command.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>

#include <imagehlp.h>

#endif

#include "buildsym.h"

#include "symfile.h"

#include "objfiles.h"

#include "gdb_string.h"

#include "gdbthread.h"

#include "gdbcmd.h"

#include <sys/param.h>

#include <unistd.h>

/* The ui's event loop. */

extern int (*ui_loop_hook) PARAMS ((int signo));

/* If we're not using the old Cygwin header file set, define the

   following which never should have been in the generic Win32 API

   headers in the first place since they were our own invention... */

#ifndef _GNU_H_WINDOWS_H

#define FLAG_TRACE_BIT 0x100

#define CONTEXT_DEBUGGER (CONTEXT_FULL | CONTEXT_FLOATING_POINT)

#endif

/* The string sent by cygwin when it processes a signal.

   FIXME: This should be in a cygwin include file. */

#define CYGWIN_SIGNAL_STRING "cygwin: signal"

#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));

static int win32_child_thread_alive PARAMS ((int));

void child_kill_inferior PARAMS ((void));

static int last_sig = 0; /* Set if a signal was received from the

                                   debugged process */

/* Thread information structure used to track information that is

   not available in gdb's thread structure. */

typedef struct thread_info_struct

  {

    struct thread_info_struct *next;

    DWORD id;

    HANDLE h;

    char *name;

    int suspend_count;

    CONTEXT context;

    STACKFRAME sf;

  } thread_info;

static thread_info thread_head = {NULL};

/* The process and thread handles for the above context. */

static DEBUG_EVENT current_event;       /* The current debug event from

                                           WaitForDebugEvent */

static HANDLE current_process_handle;   /* Currently executing process */

static thread_info *current_thread;     /* Info on currently selected thread */

static DWORD main_thread_id;    /* Thread ID of the main thread */

static int ignore_first_first_chance = 0; /* True if we should ignore the

                                             first first chance exception that we get. */

/* Counts of things. */

static int exception_count = 0;

static int event_count = 0;

/* User options. */

static int new_console = 0;

static int new_group = 1;

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.

   It also contains the bit mask needed to load the register in question.

   One day we could read a reg, we could inspect the context we

   already have loaded, if it doesn't have the bit set that we need,

   we read that set of registers in using GetThreadContext.  If the

   context already contains what we need, we just unpack it. Then to

   write a register, first we have to ensure that the context contains

   the other regs of the group, and then we copy the info in and set

   out bit. */

#define context_offset(x) ((int)&(((CONTEXT *)NULL)->x))

static const int mappings[] =

{

  context_offset (Eax),

  context_offset (Ecx),

  context_offset (Edx),

  context_offset (Ebx),

  context_offset (Esp),

  context_offset (Ebp),

  context_offset (Esi),

  context_offset (Edi),

  context_offset (Eip),

  context_offset (EFlags),

  context_offset (SegCs),

  context_offset (SegSs),

  context_offset (SegDs),

  context_offset (SegEs),

  context_offset (SegFs),

  context_offset (SegGs),

  context_offset (FloatSave.RegisterArea[0 * 10]),

  context_offset (FloatSave.RegisterArea[1 * 10]),

  context_offset (FloatSave.RegisterArea[2 * 10]),

  context_offset (FloatSave.RegisterArea[3 * 10]),

  context_offset (FloatSave.RegisterArea[4 * 10]),

  context_offset (FloatSave.RegisterArea[5 * 10]),

  context_offset (FloatSave.RegisterArea[6 * 10]),

  context_offset (FloatSave.RegisterArea[7 * 10]),

  context_offset (FloatSave.ControlWord),

  context_offset (FloatSave.StatusWord),

  context_offset (FloatSave.TagWord),

  context_offset (FloatSave.ErrorSelector),

  context_offset (FloatSave.ErrorOffset),

  context_offset (FloatSave.DataSelector),

  context_offset (FloatSave.DataOffset),

  context_offset (FloatSave.ErrorSelector)

};

#undef context_offset

/* This vector maps the target's idea of an exception (extracted

   from the DEBUG_EVENT structure) to GDB's idea. */

struct xlate_exception

  {

    int them;

    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}};

/* Find a thread record given a thread id.

   If get_context then also retrieve the context for this

   thread. */

static thread_info *

thread_rec (DWORD id, int get_context)

{

  thread_info *th;

  for (th = &thread_head; (th = th->next) != NULL;)

    if (th->id == id)

      {

        if (!th->suspend_count && get_context)

          {

            if (get_context > 0 && id != current_event.dwThreadId)

              th->suspend_count = SuspendThread (th->h) + 1;

            else if (get_context < 0)

              th->suspend_count = -1;

            th->context.ContextFlags = CONTEXT_DEBUGGER;

            GetThreadContext (th->h, &th->context);

          }

        return th;

      }

  return NULL;

}

/* Add a thread to the thread list */

static thread_info *

child_add_thread (DWORD id, HANDLE h)

{

  thread_info *th;

  if ((th = thread_rec (id, FALSE)))

    return th;

  th = (thread_info *) xmalloc (sizeof (*th));

  memset (th, 0, sizeof (*th));

  th->id = id;

  th->h = h;

  th->next = thread_head.next;

  thread_head.next = th;

  add_thread (id);

  return th;

}

/* Clear out any old thread list and reintialize it to a

   pristine state. */

static void

child_init_thread_list ()

{

  thread_info *th = &thread_head;

  DEBUG_EVENTS (("gdb: child_init_thread_list\n"));

  init_thread_list ();

  while (th->next != NULL)

    {

      thread_info *here = th->next;

      th->next = here->next;

      (void) CloseHandle (here->h);

      free (here);

    }

}

/* Delete a thread from the list of threads */

static void

child_delete_thread (DWORD id)

{

  thread_info *th;

  if (info_verbose)

    printf_unfiltered ("[Deleting %s]\n", target_pid_to_str (id));

  delete_thread (id);

  for (th = &thread_head;

       th->next != NULL && th->next->id != id;

       th = th->next)

    continue;

  if (th->next != NULL)

    {

      thread_info *here = th->next;

      th->next = here->next;

      CloseHandle (here->h);

      free (here);

    }

}

static void

check (BOOL ok, const char *file, int line)

{

  if (!ok)

    printf_filtered ("error return %s:%d was %d\n", file, line, GetLastError ());

}

static void

do_child_fetch_inferior_registers (int r)

{

  char *context_offset = ((char *) &current_thread->context) + mappings[r];

  long l;

  if (r == FCS_REGNUM)

    {

      l = *((long *)context_offset) & 0xffff;

      supply_register (r, (char *) &l);

    }

  else if (r == FOP_REGNUM)

    {

      l = (*((long *)context_offset) >> 16) & ((1 << 11) - 1);

      supply_register (r, (char *) &l);

    }

  else if (r >= 0)

    supply_register (r, context_offset);

  else

    {

      for (r = 0; r < NUM_REGS; r++)

        do_child_fetch_inferior_registers (r);

    }

}

static void

child_fetch_inferior_registers (int r)

{

  current_thread = thread_rec (inferior_pid, TRUE);

  do_child_fetch_inferior_registers (r);

}

static void

do_child_store_inferior_registers (int r)

{

  if (r >= 0)

    read_register_gen (r, ((char *) &current_thread->context) + mappings[r]);

  else

    {

      for (r = 0; r < NUM_REGS; r++)

        do_child_store_inferior_registers (r);

    }

}

/* Store a new register value into the current thread context */

static void

child_store_inferior_registers (int r)

{

  current_thread = thread_rec (inferior_pid, TRUE);

  do_child_store_inferior_registers (r);

}

#include <psapi.h>

static int psapi_loaded = 0;

static HMODULE psapi_module_handle = NULL;

static BOOL  WINAPI (*psapi_EnumProcessModules)(HANDLE, HMODULE*, DWORD, LPDWORD)= NULL;

static BOOL  WINAPI (*psapi_GetModuleInformation) (HANDLE, HMODULE, LPMODULEINFO, DWORD)= NULL;

static DWORD WINAPI (*psapi_GetModuleFileNameExA) (HANDLE, HMODULE, LPSTR, DWORD)= NULL;

int psapi_get_dll_name (DWORD BaseAddress, char *dll_name_ret)

{

  DWORD len;

  MODULEINFO mi;

  int i;

  HMODULE dh_buf [ 1 ];

  HMODULE* DllHandle = dh_buf;

  DWORD cbNeeded;

  BOOL ok;

  if (!psapi_loaded ||

       psapi_EnumProcessModules   == NULL ||

       psapi_GetModuleInformation == NULL ||

       psapi_GetModuleFileNameExA == NULL)

    {

      if (psapi_loaded)goto failed;

      psapi_loaded = 1;

      psapi_module_handle = LoadLibrary ("psapi.dll");

      if (!psapi_module_handle)

        {

          /* printf_unfiltered ("error loading psapi.dll: %u", GetLastError ());*/

          goto failed;

        }

      psapi_EnumProcessModules   = GetProcAddress (psapi_module_handle, "EnumProcessModules" );

      psapi_GetModuleInformation = GetProcAddress (psapi_module_handle, "GetModuleInformation");

      psapi_GetModuleFileNameExA = (void *) GetProcAddress (psapi_module_handle,

                                                            "GetModuleFileNameExA");

      if (psapi_EnumProcessModules   == NULL ||

           psapi_GetModuleInformation == NULL ||

           psapi_GetModuleFileNameExA == NULL)

        goto failed;

    }

  cbNeeded = 0;

  ok = (*psapi_EnumProcessModules) (current_process_handle,

                                     DllHandle,

                                     sizeof (HMODULE),

                                     &cbNeeded);

  if (!ok || !cbNeeded)

    goto failed;

  DllHandle = (HMODULE*) alloca (cbNeeded);

  if (!DllHandle)

    goto failed;

  ok = (*psapi_EnumProcessModules) (current_process_handle,

                                     DllHandle,

                                     cbNeeded,

                                     &cbNeeded);

  if (!ok)

    goto failed;

  for (i = 0; i < cbNeeded / sizeof (HMODULE); i++)

    {

      if (!(*psapi_GetModuleInformation) (current_process_handle,

                                             DllHandle [i],

                                             &mi,

                                             sizeof (mi)))

        error ("Can't get module info");

      len = (*psapi_GetModuleFileNameExA) (current_process_handle,

                                            DllHandle [i],

                                            dll_name_ret,

                                            MAX_PATH);

      if (len == 0)

        error ("Error getting dll name: %u\n", GetLastError ());

      if ((DWORD) (mi.lpBaseOfDll) == BaseAddress)

        return 1;

    }

failed:

  dll_name_ret[0] = '\0';

  return 0;

}

struct safe_symbol_file_add_args

{

  char *name;

  int from_tty;

  struct section_addr_info *addrs;

  int mainline;

  int flags;

  struct objfile *ret;

};

static int

safe_symbol_file_add_stub (void *argv)

{

#define p ((struct safe_symbol_file_add_args *)argv)

  p->ret = symbol_file_add (p->name, p->from_tty, p->addrs, p->mainline, p->flags);

  return !!p->ret;

#undef p

}

static void

safe_symbol_file_add_cleanup (void *gdb_stderrv)

{

  ui_file_delete (gdb_stderr);

  gdb_stderr = (struct ui_file *)gdb_stderrv;

}

static struct objfile *

safe_symbol_file_add (char *name, int from_tty,

                      struct section_addr_info *addrs,

                      int mainline, int flags)

{

  struct safe_symbol_file_add_args p;

  struct cleanup *cleanup;

  cleanup = make_cleanup (safe_symbol_file_add_cleanup, gdb_stderr);

  gdb_stderr = ui_file_new ();

  p.name = name;

  p.from_tty = from_tty;

  p.addrs = addrs;

  p.mainline = mainline;

  p.flags = flags;

  catch_errors (safe_symbol_file_add_stub, &p, "", RETURN_MASK_ERROR);

  do_cleanups (cleanup);

  return p.ret;

}

/* Wait for child to do something.  Return pid of child, or -1 in case

   of error; store status through argument pointer OURSTATUS.  */

static int

handle_load_dll (PTR dummy)

{

  LOAD_DLL_DEBUG_INFO *event = &current_event.u.LoadDll;

  DWORD dll_name_ptr;

  DWORD done;

  char dll_buf[MAX_PATH + 1];

  char *p, *dll_name = NULL;

  struct objfile *objfile;

  MEMORY_BASIC_INFORMATION minfo;

  struct section_addr_info section_addrs;

  memset (&section_addrs, 0, sizeof (section_addrs));

  dll_buf[0] = dll_buf[sizeof (dll_buf) - 1] = '\0';

  if (!psapi_get_dll_name ((DWORD) (event->lpBaseOfDll), dll_buf))

    dll_buf[0] = dll_buf[sizeof(dll_buf) - 1] = '\0';

  dll_name = dll_buf;

  /* Attempt to read the name of the dll that was detected.

     This is documented to work only when actively debugging

     a program.  It will not work for attached processes. */

  if (dll_name == NULL || *dll_name == '\0')

    {

      int size = event->fUnicode ? sizeof (WCHAR) : sizeof (char);

      int len = 0;

      char b[2];

      ReadProcessMemory (current_process_handle,

                         (LPCVOID) event->lpImageName,

                         (char *) &dll_name_ptr,

                         sizeof (dll_name_ptr), &done);

      /* See if we could read the address of a string, and that the

         address isn't null. */

      if (done != sizeof (dll_name_ptr) || !dll_name_ptr)

        return 1;

      do

        {

          ReadProcessMemory (current_process_handle,

                             (LPCVOID) (dll_name_ptr + len * size),

                             &b,

                             size,

                             &done);

          len++;

        }

      while ((b[0] != 0 || b[size - 1] != 0) && done == size);

      dll_name = alloca (len);

      if (event->fUnicode)

        {

          WCHAR *unicode_dll_name = (WCHAR *) alloca (len * sizeof (WCHAR));

          ReadProcessMemory (current_process_handle,

                             (LPCVOID) dll_name_ptr,

                             unicode_dll_name,

                             len * sizeof (WCHAR),

                             &done);

          WideCharToMultiByte (CP_ACP, 0,

                               unicode_dll_name, len,

                               dll_name, len, 0, 0);

        }

      else

        {

          ReadProcessMemory (current_process_handle,

                             (LPCVOID) dll_name_ptr,

                             dll_name,

                             len,

                             &done);

        }

    }

  if (!dll_name)

    return 1;

  while ((p = strchr (dll_name, '\\')))

    *p = '/';

  /* 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. */

  section_addrs.text_addr = (int) event->lpBaseOfDll + 0x1000;

  safe_symbol_file_add (dll_name, 0, &section_addrs, 0, OBJF_SHARED);

  printf_unfiltered ("%x:%s\n", event->lpBaseOfDll, dll_name);

  return 1;

}

/* Handle DEBUG_STRING output from child process.

   Cygwin prepends its messages with a "cygwin:".  Interpret this as

   a Cygwin signal.  Otherwise just print the string as a warning. */

static int

handle_output_debug_string (struct target_waitstatus *ourstatus)

{

  char *s;

  int gotasig = FALSE;

  if (!target_read_string

    ((CORE_ADDR) current_event.u.DebugString.lpDebugStringData, &s, 1024, 0)

      || !s || !*s)

    return gotasig;

  if (strncmp (s, CYGWIN_SIGNAL_STRING, sizeof (CYGWIN_SIGNAL_STRING) - 1) != 0)

    {

      if (strncmp (s, "cYg", 3) != 0)

        warning (s);

    }

  else

    {

      char *p;

      int sig = strtol (s + sizeof (CYGWIN_SIGNAL_STRING) - 1, &p, 0);

      gotasig = target_signal_from_host (sig);

      ourstatus->value.sig = gotasig;

      if (gotasig)

        ourstatus->kind = TARGET_WAITKIND_STOPPED;

    }

  free (s);

  return gotasig;

}

static int

handle_exception (struct target_waitstatus *ourstatus)

{

  int i;

  int done = 0;

  thread_info *th;

  int fc = ignore_first_first_chance;

  ourstatus->kind = TARGET_WAITKIND_STOPPED;

  ignore_first_first_chance = 0;

  /* Record the context of the current thread */

  th = thread_rec (current_event.dwThreadId, -1);

  last_sig = 0;

  switch (current_event.u.Exception.ExceptionRecord.ExceptionCode)

    {

    case EXCEPTION_ACCESS_VIOLATION:

      DEBUG_EXCEPT (("gdb: Target exception ACCESS_VIOLATION at 0x%08x\n",

               current_event.u.Exception.ExceptionRecord.ExceptionAddress));

      ourstatus->value.sig = TARGET_SIGNAL_SEGV;

      last_sig = SIGSEGV;

      break;

    case STATUS_FLOAT_UNDERFLOW:

    case STATUS_FLOAT_DIVIDE_BY_ZERO:

    case STATUS_FLOAT_OVERFLOW:

    case STATUS_INTEGER_DIVIDE_BY_ZERO:

      DEBUG_EXCEPT (("gdb: Target exception STACK_OVERFLOW at 0x%08x\n",

               current_event.u.Exception.ExceptionRecord.ExceptionAddress));

      ourstatus->value.sig = TARGET_SIGNAL_FPE;

      break;

    case STATUS_STACK_OVERFLOW:

      DEBUG_EXCEPT (("gdb: Target exception STACK_OVERFLOW at 0x%08x\n",

               current_event.u.Exception.ExceptionRecord.ExceptionAddress));

      ourstatus->value.sig = TARGET_SIGNAL_SEGV;

      break;

    case EXCEPTION_BREAKPOINT:

      if (fc && current_event.u.Exception.dwFirstChance &&

          ((DWORD) current_event.u.Exception.ExceptionRecord.ExceptionAddress & 0xc0000000))

        {

          last_sig = -1;

          return 0;

        }

      DEBUG_EXCEPT (("gdb: Target exception BREAKPOINT at 0x%08x\n",

               current_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",

               current_event.u.Exception.ExceptionRecord.ExceptionAddress));

      ourstatus->value.sig = TARGET_SIGNAL_INT;

      last_sig = SIGINT;        /* FIXME - should check pass state */

      break;

    case EXCEPTION_SINGLE_STEP:

      DEBUG_EXCEPT (("gdb: Target exception SINGLE_STEP at 0x%08x\n",

               current_event.u.Exception.ExceptionRecord.ExceptionAddress));

      ourstatus->value.sig = TARGET_SIGNAL_TRAP;

      break;

    case EXCEPTION_ILLEGAL_INSTRUCTION:

      DEBUG_EXCEPT (("gdb: Target exception SINGLE_ILL at 0x%08x\n",

               current_event.u.Exception.ExceptionRecord.ExceptionAddress));

      ourstatus->value.sig = TARGET_SIGNAL_ILL;

      last_sig = SIGILL;

      break;

    default:

      printf_unfiltered ("gdb: unknown target exception 0x%08x at 0x%08x\n",