Subversion Repositories or1k

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

   Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001

   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 "completer.h"

#include "regcache.h"

#include <signal.h>

#include <sys/types.h>

#include <fcntl.h>

#include <stdlib.h>

#include <windows.h>

#include <imagehlp.h>

#include <sys/cygwin.h>

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

enum

  {

    FLAG_TRACE_BIT = 0x100,

    CONTEXT_DEBUGGER = (CONTEXT_FULL | CONTEXT_FLOATING_POINT)

  };

#endif

#include <sys/procfs.h>

#include <psapi.h>

/* 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 (void);

static int win32_child_thread_alive (ptid_t);

void child_kill_inferior (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;

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

/* 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 (pid_to_ptid (id));

  return th;

}

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

   pristine state. */

static void

child_init_thread_list (void)

{

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

      xfree (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 (pid_to_ptid (id)));

  delete_thread (pid_to_ptid (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);

      xfree (here);

    }

}

static void

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

{

  if (!ok)

    printf_filtered ("error return %s:%d was %lu\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 (PIDGET (inferior_ptid), 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 (PIDGET (inferior_ptid), TRUE);

  do_child_store_inferior_registers (r);

}

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 < (int) (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;

}

/* Encapsulate the information required in a call to

   symbol_file_add_args */

struct safe_symbol_file_add_args

{

  char *name;

  int from_tty;

  struct section_addr_info *addrs;

  int mainline;

  int flags;

  struct ui_file *err, *out;

  struct objfile *ret;

};

/* Call symbol_file_add with stderr redirected.  We don't care if there

   are errors. */

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

}

/* Restore gdb's stderr after calling symbol_file_add */

static void

safe_symbol_file_add_cleanup (void *p)

{

#define sp ((struct safe_symbol_file_add_args *)p)

  gdb_flush (gdb_stderr);

  gdb_flush (gdb_stdout);

  ui_file_delete (gdb_stderr);

  ui_file_delete (gdb_stdout);

  gdb_stderr = sp->err;

  gdb_stdout = sp->out;

#undef sp

}

/* symbol_file_add wrapper that prevents errors from being displayed. */

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, &p);

  p.err = gdb_stderr;

  p.out = gdb_stdout;

  gdb_flush (gdb_stderr);

  gdb_flush (gdb_stdout);

  gdb_stderr = ui_file_new ();

  gdb_stdout = 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;

}

/* Maintain a linked list of "so" information. */

struct so_stuff

{

  struct so_stuff *next, **last;

  DWORD load_addr;

  char name[0];

}

solib_start, *solib_end;

/* Remember the maximum DLL length for printing in info dll command. */

int max_dll_name_len;

static void

register_loaded_dll (const char *name, DWORD load_addr)

{

  struct so_stuff *so;

  so = (struct so_stuff *) xmalloc (sizeof (struct so_stuff) + strlen (name) + 8 + 2);

  so->load_addr = load_addr;

  strcpy (so->name, name);

  solib_end->next = so;

  solib_end = so;

  so->next = NULL;

}

/* 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 (void *dummy ATTRIBUTE_UNUSED)

{

  LOAD_DLL_DEBUG_INFO *event = &current_event.u.LoadDll;

  DWORD dll_name_ptr;

  DWORD done;

  char dll_buf[MAX_PATH + 1];

  char *dll_name = NULL;

  int len;

  char *p;

  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')

    {

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

  (void) strlwr (dll_name);

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

    *p = '/';

  register_loaded_dll (dll_name, (DWORD) event->lpBaseOfDll + 0x1000);

  len = strlen (dll_name);

  if (len > max_dll_name_len)

    max_dll_name_len = len;

  return 1;

}

/* Return name of last loaded DLL. */

char *

child_solib_loaded_library_pathname (int pid ATTRIBUTE_UNUSED)

{

  return !solib_end || !solib_end->name[0] ? NULL : solib_end->name;

}

/* Clear list of loaded DLLs. */

void

child_clear_solibs (void)

{

  struct so_stuff *so, *so1 = solib_start.next;

  while ((so = so1) != NULL)

    {

      so1 = so->next;

      xfree (so);

    }

  solib_start.next = NULL;

  solib_end = &solib_start;

  max_dll_name_len = sizeof ("DLL Name") - 1;

}

/* Add DLL symbol information. */

void

solib_symbols_add (char *name, CORE_ADDR load_addr)

{

  struct section_addr_info section_addrs;

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

  if (!name || !name[0])

    return;

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

  section_addrs.other[0].name = ".text";

  section_addrs.other[0].addr = load_addr;

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

  return;

}

/* Load DLL symbol info. */

void

dll_symbol_command (char *args, int from_tty ATTRIBUTE_UNUSED)

{

  int n;

  dont_repeat ();

  if (args == NULL)

    error ("dll-symbols requires a file name");

  n = strlen (args);

  if (n > 4 && strcasecmp (args + n - 4, ".dll") != 0)

    {

      char *newargs = (char *) alloca (n + 4 + 1);

      strcpy (newargs, args);

      strcat (newargs, ".dll");

      args = newargs;

    }

  safe_symbol_file_add (args, 0, NULL, 0, OBJF_SHARED | OBJF_USERLOADED);