gdb/windows-nat.c

   1 /* Target-vector operations for controlling win32 child processes, for GDB.
   2
   3    Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   4    2005, 2006, 2007, 2008 Free Software Foundation, Inc.
   5
   6    Contributed by Cygnus Solutions, A Red Hat Company.
   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 /* Originally by Steve Chamberlain, sac@cygnus.com */
  24
  25 #include "defs.h"
  26 #include "frame.h"              /* required by inferior.h */
  27 #include "inferior.h"
  28 #include "target.h"
  29 #include "exceptions.h"
  30 #include "gdbcore.h"
  31 #include "command.h"
  32 #include "completer.h"
  33 #include "regcache.h"
  34 #include "top.h"
  35 #include <signal.h>
  36 #include <sys/types.h>
  37 #include <fcntl.h>
  38 #include <stdlib.h>
  39 #include <windows.h>
  40 #include <imagehlp.h>
  41 #ifdef __CYGWIN__
  42 #include <sys/cygwin.h>
  43 #endif
  44 #include <signal.h>
  45
  46 #include "buildsym.h"
  47 #include "symfile.h"
  48 #include "objfiles.h"
  49 #include "gdb_obstack.h"
  50 #include "gdb_string.h"
  51 #include "gdbthread.h"
  52 #include "gdbcmd.h"
  53 #include <sys/param.h>
  54 #include <unistd.h>
  55 #include "exec.h"
  56 #include "solist.h"
  57 #include "solib.h"
  58 #include "xml-support.h"
  59
  60 #include "i386-tdep.h"
  61 #include "i387-tdep.h"
  62
  63 #include "i386-cygwin-tdep.h"
  64
  65 static struct target_ops win32_ops;
  66
  67 #ifdef __CYGWIN__
  68 /* The starting and ending address of the cygwin1.dll text segment. */
  69 static bfd_vma cygwin_load_start;
  70 static bfd_vma cygwin_load_end;
  71 #endif
  72
  73 static int have_saved_context;  /* True if we've saved context from a cygwin signal. */
  74 static CONTEXT saved_context;   /* Containes the saved context from a cygwin signal. */
  75
  76 /* If we're not using the old Cygwin header file set, define the
  77    following which never should have been in the generic Win32 API
  78    headers in the first place since they were our own invention... */
  79 #ifndef _GNU_H_WINDOWS_H
  80 enum
  81   {
  82     FLAG_TRACE_BIT = 0x100,
  83     CONTEXT_DEBUGGER = (CONTEXT_FULL | CONTEXT_FLOATING_POINT)
  84   };
  85 #endif
  86 #include <psapi.h>
  87
  88 #define CONTEXT_DEBUGGER_DR CONTEXT_DEBUGGER | CONTEXT_DEBUG_REGISTERS \
  89         | CONTEXT_EXTENDED_REGISTERS
  90
  91 static unsigned dr[8];
  92 static int debug_registers_changed;
  93 static int debug_registers_used;
  94 #define DR6_CLEAR_VALUE 0xffff0ff0
  95
  96 /* The string sent by cygwin when it processes a signal.
  97    FIXME: This should be in a cygwin include file. */
  98 #ifndef _CYGWIN_SIGNAL_STRING
  99 #define _CYGWIN_SIGNAL_STRING "cYgSiGw00f"
 100 #endif
 101
 102 #define CHECK(x)        check (x, __FILE__,__LINE__)
 103 #define DEBUG_EXEC(x)   if (debug_exec)         printf_unfiltered x
 104 #define DEBUG_EVENTS(x) if (debug_events)       printf_unfiltered x
 105 #define DEBUG_MEM(x)    if (debug_memory)       printf_unfiltered x
 106 #define DEBUG_EXCEPT(x) if (debug_exceptions)   printf_unfiltered x
 107
 108 static void win32_stop (void);
 109 static int win32_win32_thread_alive (ptid_t);
 110 static void win32_kill_inferior (void);
 111
 112 static enum target_signal last_sig = TARGET_SIGNAL_0;
 113 /* Set if a signal was received from the debugged process */
 114
 115 /* Thread information structure used to track information that is
 116    not available in gdb's thread structure.  */
 117 typedef struct thread_info_struct
 118   {
 119     struct thread_info_struct *next;
 120     DWORD id;
 121     HANDLE h;
 122     char *name;
 123     int suspended;
 124     int reload_context;
 125     CONTEXT context;
 126     STACKFRAME sf;
 127   }
 128 thread_info;
 129
 130 static thread_info thread_head;
 131
 132 /* The process and thread handles for the above context. */
 133
 134 static DEBUG_EVENT current_event;       /* The current debug event from
 135                                            WaitForDebugEvent */
 136 static HANDLE current_process_handle;   /* Currently executing process */
 137 static thread_info *current_thread;     /* Info on currently selected thread */
 138 static DWORD main_thread_id;            /* Thread ID of the main thread */
 139
 140 /* Counts of things. */
 141 static int exception_count = 0;
 142 static int event_count = 0;
 143 static int saw_create;
 144 static int open_process_used = 0;
 145
 146 /* User options. */
 147 static int new_console = 0;
 148 #ifdef __CYGWIN__
 149 static int cygwin_exceptions = 0;
 150 #endif
 151 static int new_group = 1;
 152 static int debug_exec = 0;              /* show execution */
 153 static int debug_events = 0;            /* show events from kernel */
 154 static int debug_memory = 0;            /* show target memory accesses */
 155 static int debug_exceptions = 0;        /* show target exceptions */
 156 static int useshell = 0;                /* use shell for subprocesses */
 157
 158 /* This vector maps GDB's idea of a register's number into an address
 159    in the win32 exception context vector.
 160
 161    It also contains the bit mask needed to load the register in question.
 162
 163    One day we could read a reg, we could inspect the context we
 164    already have loaded, if it doesn't have the bit set that we need,
 165    we read that set of registers in using GetThreadContext.  If the
 166    context already contains what we need, we just unpack it. Then to
 167    write a register, first we have to ensure that the context contains
 168    the other regs of the group, and then we copy the info in and set
 169    out bit. */
 170
 171 #define context_offset(x) ((int)&(((CONTEXT *)NULL)->x))
 172 static const int mappings[] =
 173 {
 174   context_offset (Eax),
 175   context_offset (Ecx),
 176   context_offset (Edx),
 177   context_offset (Ebx),
 178   context_offset (Esp),
 179   context_offset (Ebp),
 180   context_offset (Esi),
 181   context_offset (Edi),
 182   context_offset (Eip),
 183   context_offset (EFlags),
 184   context_offset (SegCs),
 185   context_offset (SegSs),
 186   context_offset (SegDs),
 187   context_offset (SegEs),
 188   context_offset (SegFs),
 189   context_offset (SegGs),
 190   context_offset (FloatSave.RegisterArea[0 * 10]),
 191   context_offset (FloatSave.RegisterArea[1 * 10]),
 192   context_offset (FloatSave.RegisterArea[2 * 10]),
 193   context_offset (FloatSave.RegisterArea[3 * 10]),
 194   context_offset (FloatSave.RegisterArea[4 * 10]),
 195   context_offset (FloatSave.RegisterArea[5 * 10]),
 196   context_offset (FloatSave.RegisterArea[6 * 10]),
 197   context_offset (FloatSave.RegisterArea[7 * 10]),
 198   context_offset (FloatSave.ControlWord),
 199   context_offset (FloatSave.StatusWord),
 200   context_offset (FloatSave.TagWord),
 201   context_offset (FloatSave.ErrorSelector),
 202   context_offset (FloatSave.ErrorOffset),
 203   context_offset (FloatSave.DataSelector),
 204   context_offset (FloatSave.DataOffset),
 205   context_offset (FloatSave.ErrorSelector)
 206   /* XMM0-7 */ ,
 207   context_offset (ExtendedRegisters[10*16]),
 208   context_offset (ExtendedRegisters[11*16]),
 209   context_offset (ExtendedRegisters[12*16]),
 210   context_offset (ExtendedRegisters[13*16]),
 211   context_offset (ExtendedRegisters[14*16]),
 212   context_offset (ExtendedRegisters[15*16]),
 213   context_offset (ExtendedRegisters[16*16]),
 214   context_offset (ExtendedRegisters[17*16]),
 215   /* MXCSR */
 216   context_offset (ExtendedRegisters[24])
 217 };
 218
 219 #undef context_offset
 220
 221 /* This vector maps the target's idea of an exception (extracted
 222    from the DEBUG_EVENT structure) to GDB's idea. */
 223
 224 struct xlate_exception
 225   {
 226     int them;
 227     enum target_signal us;
 228   };
 229
 230 static const struct xlate_exception
 231   xlate[] =
 232 {
 233   {EXCEPTION_ACCESS_VIOLATION, TARGET_SIGNAL_SEGV},
 234   {STATUS_STACK_OVERFLOW, TARGET_SIGNAL_SEGV},
 235   {EXCEPTION_BREAKPOINT, TARGET_SIGNAL_TRAP},
 236   {DBG_CONTROL_C, TARGET_SIGNAL_INT},
 237   {EXCEPTION_SINGLE_STEP, TARGET_SIGNAL_TRAP},
 238   {STATUS_FLOAT_DIVIDE_BY_ZERO, TARGET_SIGNAL_FPE},
 239   {-1, -1}};
 240
 241 static void
 242 check (BOOL ok, const char *file, int line)
 243 {
 244   if (!ok)
 245     printf_filtered ("error return %s:%d was %lu\n", file, line,
 246                      GetLastError ());
 247 }
 248
 249 /* Find a thread record given a thread id.  If GET_CONTEXT is not 0,
 250    then also retrieve the context for this thread.  If GET_CONTEXT is
 251    negative, then don't suspend the thread.  */
 252 static thread_info *
 253 thread_rec (DWORD id, int get_context)
 254 {
 255   thread_info *th;
 256
 257   for (th = &thread_head; (th = th->next) != NULL;)
 258     if (th->id == id)
 259       {
 260         if (!th->suspended && get_context)
 261           {
 262             if (get_context > 0 && id != current_event.dwThreadId)
 263               {
 264                 if (SuspendThread (th->h) == (DWORD) -1)
 265                   {
 266                     DWORD err = GetLastError ();
 267                     warning (_("SuspendThread failed. (winerr %d)"),
 268                              (int) err);
 269                     return NULL;
 270                   }
 271                 th->suspended = 1;
 272               }
 273             else if (get_context < 0)
 274               th->suspended = -1;
 275             th->reload_context = 1;
 276           }
 277         return th;
 278       }
 279
 280   return NULL;
 281 }
 282
 283 /* Add a thread to the thread list */
 284 static thread_info *
 285 win32_add_thread (DWORD id, HANDLE h)
 286 {
 287   thread_info *th;
 288
 289   if ((th = thread_rec (id, FALSE)))
 290     return th;
 291
 292   th = XZALLOC (thread_info);
 293   th->id = id;
 294   th->h = h;
 295   th->next = thread_head.next;
 296   thread_head.next = th;
 297   add_thread (pid_to_ptid (id));
 298   /* Set the debug registers for the new thread in they are used.  */
 299   if (debug_registers_used)
 300     {
 301       /* Only change the value of the debug registers.  */
 302       th->context.ContextFlags = CONTEXT_DEBUG_REGISTERS;
 303       CHECK (GetThreadContext (th->h, &th->context));
 304       th->context.Dr0 = dr[0];
 305       th->context.Dr1 = dr[1];
 306       th->context.Dr2 = dr[2];
 307       th->context.Dr3 = dr[3];
 308       th->context.Dr6 = DR6_CLEAR_VALUE;
 309       th->context.Dr7 = dr[7];
 310       CHECK (SetThreadContext (th->h, &th->context));
 311       th->context.ContextFlags = 0;
 312     }
 313   return th;
 314 }
 315
 316 /* Clear out any old thread list and reintialize it to a
 317    pristine state. */
 318 static void
 319 win32_init_thread_list (void)
 320 {
 321   thread_info *th = &thread_head;
 322
 323   DEBUG_EVENTS (("gdb: win32_init_thread_list\n"));
 324   init_thread_list ();
 325   while (th->next != NULL)
 326     {
 327       thread_info *here = th->next;
 328       th->next = here->next;
 329       xfree (here);
 330     }
 331   thread_head.next = NULL;
 332 }
 333
 334 /* Delete a thread from the list of threads */
 335 static void
 336 win32_delete_thread (DWORD id)
 337 {
 338   thread_info *th;
 339
 340   if (info_verbose)
 341     printf_unfiltered ("[Deleting %s]\n", target_pid_to_str (pid_to_ptid (id)));
 342   delete_thread (pid_to_ptid (id));
 343
 344   for (th = &thread_head;
 345        th->next != NULL && th->next->id != id;
 346        th = th->next)
 347     continue;
 348
 349   if (th->next != NULL)
 350     {
 351       thread_info *here = th->next;
 352       th->next = here->next;
 353       xfree (here);
 354     }
 355 }
 356
 357 static void
 358 do_win32_fetch_inferior_registers (struct regcache *regcache, int r)
 359 {
 360   char *context_offset = ((char *) &current_thread->context) + mappings[r];
 361   struct gdbarch *gdbarch = get_regcache_arch (regcache);
 362   struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
 363   long l;
 364
 365   if (!current_thread)
 366     return;     /* Windows sometimes uses a non-existent thread id in its
 367                    events */
 368
 369   if (current_thread->reload_context)
 370     {
 371 #ifdef __COPY_CONTEXT_SIZE
 372       if (have_saved_context)
 373         {
 374           /* Lie about where the program actually is stopped since cygwin has informed us that
 375              we should consider the signal to have occurred at another location which is stored
 376              in "saved_context. */
 377           memcpy (&current_thread->context, &saved_context, __COPY_CONTEXT_SIZE);
 378           have_saved_context = 0;
 379         }
 380       else
 381 #endif
 382         {
 383           thread_info *th = current_thread;
 384           th->context.ContextFlags = CONTEXT_DEBUGGER_DR;
 385           GetThreadContext (th->h, &th->context);
 386           /* Copy dr values from that thread.
 387              But only if there were not modified since last stop. PR gdb/2388 */
 388           if (!debug_registers_changed)
 389             {
 390               dr[0] = th->context.Dr0;
 391               dr[1] = th->context.Dr1;
 392               dr[2] = th->context.Dr2;
 393               dr[3] = th->context.Dr3;
 394               dr[6] = th->context.Dr6;
 395               dr[7] = th->context.Dr7;
 396             }
 397         }
 398       current_thread->reload_context = 0;
 399     }
 400
 401   if (r == I387_FISEG_REGNUM (tdep))
 402     {
 403       l = *((long *) context_offset) & 0xffff;
 404       regcache_raw_supply (regcache, r, (char *) &l);
 405     }
 406   else if (r == I387_FOP_REGNUM (tdep))
 407     {
 408       l = (*((long *) context_offset) >> 16) & ((1 << 11) - 1);
 409       regcache_raw_supply (regcache, r, (char *) &l);
 410     }
 411   else if (r >= 0)
 412     regcache_raw_supply (regcache, r, context_offset);
 413   else
 414     {
 415       for (r = 0; r < gdbarch_num_regs (gdbarch); r++)
 416         do_win32_fetch_inferior_registers (regcache, r);
 417     }
 418 }
 419
 420 static void
 421 win32_fetch_inferior_registers (struct regcache *regcache, int r)
 422 {
 423   current_thread = thread_rec (PIDGET (inferior_ptid), TRUE);
 424   /* Check if current_thread exists.  Windows sometimes uses a non-existent
 425      thread id in its events */
 426   if (current_thread)
 427     do_win32_fetch_inferior_registers (regcache, r);
 428 }
 429
 430 static void
 431 do_win32_store_inferior_registers (const struct regcache *regcache, int r)
 432 {
 433   if (!current_thread)
 434     /* Windows sometimes uses a non-existent thread id in its events */;
 435   else if (r >= 0)
 436     regcache_raw_collect (regcache, r,
 437                           ((char *) &current_thread->context) + mappings[r]);
 438   else
 439     {
 440       for (r = 0; r < gdbarch_num_regs (get_regcache_arch (regcache)); r++)
 441         do_win32_store_inferior_registers (regcache, r);
 442     }
 443 }
 444
 445 /* Store a new register value into the current thread context */
 446 static void
 447 win32_store_inferior_registers (struct regcache *regcache, int r)
 448 {
 449   current_thread = thread_rec (PIDGET (inferior_ptid), TRUE);
 450   /* Check if current_thread exists.  Windows sometimes uses a non-existent
 451      thread id in its events */
 452   if (current_thread)
 453     do_win32_store_inferior_registers (regcache, r);
 454 }
 455
 456 static int psapi_loaded = 0;
 457 static BOOL WINAPI (*psapi_EnumProcessModules) (HANDLE, HMODULE *, DWORD,
 458                                                 LPDWORD);
 459 static BOOL WINAPI (*psapi_GetModuleInformation) (HANDLE, HMODULE, LPMODULEINFO,
 460                                                   DWORD);
 461 static DWORD WINAPI (*psapi_GetModuleFileNameExA) (HANDLE, HMODULE, LPSTR,
 462                                                    DWORD);
 463
 464 /* Get the name of a given module at at given base address.  If base_address
 465    is zero return the first loaded module (which is always the name of the
 466    executable).  */
 467 static int
 468 get_module_name (DWORD base_address, char *dll_name_ret)
 469 {
 470   DWORD len;
 471   MODULEINFO mi;
 472   int i;
 473   HMODULE dh_buf[1];
 474   HMODULE *DllHandle = dh_buf;  /* Set to temporary storage for initial query */
 475   DWORD cbNeeded;
 476 #ifdef __CYGWIN__
 477   char pathbuf[PATH_MAX + 1];   /* Temporary storage prior to converting to
 478                                    posix form */
 479 #else
 480   char *pathbuf = dll_name_ret; /* Just copy directly to passed-in arg */
 481 #endif
 482
 483   /* If psapi_loaded < 0 either psapi.dll is not available or it does not contain
 484      the needed functions. */
 485   if (psapi_loaded <= 0)
 486     goto failed;
 487
 488   cbNeeded = 0;
 489   /* Find size of buffer needed to handle list of modules loaded in inferior */
 490   if (!psapi_EnumProcessModules (current_process_handle, DllHandle,
 491                                  sizeof (HMODULE), &cbNeeded) || !cbNeeded)
 492     goto failed;
 493
 494   /* Allocate correct amount of space for module list */
 495   DllHandle = (HMODULE *) alloca (cbNeeded);
 496   if (!DllHandle)
 497     goto failed;
 498
 499   /* Get the list of modules */
 500   if (!psapi_EnumProcessModules (current_process_handle, DllHandle, cbNeeded,
 501                                  &cbNeeded))
 502     goto failed;
 503
 504   for (i = 0; i < (int) (cbNeeded / sizeof (HMODULE)); i++)
 505     {
 506       /* Get information on this module */
 507       if (!psapi_GetModuleInformation (current_process_handle, DllHandle[i],
 508                                        &mi, sizeof (mi)))
 509         error (_("Can't get module info"));
 510
 511       if (!base_address || (DWORD) (mi.lpBaseOfDll) == base_address)
 512         {
 513           /* Try to find the name of the given module */
 514           len = psapi_GetModuleFileNameExA (current_process_handle,
 515                                             DllHandle[i], pathbuf, MAX_PATH);
 516           if (len == 0)
 517             error (_("Error getting dll name: %u."), (unsigned) GetLastError ());
 518 #ifdef __CYGWIN__
 519           /* Cygwin prefers that the path be in /x/y/z format */
 520           cygwin_conv_to_full_posix_path (pathbuf, dll_name_ret);
 521 #endif
 522           return 1;     /* success */
 523         }
 524     }
 525
 526 failed:
 527   dll_name_ret[0] = '\0';
 528   return 0;             /* failure */
 529 }
 530
 531 /* Encapsulate the information required in a call to
 532    symbol_file_add_args */
 533 struct safe_symbol_file_add_args
 534 {
 535   char *name;
 536   int from_tty;
 537   struct section_addr_info *addrs;
 538   int mainline;
 539   int flags;
 540   struct ui_file *err, *out;
 541   struct objfile *ret;
 542 };
 543
 544 /* Maintain a linked list of "so" information. */
 545 struct lm_info
 546 {
 547   DWORD load_addr;
 548 };
 549
 550 static struct so_list solib_start, *solib_end;
 551
 552 /* Call symbol_file_add with stderr redirected.  We don't care if there
 553    are errors. */
 554 static int
 555 safe_symbol_file_add_stub (void *argv)
 556 {
 557 #define p ((struct safe_symbol_file_add_args *) argv)
 558   p->ret = symbol_file_add (p->name, p->from_tty, p->addrs, p->mainline, p->flags);
 559   return !!p->ret;
 560 #undef p
 561 }
 562
 563 /* Restore gdb's stderr after calling symbol_file_add */
 564 static void
 565 safe_symbol_file_add_cleanup (void *p)
 566 {
 567 #define sp ((struct safe_symbol_file_add_args *)p)
 568   gdb_flush (gdb_stderr);
 569   gdb_flush (gdb_stdout);
 570   ui_file_delete (gdb_stderr);
 571   ui_file_delete (gdb_stdout);
 572   gdb_stderr = sp->err;
 573   gdb_stdout = sp->out;
 574 #undef sp
 575 }
 576
 577 /* symbol_file_add wrapper that prevents errors from being displayed. */
 578 static struct objfile *
 579 safe_symbol_file_add (char *name, int from_tty,
 580                       struct section_addr_info *addrs,
 581                       int mainline, int flags)
 582 {
 583   struct safe_symbol_file_add_args p;
 584   struct cleanup *cleanup;
 585
 586   cleanup = make_cleanup (safe_symbol_file_add_cleanup, &p);
 587
 588   p.err = gdb_stderr;
 589   p.out = gdb_stdout;
 590   gdb_flush (gdb_stderr);
 591   gdb_flush (gdb_stdout);
 592   gdb_stderr = ui_file_new ();
 593   gdb_stdout = ui_file_new ();
 594   p.name = name;
 595   p.from_tty = from_tty;
 596   p.addrs = addrs;
 597   p.mainline = mainline;
 598   p.flags = flags;
 599   catch_errors (safe_symbol_file_add_stub, &p, "", RETURN_MASK_ERROR);
 600
 601   do_cleanups (cleanup);
 602   return p.ret;
 603 }
 604
 605 static struct so_list *
 606 win32_make_so (const char *name, DWORD load_addr)
 607 {
 608   struct so_list *so;
 609   char buf[MAX_PATH + 1];
 610   char cwd[MAX_PATH + 1];
 611   char *p;
 612   WIN32_FIND_DATA w32_fd;
 613   HANDLE h = FindFirstFile(name, &w32_fd);
 614   MEMORY_BASIC_INFORMATION m;
 615
 616   if (h == INVALID_HANDLE_VALUE)
 617     strcpy (buf, name);
 618   else
 619     {
 620       FindClose (h);
 621       strcpy (buf, name);
 622       if (GetCurrentDirectory (MAX_PATH + 1, cwd))
 623         {
 624           p = strrchr (buf, '\\');
 625           if (p)
 626             p[1] = '\0';
 627           SetCurrentDirectory (buf);
 628           GetFullPathName (w32_fd.cFileName, MAX_PATH, buf, &p);
 629           SetCurrentDirectory (cwd);
 630         }
 631     }
 632
 633   if (strcasecmp (buf, "ntdll.dll") == 0)
 634     {
 635       GetSystemDirectory (buf, sizeof (buf));
 636       strcat (buf, "\\ntdll.dll");
 637     }
 638   so = XZALLOC (struct so_list);
 639   so->lm_info = (struct lm_info *) xmalloc (sizeof (struct lm_info));
 640   so->lm_info->load_addr = load_addr;
 641   strcpy (so->so_original_name, name);
 642 #ifndef __CYGWIN__
 643   strcpy (so->so_name, buf);
 644 #else
 645   cygwin_conv_to_posix_path (buf, so->so_name);
 646   /* Record cygwin1.dll .text start/end.  */
 647   p = strchr (so->so_name, '\0') - (sizeof ("/cygwin1.dll") - 1);
 648   if (p >= so->so_name && strcasecmp (p, "/cygwin1.dll") == 0)
 649     {
 650       bfd *abfd;
 651       asection *text = NULL;
 652       CORE_ADDR text_vma;
 653
 654       abfd = bfd_openr (so->so_name, "pei-i386");
 655
 656       if (!abfd)
 657         return so;
 658
 659       if (bfd_check_format (abfd, bfd_object))
 660         text = bfd_get_section_by_name (abfd, ".text");
 661
 662       if (!text)
 663         {
 664           bfd_close (abfd);
 665           return so;
 666         }
 667
 668       /* The symbols in a dll are offset by 0x1000, which is the the
 669          offset from 0 of the first byte in an image - because of the
 670          file header and the section alignment. */
 671       cygwin_load_start = load_addr + 0x1000;
 672       cygwin_load_end = cygwin_load_start + bfd_section_size (abfd, text);
 673
 674       bfd_close (abfd);
 675     }
 676 #endif
 677
 678   return so;
 679 }
 680
 681 static char *
 682 get_image_name (HANDLE h, void *address, int unicode)
 683 {
 684   static char buf[(2 * MAX_PATH) + 1];
 685   DWORD size = unicode ? sizeof (WCHAR) : sizeof (char);
 686   char *address_ptr;
 687   int len = 0;
 688   char b[2];
 689   DWORD done;
 690
 691   /* Attempt to read the name of the dll that was detected.
 692      This is documented to work only when actively debugging
 693      a program.  It will not work for attached processes. */
 694   if (address == NULL)
 695     return NULL;
 696
 697   /* See if we could read the address of a string, and that the
 698      address isn't null. */
 699   if (!ReadProcessMemory (h, address,  &address_ptr, sizeof (address_ptr), &done)
 700       || done != sizeof (address_ptr) || !address_ptr)
 701     return NULL;
 702
 703   /* Find the length of the string */
 704   while (ReadProcessMemory (h, address_ptr + len++ * size, &b, size, &done)
 705          && (b[0] != 0 || b[size - 1] != 0) && done == size)
 706     continue;
 707
 708   if (!unicode)
 709     ReadProcessMemory (h, address_ptr, buf, len, &done);
 710   else
 711     {
 712       WCHAR *unicode_address = (WCHAR *) alloca (len * sizeof (WCHAR));
 713       ReadProcessMemory (h, address_ptr, unicode_address, len * sizeof (WCHAR),
 714                          &done);
 715
 716       WideCharToMultiByte (CP_ACP, 0, unicode_address, len, buf, len, 0, 0);
 717     }
 718
 719   return buf;
 720 }
 721
 722 /* Wait for child to do something.  Return pid of child, or -1 in case
 723    of error; store status through argument pointer OURSTATUS.  */
 724 static int
 725 handle_load_dll (void *dummy)
 726 {
 727   LOAD_DLL_DEBUG_INFO *event = &current_event.u.LoadDll;
 728   char dll_buf[MAX_PATH + 1];
 729   char *dll_name = NULL;
 730
 731   dll_buf[0] = dll_buf[sizeof (dll_buf) - 1] = '\0';
 732
 733   if (!get_module_name ((DWORD) event->lpBaseOfDll, dll_buf))
 734     dll_buf[0] = dll_buf[sizeof (dll_buf) - 1] = '\0';
 735
 736   dll_name = dll_buf;
 737
 738   if (*dll_name == '\0')
 739     dll_name = get_image_name (current_process_handle,
 740                                event->lpImageName, event->fUnicode);
 741   if (!dll_name)
 742     return 1;
 743
 744   solib_end->next = win32_make_so (dll_name, (DWORD) event->lpBaseOfDll);
 745   solib_end = solib_end->next;
 746
 747   DEBUG_EVENTS (("gdb: Loading dll \"%s\" at 0x%lx.\n", solib_end->so_name,
 748                  (DWORD) solib_end->lm_info->load_addr));
 749
 750   return 1;
 751 }
 752
 753 static void
 754 win32_free_so (struct so_list *so)
 755 {
 756   if (so->lm_info)
 757     xfree (so->lm_info);
 758   xfree (so);
 759 }
 760
 761 static int
 762 handle_unload_dll (void *dummy)
 763 {
 764   DWORD lpBaseOfDll = (DWORD) current_event.u.UnloadDll.lpBaseOfDll;
 765   struct so_list *so;
 766
 767   for (so = &solib_start; so->next != NULL; so = so->next)
 768     if (so->next->lm_info->load_addr == lpBaseOfDll)
 769       {
 770         struct so_list *sodel = so->next;
 771         so->next = sodel->next;
 772         if (!so->next)
 773           solib_end = so;
 774         DEBUG_EVENTS (("gdb: Unloading dll \"%s\".\n", sodel->so_name));
 775
 776         win32_free_so (sodel);
 777         solib_add (NULL, 0, NULL, auto_solib_add);
 778         return 1;
 779       }
 780
 781   error (_("Error: dll starting at 0x%lx not found."), (DWORD) lpBaseOfDll);
 782
 783   return 0;
 784 }
 785
 786 /* Clear list of loaded DLLs. */
 787 static void
 788 win32_clear_solib (void)
 789 {
 790   solib_start.next = NULL;
 791   solib_end = &solib_start;
 792 }
 793
 794 /* Load DLL symbol info. */
 795 void
 796 dll_symbol_command (char *args, int from_tty)
 797 {
 798   int n;
 799   dont_repeat ();
 800
 801   if (args == NULL)
 802     error (_("dll-symbols requires a file name"));
 803
 804   n = strlen (args);
 805   if (n > 4 && strcasecmp (args + n - 4, ".dll") != 0)
 806     {
 807       char *newargs = (char *) alloca (n + 4 + 1);
 808       strcpy (newargs, args);
 809       strcat (newargs, ".dll");
 810       args = newargs;
 811     }
 812
 813   safe_symbol_file_add (args, from_tty, NULL, 0, OBJF_SHARED | OBJF_USERLOADED);
 814 }
 815
 816 /* Handle DEBUG_STRING output from child process.
 817    Cygwin prepends its messages with a "cygwin:".  Interpret this as
 818    a Cygwin signal.  Otherwise just print the string as a warning. */
 819 static int
 820 handle_output_debug_string (struct target_waitstatus *ourstatus)
 821 {
 822   char *s = NULL;
 823   int retval = 0;
 824
 825   if (!target_read_string
 826         ((CORE_ADDR) (uintptr_t) current_event.u.DebugString.lpDebugStringData,
 827         &s, 1024, 0)
 828       || !s || !*s)
 829     /* nothing to do */;
 830   else if (strncmp (s, _CYGWIN_SIGNAL_STRING, sizeof (_CYGWIN_SIGNAL_STRING) - 1) != 0)
 831     {
 832 #ifdef __CYGWIN__
 833       if (strncmp (s, "cYg", 3) != 0)
 834 #endif
 835         warning (("%s"), s);
 836     }
 837 #ifdef __COPY_CONTEXT_SIZE
 838   else
 839     {
 840       /* Got a cygwin signal marker.  A cygwin signal is followed by the signal number
 841          itself and then optionally followed by the thread id and address to saved context
 842          within the DLL.  If these are supplied, then the given thread is assumed to have
 843          issued the signal and the context from the thread is assumed to be stored at the
 844          given address in the inferior.  Tell gdb to treat this like a real signal.  */
 845       char *p;
 846       int sig = strtol (s + sizeof (_CYGWIN_SIGNAL_STRING) - 1, &p, 0);
 847       int gotasig = target_signal_from_host (sig);
 848       ourstatus->value.sig = gotasig;
 849       if (gotasig)
 850         {
 851           LPCVOID x;
 852           DWORD n;
 853           ourstatus->kind = TARGET_WAITKIND_STOPPED;
 854           retval = strtoul (p, &p, 0);
 855           if (!retval)
 856             retval = main_thread_id;
 857           else if ((x = (LPCVOID) strtoul (p, &p, 0))
 858                    && ReadProcessMemory (current_process_handle, x,
 859                                          &saved_context, __COPY_CONTEXT_SIZE, &n)
 860                    && n == __COPY_CONTEXT_SIZE)
 861             have_saved_context = 1;
 862           current_event.dwThreadId = retval;
 863         }
 864     }
 865 #endif
 866
 867   if (s)
 868     xfree (s);
 869   return retval;
 870 }
 871
 872 static int
 873 display_selector (HANDLE thread, DWORD sel)
 874 {
 875   LDT_ENTRY info;
 876   if (GetThreadSelectorEntry (thread, sel, &info))
 877     {
 878       int base, limit;
 879       printf_filtered ("0x%03lx: ", sel);
 880       if (!info.HighWord.Bits.Pres)
 881         {
 882           puts_filtered ("Segment not present\n");
 883           return 0;
 884         }
 885       base = (info.HighWord.Bits.BaseHi << 24) +
 886              (info.HighWord.Bits.BaseMid << 16)
 887              + info.BaseLow;
 888       limit = (info.HighWord.Bits.LimitHi << 16) + info.LimitLow;
 889       if (info.HighWord.Bits.Granularity)
 890         limit = (limit << 12) | 0xfff;
 891       printf_filtered ("base=0x%08x limit=0x%08x", base, limit);
 892       if (info.HighWord.Bits.Default_Big)
 893         puts_filtered(" 32-bit ");
 894       else
 895         puts_filtered(" 16-bit ");
 896       switch ((info.HighWord.Bits.Type & 0xf) >> 1)
 897         {
 898         case 0:
 899           puts_filtered ("Data (Read-Only, Exp-up");
 900           break;
 901         case 1:
 902           puts_filtered ("Data (Read/Write, Exp-up");
 903           break;
 904         case 2:
 905           puts_filtered ("Unused segment (");
 906           break;
 907         case 3:
 908           puts_filtered ("Data (Read/Write, Exp-down");
 909           break;
 910         case 4:
 911           puts_filtered ("Code (Exec-Only, N.Conf");
 912           break;
 913         case 5:
 914           puts_filtered ("Code (Exec/Read, N.Conf");
 915           break;
 916         case 6:
 917           puts_filtered ("Code (Exec-Only, Conf");
 918           break;
 919         case 7:
 920           puts_filtered ("Code (Exec/Read, Conf");
 921           break;
 922         default:
 923           printf_filtered ("Unknown type 0x%x",info.HighWord.Bits.Type);
 924         }
 925       if ((info.HighWord.Bits.Type & 0x1) == 0)
 926         puts_filtered(", N.Acc");
 927       puts_filtered (")\n");
 928       if ((info.HighWord.Bits.Type & 0x10) == 0)
 929         puts_filtered("System selector ");
 930       printf_filtered ("Priviledge level = %d. ", info.HighWord.Bits.Dpl);
 931       if (info.HighWord.Bits.Granularity)
 932         puts_filtered ("Page granular.\n");
 933       else
 934         puts_filtered ("Byte granular.\n");
 935       return 1;
 936     }
 937   else
 938     {
 939       printf_filtered ("Invalid selector 0x%lx.\n",sel);
 940       return 0;
 941     }
 942 }
 943
 944 static void
 945 display_selectors (char * args, int from_tty)
 946 {
 947   if (!current_thread)
 948     {
 949       puts_filtered ("Impossible to display selectors now.\n");
 950       return;
 951     }
 952   if (!args)
 953     {
 954
 955       puts_filtered ("Selector $cs\n");
 956       display_selector (current_thread->h,
 957         current_thread->context.SegCs);
 958       puts_filtered ("Selector $ds\n");
 959       display_selector (current_thread->h,
 960         current_thread->context.SegDs);
 961       puts_filtered ("Selector $es\n");
 962       display_selector (current_thread->h,
 963         current_thread->context.SegEs);
 964       puts_filtered ("Selector $ss\n");
 965       display_selector (current_thread->h,
 966         current_thread->context.SegSs);
 967       puts_filtered ("Selector $fs\n");
 968       display_selector (current_thread->h,
 969         current_thread->context.SegFs);
 970       puts_filtered ("Selector $gs\n");
 971       display_selector (current_thread->h,
 972         current_thread->context.SegGs);
 973     }
 974   else
 975     {
 976       int sel;
 977       sel = parse_and_eval_long (args);
 978       printf_filtered ("Selector \"%s\"\n",args);
 979       display_selector (current_thread->h, sel);
 980     }
 981 }
 982
 983 static struct cmd_list_element *info_w32_cmdlist = NULL;
 984
 985 static void
 986 info_w32_command (char *args, int from_tty)
 987 {
 988   help_list (info_w32_cmdlist, "info w32 ", class_info, gdb_stdout);
 989 }
 990
 991
 992 #define DEBUG_EXCEPTION_SIMPLE(x)       if (debug_exceptions) \
 993   printf_unfiltered ("gdb: Target exception %s at 0x%08lx\n", x, \
 994   (DWORD) current_event.u.Exception.ExceptionRecord.ExceptionAddress)
 995
 996 static int
 997 handle_exception (struct target_waitstatus *ourstatus)
 998 {
 999   thread_info *th;
1000   DWORD code = current_event.u.Exception.ExceptionRecord.ExceptionCode;
1001
1002   ourstatus->kind = TARGET_WAITKIND_STOPPED;
1003
1004   /* Record the context of the current thread */
1005   th = thread_rec (current_event.dwThreadId, -1);
1006
1007   switch (code)
1008     {
1009     case EXCEPTION_ACCESS_VIOLATION:
1010       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_ACCESS_VIOLATION");
1011       ourstatus->value.sig = TARGET_SIGNAL_SEGV;
1012 #ifdef __CYGWIN__
1013       {
1014         /* See if the access violation happened within the cygwin DLL itself.  Cygwin uses
1015            a kind of exception handling to deal with passed-in invalid addresses. gdb
1016            should not treat these as real SEGVs since they will be silently handled by
1017            cygwin.  A real SEGV will (theoretically) be caught by cygwin later in the process
1018            and will be sent as a cygwin-specific-signal.  So, ignore SEGVs if they show up
1019            within the text segment of the DLL itself. */
1020         char *fn;
1021         bfd_vma addr = (bfd_vma) (uintptr_t) current_event.u.Exception.
1022                                              ExceptionRecord.ExceptionAddress;
1023         if ((!cygwin_exceptions && (addr >= cygwin_load_start && addr < cygwin_load_end))
1024             || (find_pc_partial_function (addr, &fn, NULL, NULL)
1025                 && strncmp (fn, "KERNEL32!IsBad", strlen ("KERNEL32!IsBad")) == 0))
1026           return 0;
1027       }
1028 #endif
1029       break;
1030     case STATUS_STACK_OVERFLOW:
1031       DEBUG_EXCEPTION_SIMPLE ("STATUS_STACK_OVERFLOW");
1032       ourstatus->value.sig = TARGET_SIGNAL_SEGV;
1033       break;
1034     case STATUS_FLOAT_DENORMAL_OPERAND:
1035       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_DENORMAL_OPERAND");
1036       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1037       break;
1038     case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
1039       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_ARRAY_BOUNDS_EXCEEDED");
1040       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1041       break;
1042     case STATUS_FLOAT_INEXACT_RESULT:
1043       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_INEXACT_RESULT");
1044       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1045       break;
1046     case STATUS_FLOAT_INVALID_OPERATION:
1047       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_INVALID_OPERATION");
1048       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1049       break;
1050     case STATUS_FLOAT_OVERFLOW:
1051       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_OVERFLOW");
1052       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1053       break;
1054     case STATUS_FLOAT_STACK_CHECK:
1055       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_STACK_CHECK");
1056       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1057       break;
1058     case STATUS_FLOAT_UNDERFLOW:
1059       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_UNDERFLOW");
1060       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1061       break;
1062     case STATUS_FLOAT_DIVIDE_BY_ZERO:
1063       DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_DIVIDE_BY_ZERO");
1064       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1065       break;
1066     case STATUS_INTEGER_DIVIDE_BY_ZERO:
1067       DEBUG_EXCEPTION_SIMPLE ("STATUS_INTEGER_DIVIDE_BY_ZERO");
1068       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1069       break;
1070     case STATUS_INTEGER_OVERFLOW:
1071       DEBUG_EXCEPTION_SIMPLE ("STATUS_INTEGER_OVERFLOW");
1072       ourstatus->value.sig = TARGET_SIGNAL_FPE;
1073       break;
1074     case EXCEPTION_BREAKPOINT:
1075       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_BREAKPOINT");
1076       ourstatus->value.sig = TARGET_SIGNAL_TRAP;
1077       break;
1078     case DBG_CONTROL_C:
1079       DEBUG_EXCEPTION_SIMPLE ("DBG_CONTROL_C");
1080       ourstatus->value.sig = TARGET_SIGNAL_INT;
1081       break;
1082     case DBG_CONTROL_BREAK:
1083       DEBUG_EXCEPTION_SIMPLE ("DBG_CONTROL_BREAK");
1084       ourstatus->value.sig = TARGET_SIGNAL_INT;
1085       break;
1086     case EXCEPTION_SINGLE_STEP:
1087       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_SINGLE_STEP");
1088       ourstatus->value.sig = TARGET_SIGNAL_TRAP;
1089       break;
1090     case EXCEPTION_ILLEGAL_INSTRUCTION:
1091       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_ILLEGAL_INSTRUCTION");
1092       ourstatus->value.sig = TARGET_SIGNAL_ILL;
1093       break;
1094     case EXCEPTION_PRIV_INSTRUCTION:
1095       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_PRIV_INSTRUCTION");
1096       ourstatus->value.sig = TARGET_SIGNAL_ILL;
1097       break;
1098     case EXCEPTION_NONCONTINUABLE_EXCEPTION:
1099       DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_NONCONTINUABLE_EXCEPTION");
1100       ourstatus->value.sig = TARGET_SIGNAL_ILL;
1101       break;
1102     default:
1103       /* Treat unhandled first chance exceptions specially. */
1104       if (current_event.u.Exception.dwFirstChance)
1105         return -1;
1106       printf_unfiltered ("gdb: unknown target exception 0x%08lx at 0x%08lx\n",
1107                     current_event.u.Exception.ExceptionRecord.ExceptionCode,
1108         (DWORD) current_event.u.Exception.ExceptionRecord.ExceptionAddress);
1109       ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN;
1110       break;
1111     }
1112   exception_count++;
1113   last_sig = ourstatus->value.sig;
1114   return 1;
1115 }
1116
1117 /* Resume all artificially suspended threads if we are continuing
1118    execution */
1119 static BOOL
1120 win32_continue (DWORD continue_status, int id)
1121 {
1122   int i;
1123   thread_info *th;
1124   BOOL res;
1125
1126   DEBUG_EVENTS (("ContinueDebugEvent (cpid=%ld, ctid=%ld, %s);\n",
1127                   current_event.dwProcessId, current_event.dwThreadId,
1128                   continue_status == DBG_CONTINUE ?
1129                   "DBG_CONTINUE" : "DBG_EXCEPTION_NOT_HANDLED"));
1130
1131   for (th = &thread_head; (th = th->next) != NULL;)
1132     if ((id == -1 || id == (int) th->id)
1133         && th->suspended)
1134       {
1135         if (debug_registers_changed)
1136           {
1137             th->context.ContextFlags |= CONTEXT_DEBUG_REGISTERS;
1138             th->context.Dr0 = dr[0];
1139             th->context.Dr1 = dr[1];
1140             th->context.Dr2 = dr[2];
1141             th->context.Dr3 = dr[3];
1142             th->context.Dr6 = DR6_CLEAR_VALUE;
1143             th->context.Dr7 = dr[7];
1144           }
1145         if (th->context.ContextFlags)
1146           {
1147             CHECK (SetThreadContext (th->h, &th->context));
1148             th->context.ContextFlags = 0;
1149           }
1150         if (th->suspended > 0)
1151           (void) ResumeThread (th->h);
1152         th->suspended = 0;
1153       }
1154
1155   res = ContinueDebugEvent (current_event.dwProcessId,
1156                             current_event.dwThreadId,
1157                             continue_status);
1158
1159   debug_registers_changed = 0;
1160   return res;
1161 }
1162
1163 /* Called in pathological case where Windows fails to send a
1164    CREATE_PROCESS_DEBUG_EVENT after an attach.  */
1165 static DWORD
1166 fake_create_process (void)
1167 {
1168   current_process_handle = OpenProcess (PROCESS_ALL_ACCESS, FALSE,
1169                                         current_event.dwProcessId);
1170   if (current_process_handle != NULL)
1171     open_process_used = 1;
1172   else
1173     {
1174       error (_("OpenProcess call failed, GetLastError = %lud\n"),
1175        GetLastError ());
1176       /*  We can not debug anything in that case.  */
1177     }
1178   main_thread_id = current_event.dwThreadId;
1179   current_thread = win32_add_thread (main_thread_id,
1180                                      current_event.u.CreateThread.hThread);
1181   return main_thread_id;
1182 }
1183
1184 static void
1185 win32_resume (ptid_t ptid, int step, enum target_signal sig)
1186 {
1187   thread_info *th;
1188   DWORD continue_status = DBG_CONTINUE;
1189
1190   int pid = PIDGET (ptid);
1191
1192   if (sig != TARGET_SIGNAL_0)
1193     {
1194       if (current_event.dwDebugEventCode != EXCEPTION_DEBUG_EVENT)
1195         {
1196           DEBUG_EXCEPT(("Cannot continue with signal %d here.\n",sig));
1197         }
1198       else if (sig == last_sig)
1199         continue_status = DBG_EXCEPTION_NOT_HANDLED;
1200       else
1201 #if 0
1202 /* This code does not seem to work, because
1203   the kernel does probably not consider changes in the ExceptionRecord
1204   structure when passing the exception to the inferior.
1205   Note that this seems possible in the exception handler itself.  */
1206         {
1207           int i;
1208           for (i = 0; xlate[i].them != -1; i++)
1209             if (xlate[i].us == sig)
1210               {
1211                 current_event.u.Exception.ExceptionRecord.ExceptionCode =
1212                   xlate[i].them;
1213                 continue_status = DBG_EXCEPTION_NOT_HANDLED;
1214                 break;
1215               }
1216           if (continue_status == DBG_CONTINUE)
1217             {
1218               DEBUG_EXCEPT(("Cannot continue with signal %d.\n",sig));
1219             }
1220         }
1221 #endif
1222         DEBUG_EXCEPT(("Can only continue with recieved signal %d.\n",
1223           last_sig));
1224     }
1225
1226   last_sig = TARGET_SIGNAL_0;
1227
1228   DEBUG_EXEC (("gdb: win32_resume (pid=%d, step=%d, sig=%d);\n",
1229                pid, step, sig));
1230
1231   /* Get context for currently selected thread */
1232   th = thread_rec (PIDGET (inferior_ptid), FALSE);
1233   if (th)
1234     {
1235       if (step)
1236         {
1237           /* Single step by setting t bit */
1238           win32_fetch_inferior_registers (get_current_regcache (),
1239                                           gdbarch_ps_regnum (current_gdbarch));
1240           th->context.EFlags |= FLAG_TRACE_BIT;
1241         }
1242
1243       if (th->context.ContextFlags)
1244         {
1245           if (debug_registers_changed)
1246             {
1247               th->context.Dr0 = dr[0];
1248               th->context.Dr1 = dr[1];
1249               th->context.Dr2 = dr[2];
1250               th->context.Dr3 = dr[3];
1251               th->context.Dr6 = DR6_CLEAR_VALUE;
1252               th->context.Dr7 = dr[7];
1253             }
1254           CHECK (SetThreadContext (th->h, &th->context));
1255           th->context.ContextFlags = 0;
1256         }
1257     }
1258
1259   /* Allow continuing with the same signal that interrupted us.
1260      Otherwise complain. */
1261
1262   win32_continue (continue_status, pid);
1263 }
1264
1265 /* Get the next event from the child.  Return 1 if the event requires
1266    handling by WFI (or whatever).
1267  */
1268 static int
1269 get_win32_debug_event (int pid, struct target_waitstatus *ourstatus)
1270 {
1271   BOOL debug_event;
1272   DWORD continue_status, event_code;
1273   thread_info *th;
1274   static thread_info dummy_thread_info;
1275   int retval = 0;
1276   ptid_t ptid = {-1};
1277
1278   last_sig = TARGET_SIGNAL_0;
1279
1280   if (!(debug_event = WaitForDebugEvent (&current_event, 1000)))
1281     goto out;
1282
1283   event_count++;
1284   continue_status = DBG_CONTINUE;
1285
1286   event_code = current_event.dwDebugEventCode;
1287   ourstatus->kind = TARGET_WAITKIND_SPURIOUS;
1288   th = NULL;
1289   have_saved_context = 0;
1290
1291   switch (event_code)
1292     {
1293     case CREATE_THREAD_DEBUG_EVENT:
1294       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1295                      (unsigned) current_event.dwProcessId,
1296                      (unsigned) current_event.dwThreadId,
1297                      "CREATE_THREAD_DEBUG_EVENT"));
1298       if (saw_create != 1)
1299         {
1300           if (!saw_create && attach_flag)
1301             {
1302               /* Kludge around a Windows bug where first event is a create
1303                  thread event.  Caused when attached process does not have
1304                  a main thread. */
1305               retval = fake_create_process ();
1306              if (retval)
1307                saw_create++;
1308             }
1309           break;
1310         }
1311       /* Record the existence of this thread */
1312       th = win32_add_thread (current_event.dwThreadId,
1313                              current_event.u.CreateThread.hThread);
1314       retval = current_event.dwThreadId;
1315       break;
1316
1317     case EXIT_THREAD_DEBUG_EVENT:
1318       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1319                      (unsigned) current_event.dwProcessId,
1320                      (unsigned) current_event.dwThreadId,
1321                      "EXIT_THREAD_DEBUG_EVENT"));
1322       if (current_event.dwThreadId != main_thread_id)
1323         {
1324           win32_delete_thread (current_event.dwThreadId);
1325           th = &dummy_thread_info;
1326         }
1327       break;
1328
1329     case CREATE_PROCESS_DEBUG_EVENT:
1330       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1331                      (unsigned) current_event.dwProcessId,
1332                      (unsigned) current_event.dwThreadId,
1333                      "CREATE_PROCESS_DEBUG_EVENT"));
1334       CloseHandle (current_event.u.CreateProcessInfo.hFile);
1335       if (++saw_create != 1)
1336         break;
1337
1338       current_process_handle = current_event.u.CreateProcessInfo.hProcess;
1339       if (main_thread_id)
1340         win32_delete_thread (main_thread_id);
1341       main_thread_id = current_event.dwThreadId;
1342       /* Add the main thread */
1343       th = win32_add_thread (main_thread_id,
1344                              current_event.u.CreateProcessInfo.hThread);
1345       retval = current_event.dwThreadId;
1346       break;
1347
1348     case EXIT_PROCESS_DEBUG_EVENT:
1349       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1350                      (unsigned) current_event.dwProcessId,
1351                      (unsigned) current_event.dwThreadId,
1352                      "EXIT_PROCESS_DEBUG_EVENT"));
1353       if (saw_create != 1)
1354         break;
1355       ourstatus->kind = TARGET_WAITKIND_EXITED;
1356       ourstatus->value.integer = current_event.u.ExitProcess.dwExitCode;
1357       retval = main_thread_id;
1358       break;
1359
1360     case LOAD_DLL_DEBUG_EVENT:
1361       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1362                      (unsigned) current_event.dwProcessId,
1363                      (unsigned) current_event.dwThreadId,
1364                      "LOAD_DLL_DEBUG_EVENT"));
1365       CloseHandle (current_event.u.LoadDll.hFile);
1366       if (saw_create != 1)
1367         break;
1368       catch_errors (handle_load_dll, NULL, (char *) "", RETURN_MASK_ALL);
1369       ourstatus->kind = TARGET_WAITKIND_LOADED;
1370       ourstatus->value.integer = 0;
1371       retval = main_thread_id;
1372       break;
1373
1374     case UNLOAD_DLL_DEBUG_EVENT:
1375       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1376                      (unsigned) current_event.dwProcessId,
1377                      (unsigned) current_event.dwThreadId,
1378                      "UNLOAD_DLL_DEBUG_EVENT"));
1379       if (saw_create != 1)
1380         break;
1381       catch_errors (handle_unload_dll, NULL, (char *) "", RETURN_MASK_ALL);
1382       ourstatus->kind = TARGET_WAITKIND_LOADED;
1383       ourstatus->value.integer = 0;
1384       retval = main_thread_id;
1385       break;
1386
1387     case EXCEPTION_DEBUG_EVENT:
1388       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1389                      (unsigned) current_event.dwProcessId,
1390                      (unsigned) current_event.dwThreadId,
1391                      "EXCEPTION_DEBUG_EVENT"));
1392       if (saw_create != 1)
1393         break;
1394       switch (handle_exception (ourstatus))
1395         {
1396         case 0:
1397           continue_status = DBG_EXCEPTION_NOT_HANDLED;
1398           break;
1399         case 1:
1400           retval = current_event.dwThreadId;
1401           break;
1402         case -1:
1403           last_sig = 1;
1404           continue_status = -1;
1405           break;
1406         }
1407       break;
1408
1409     case OUTPUT_DEBUG_STRING_EVENT:     /* message from the kernel */
1410       DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
1411                      (unsigned) current_event.dwProcessId,
1412                      (unsigned) current_event.dwThreadId,
1413                      "OUTPUT_DEBUG_STRING_EVENT"));
1414       if (saw_create != 1)
1415         break;
1416       retval = handle_output_debug_string (ourstatus);
1417       break;
1418
1419     default:
1420       if (saw_create != 1)
1421         break;
1422       printf_unfiltered ("gdb: kernel event for pid=%ld tid=%ld\n",
1423                          (DWORD) current_event.dwProcessId,
1424                          (DWORD) current_event.dwThreadId);
1425       printf_unfiltered ("                 unknown event code %ld\n",
1426                          current_event.dwDebugEventCode);
1427       break;
1428     }
1429
1430   if (!retval || saw_create != 1)
1431     {
1432       if (continue_status == -1)
1433         win32_resume (ptid, 0, 1);
1434       else
1435         CHECK (win32_continue (continue_status, -1));
1436     }
1437   else
1438     {
1439       inferior_ptid = pid_to_ptid (retval);
1440       current_thread = th ?: thread_rec (current_event.dwThreadId, TRUE);
1441     }
1442
1443 out:
1444   return retval;
1445 }
1446
1447 /* Wait for interesting events to occur in the target process. */
1448 static ptid_t
1449 win32_wait (ptid_t ptid, struct target_waitstatus *ourstatus)
1450 {
1451   int pid = PIDGET (ptid);
1452
1453   target_terminal_ours ();
1454
1455   /* We loop when we get a non-standard exception rather than return
1456      with a SPURIOUS because resume can try and step or modify things,
1457      which needs a current_thread->h.  But some of these exceptions mark
1458      the birth or death of threads, which mean that the current thread
1459      isn't necessarily what you think it is. */
1460
1461   while (1)
1462     {
1463       int retval;
1464
1465       /* Ignore CTRL+C signals while waiting for a debug event.
1466          FIXME: brobecker/2008-05-20: When the user presses CTRL+C while
1467          the inferior is running, both the inferior and GDB receive the
1468          associated signal.  If the inferior receives the signal first
1469          and the delay until GDB receives that signal is sufficiently long,
1470          GDB can sometimes receive the SIGINT after we have unblocked
1471          the CTRL+C handler.  This would lead to the debugger to stop
1472          prematurely while handling the new-thread event that comes
1473          with the handling of the SIGINT inside the inferior, and then
1474          stop again immediately when the user tries to resume the execution
1475          in the inferior.  This is a classic race, and it would be nice
1476          to find a better solution to that problem.  But in the meantime,
1477          the current approach already greatly mitigate this issue.  */
1478       SetConsoleCtrlHandler (NULL, TRUE);
1479       retval = get_win32_debug_event (pid, ourstatus);
1480       SetConsoleCtrlHandler (NULL, FALSE);
1481
1482       if (retval)
1483         return pid_to_ptid (retval);
1484       else
1485         {
1486           int detach = 0;
1487
1488           if (deprecated_ui_loop_hook != NULL)
1489             detach = deprecated_ui_loop_hook (0);
1490
1491           if (detach)
1492             win32_kill_inferior ();
1493         }
1494     }
1495 }
1496
1497 static void
1498 do_initial_win32_stuff (DWORD pid)
1499 {
1500   extern int stop_after_trap;
1501   int i;
1502
1503   last_sig = TARGET_SIGNAL_0;
1504   event_count = 0;
1505   exception_count = 0;
1506   open_process_used = 0;
1507   debug_registers_changed = 0;
1508   debug_registers_used = 0;
1509   for (i = 0; i < sizeof (dr) / sizeof (dr[0]); i++)
1510     dr[i] = 0;
1511 #ifdef __CYGWIN__
1512   cygwin_load_start = cygwin_load_end = 0;
1513 #endif
1514   current_event.dwProcessId = pid;
1515   memset (&current_event, 0, sizeof (current_event));
1516   push_target (&win32_ops);
1517   disable_breakpoints_in_shlibs ();
1518   win32_clear_solib ();
1519   clear_proceed_status ();
1520   init_wait_for_inferior ();
1521
1522   terminal_init_inferior_with_pgrp (pid);
1523   target_terminal_inferior ();
1524
1525   stop_soon = STOP_QUIETLY;
1526   while (1)
1527     {
1528       stop_after_trap = 1;
1529       wait_for_inferior (0);
1530       if (stop_signal != TARGET_SIGNAL_TRAP)
1531         resume (0, stop_signal);
1532       else
1533         break;
1534     }
1535
1536   stop_soon = NO_STOP_QUIETLY;
1537   stop_after_trap = 0;
1538   return;
1539 }
1540
1541 /* Since Windows XP, detaching from a process is supported by Windows.
1542    The following code tries loading the appropriate functions dynamically.
1543    If loading these functions succeeds use them to actually detach from
1544    the inferior process, otherwise behave as usual, pretending that
1545    detach has worked. */
1546 static BOOL WINAPI (*DebugSetProcessKillOnExit)(BOOL);
1547 static BOOL WINAPI (*DebugActiveProcessStop)(DWORD);
1548
1549 static int
1550 has_detach_ability (void)
1551 {
1552   static HMODULE kernel32 = NULL;
1553
1554   if (!kernel32)
1555     kernel32 = LoadLibrary ("kernel32.dll");
1556   if (kernel32)
1557     {
1558       if (!DebugSetProcessKillOnExit)
1559         DebugSetProcessKillOnExit = GetProcAddress (kernel32,
1560                                                  "DebugSetProcessKillOnExit");
1561       if (!DebugActiveProcessStop)
1562         DebugActiveProcessStop = GetProcAddress (kernel32,
1563                                                  "DebugActiveProcessStop");
1564       if (DebugSetProcessKillOnExit && DebugActiveProcessStop)
1565         return 1;
1566     }
1567   return 0;
1568 }
1569
1570 /* Try to set or remove a user privilege to the current process.  Return -1
1571    if that fails, the previous setting of that privilege otherwise.
1572
1573    This code is copied from the Cygwin source code and rearranged to allow
1574    dynamically loading of the needed symbols from advapi32 which is only
1575    available on NT/2K/XP. */
1576 static int
1577 set_process_privilege (const char *privilege, BOOL enable)
1578 {
1579   static HMODULE advapi32 = NULL;
1580   static BOOL WINAPI (*OpenProcessToken)(HANDLE, DWORD, PHANDLE);
1581   static BOOL WINAPI (*LookupPrivilegeValue)(LPCSTR, LPCSTR, PLUID);
1582   static BOOL WINAPI (*AdjustTokenPrivileges)(HANDLE, BOOL, PTOKEN_PRIVILEGES,
1583                                               DWORD, PTOKEN_PRIVILEGES, PDWORD);
1584
1585   HANDLE token_hdl = NULL;
1586   LUID restore_priv;
1587   TOKEN_PRIVILEGES new_priv, orig_priv;
1588   int ret = -1;
1589   DWORD size;
1590
1591   if (GetVersion () >= 0x80000000)  /* No security availbale on 9x/Me */
1592     return 0;
1593
1594   if (!advapi32)
1595     {
1596       if (!(advapi32 = LoadLibrary ("advapi32.dll")))
1597         goto out;
1598       if (!OpenProcessToken)
1599         OpenProcessToken = GetProcAddress (advapi32, "OpenProcessToken");
1600       if (!LookupPrivilegeValue)
1601         LookupPrivilegeValue = GetProcAddress (advapi32,
1602                                                "LookupPrivilegeValueA");
1603       if (!AdjustTokenPrivileges)
1604         AdjustTokenPrivileges = GetProcAddress (advapi32,
1605                                                 "AdjustTokenPrivileges");
1606       if (!OpenProcessToken || !LookupPrivilegeValue || !AdjustTokenPrivileges)
1607         {
1608           advapi32 = NULL;
1609           goto out;
1610         }
1611     }
1612
1613   if (!OpenProcessToken (GetCurrentProcess (),
1614                          TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
1615                          &token_hdl))
1616     goto out;
1617
1618   if (!LookupPrivilegeValue (NULL, privilege, &restore_priv))
1619     goto out;
1620
1621   new_priv.PrivilegeCount = 1;
1622   new_priv.Privileges[0].Luid = restore_priv;
1623   new_priv.Privileges[0].Attributes = enable ? SE_PRIVILEGE_ENABLED : 0;
1624
1625   if (!AdjustTokenPrivileges (token_hdl, FALSE, &new_priv,
1626                               sizeof orig_priv, &orig_priv, &size))
1627     goto out;
1628 #if 0
1629   /* Disabled, otherwise every `attach' in an unprivileged user session
1630      would raise the "Failed to get SE_DEBUG_NAME privilege" warning in
1631      win32_attach(). */
1632   /* AdjustTokenPrivileges returns TRUE even if the privilege could not
1633      be enabled. GetLastError () returns an correct error code, though. */
1634   if (enable && GetLastError () == ERROR_NOT_ALL_ASSIGNED)
1635     goto out;
1636 #endif
1637
1638   ret = orig_priv.Privileges[0].Attributes == SE_PRIVILEGE_ENABLED ? 1 : 0;
1639
1640 out:
1641   if (token_hdl)
1642     CloseHandle (token_hdl);
1643
1644   return ret;
1645 }
1646
1647 /* Attach to process PID, then initialize for debugging it.  */
1648 static void
1649 win32_attach (char *args, int from_tty)
1650 {
1651   BOOL ok;
1652   DWORD pid;
1653
1654   if (!args)
1655     error_no_arg (_("process-id to attach"));
1656
1657   if (set_process_privilege (SE_DEBUG_NAME, TRUE) < 0)
1658     {
1659       printf_unfiltered ("Warning: Failed to get SE_DEBUG_NAME privilege\n");
1660       printf_unfiltered ("This can cause attach to fail on Windows NT/2K/XP\n");
1661     }
1662
1663   pid = strtoul (args, 0, 0);           /* Windows pid */
1664
1665   win32_init_thread_list ();
1666   ok = DebugActiveProcess (pid);
1667   saw_create = 0;
1668
1669 #ifdef __CYGWIN__
1670   if (!ok)
1671     {
1672       /* Try fall back to Cygwin pid */
1673       pid = cygwin_internal (CW_CYGWIN_PID_TO_WINPID, pid);
1674
1675       if (pid > 0)
1676         ok = DebugActiveProcess (pid);
1677   }
1678 #endif
1679
1680   if (!ok)
1681     error (_("Can't attach to process."));
1682
1683   if (has_detach_ability ())
1684     DebugSetProcessKillOnExit (FALSE);
1685
1686   attach_flag = 1;
1687
1688   if (from_tty)
1689     {
1690       char *exec_file = (char *) get_exec_file (0);
1691
1692       if (exec_file)
1693         printf_unfiltered ("Attaching to program `%s', %s\n", exec_file,
1694                            target_pid_to_str (pid_to_ptid (pid)));
1695       else
1696         printf_unfiltered ("Attaching to %s\n",
1697                            target_pid_to_str (pid_to_ptid (pid)));
1698
1699       gdb_flush (gdb_stdout);
1700     }
1701
1702   do_initial_win32_stuff (pid);
1703   target_terminal_ours ();
1704 }
1705
1706 static void
1707 win32_detach (char *args, int from_tty)
1708 {
1709   int detached = 1;
1710
1711   if (has_detach_ability ())
1712     {
1713       ptid_t ptid = {-1};
1714       win32_resume (ptid, 0, TARGET_SIGNAL_0);
1715
1716       if (!DebugActiveProcessStop (current_event.dwProcessId))
1717         {
1718           error (_("Can't detach process %lu (error %lu)"),
1719                  current_event.dwProcessId, GetLastError ());
1720           detached = 0;
1721         }
1722       DebugSetProcessKillOnExit (FALSE);
1723     }
1724   if (detached && from_tty)
1725     {
1726       char *exec_file = get_exec_file (0);
1727       if (exec_file == 0)
1728         exec_file = "";
1729       printf_unfiltered ("Detaching from program: %s, Pid %lu\n", exec_file,
1730                          current_event.dwProcessId);
1731       gdb_flush (gdb_stdout);
1732     }
1733   inferior_ptid = null_ptid;
1734   unpush_target (&win32_ops);
1735 }
1736
1737 static char *
1738 win32_pid_to_exec_file (int pid)
1739 {
1740   static char path[MAX_PATH + 1];
1741
1742 #ifdef __CYGWIN__
1743   /* Try to find exe name as symlink target of /proc/<pid>/exe */
1744   int nchars;
1745   char procexe[sizeof ("/proc/4294967295/exe")];
1746   sprintf (procexe, "/proc/%lu/exe", current_event.dwProcessId);
1747   nchars = readlink (procexe, path, sizeof(path));
1748   if (nchars > 0 && nchars < sizeof (path))
1749     {
1750       path[nchars] = '\0';      /* Got it */
1751       return path;
1752     }
1753 #endif
1754
1755   /* If we get here then either Cygwin is hosed, this isn't a Cygwin version
1756      of gdb, or we're trying to debug a non-Cygwin windows executable. */
1757   if (!get_module_name (0, path))
1758     path[0] = '\0';
1759
1760   return path;
1761 }
1762
1763 /* Print status information about what we're accessing.  */
1764
1765 static void
1766 win32_files_info (struct target_ops *ignore)
1767 {
1768   printf_unfiltered ("\tUsing the running image of %s %s.\n",
1769       attach_flag ? "attached" : "child", target_pid_to_str (inferior_ptid));
1770 }
1771
1772 static void
1773 win32_open (char *arg, int from_tty)
1774 {
1775   error (_("Use the \"run\" command to start a Unix child process."));
1776 }
1777
1778 /* Start an inferior win32 child process and sets inferior_ptid to its pid.
1779    EXEC_FILE is the file to run.
1780    ALLARGS is a string containing the arguments to the program.
1781    ENV is the environment vector to pass.  Errors reported with error().  */
1782
1783 static void
1784 win32_create_inferior (char *exec_file, char *allargs, char **in_env,
1785                        int from_tty)
1786 {
1787   STARTUPINFO si;
1788   PROCESS_INFORMATION pi;
1789   BOOL ret;
1790   DWORD flags;
1791   char *args;
1792   char real_path[MAXPATHLEN];
1793   char *toexec;
1794   char shell[MAX_PATH + 1]; /* Path to shell */
1795   const char *sh;
1796   int tty;
1797   int ostdin, ostdout, ostderr;
1798   const char *inferior_io_terminal = get_inferior_io_terminal ();
1799
1800   if (!exec_file)
1801     error (_("No executable specified, use `target exec'."));
1802
1803   memset (&si, 0, sizeof (si));
1804   si.cb = sizeof (si);
1805
1806 #ifdef __CYGWIN__
1807   if (!useshell)
1808     {
1809       flags = DEBUG_ONLY_THIS_PROCESS;
1810       cygwin_conv_to_win32_path (exec_file, real_path);
1811       toexec = real_path;
1812     }
1813   else
1814     {
1815       char *newallargs;
1816       sh = getenv ("SHELL");
1817       if (!sh)
1818         sh = "/bin/sh";
1819       cygwin_conv_to_win32_path (sh, shell);
1820       newallargs = alloca (sizeof (" -c 'exec  '") + strlen (exec_file)
1821                            + strlen (allargs) + 2);
1822       sprintf (newallargs, " -c 'exec %s %s'", exec_file, allargs);
1823       allargs = newallargs;
1824       toexec = shell;
1825       flags = DEBUG_PROCESS;
1826     }
1827 #else
1828   toexec = exec_file;
1829   flags = DEBUG_ONLY_THIS_PROCESS;
1830 #endif
1831
1832   if (new_group)
1833     flags |= CREATE_NEW_PROCESS_GROUP;
1834
1835   if (new_console)
1836     flags |= CREATE_NEW_CONSOLE;
1837
1838   attach_flag = 0;
1839
1840   args = alloca (strlen (toexec) + strlen (allargs) + 2);
1841   strcpy (args, toexec);
1842   strcat (args, " ");
1843   strcat (args, allargs);
1844
1845 #ifdef __CYGWIN__
1846   /* Prepare the environment vars for CreateProcess.  */
1847   cygwin_internal (CW_SYNC_WINENV);
1848
1849   if (!inferior_io_terminal)
1850     tty = ostdin = ostdout = ostderr = -1;
1851   else
1852     {
1853       tty = open (inferior_io_terminal, O_RDWR | O_NOCTTY);
1854       if (tty < 0)
1855         {
1856           print_sys_errmsg (inferior_io_terminal, errno);
1857           ostdin = ostdout = ostderr = -1;
1858         }
1859       else
1860         {
1861           ostdin = dup (0);
1862           ostdout = dup (1);
1863           ostderr = dup (2);
1864           dup2 (tty, 0);
1865           dup2 (tty, 1);
1866           dup2 (tty, 2);
1867         }
1868     }
1869 #endif
1870
1871   win32_init_thread_list ();
1872   ret = CreateProcess (0,
1873                        args,    /* command line */
1874                        NULL,    /* Security */
1875                        NULL,    /* thread */
1876                        TRUE,    /* inherit handles */
1877                        flags,   /* start flags */
1878                        NULL,    /* environment */
1879                        NULL,    /* current directory */
1880                        &si,
1881                        &pi);
1882
1883 #ifdef __CYGWIN__
1884   if (tty >= 0)
1885     {
1886       close (tty);
1887       dup2 (ostdin, 0);
1888       dup2 (ostdout, 1);
1889       dup2 (ostderr, 2);
1890       close (ostdin);
1891       close (ostdout);
1892       close (ostderr);
1893     }
1894 #endif
1895
1896   if (!ret)
1897     error (_("Error creating process %s, (error %d)."),
1898            exec_file, (unsigned) GetLastError ());
1899
1900   CloseHandle (pi.hThread);
1901   CloseHandle (pi.hProcess);
1902
1903   if (useshell && shell[0] != '\0')
1904     saw_create = -1;
1905   else
1906     saw_create = 0;
1907
1908   do_initial_win32_stuff (pi.dwProcessId);
1909
1910   /* win32_continue (DBG_CONTINUE, -1); */
1911 }
1912
1913 static void
1914 win32_mourn_inferior (void)
1915 {
1916   (void) win32_continue (DBG_CONTINUE, -1);
1917   i386_cleanup_dregs();
1918   if (open_process_used)
1919     {
1920       CHECK (CloseHandle (current_process_handle));
1921       open_process_used = 0;
1922     }
1923   unpush_target (&win32_ops);
1924   generic_mourn_inferior ();
1925 }
1926
1927 /* Send a SIGINT to the process group.  This acts just like the user typed a
1928    ^C on the controlling terminal. */
1929
1930 static void
1931 win32_stop (void)
1932 {
1933   DEBUG_EVENTS (("gdb: GenerateConsoleCtrlEvent (CTRLC_EVENT, 0)\n"));
1934   CHECK (GenerateConsoleCtrlEvent (CTRL_C_EVENT, current_event.dwProcessId));
1935   registers_changed ();         /* refresh register state */
1936 }
1937
1938 static int
1939 win32_xfer_memory (CORE_ADDR memaddr, gdb_byte *our, int len,
1940                    int write, struct mem_attrib *mem,
1941                    struct target_ops *target)
1942 {
1943   DWORD done = 0;
1944   if (write)
1945     {
1946       DEBUG_MEM (("gdb: write target memory, %d bytes at 0x%08lx\n",
1947                   len, (DWORD) (uintptr_t) memaddr));
1948       if (!WriteProcessMemory (current_process_handle,
1949                                (LPVOID) (uintptr_t) memaddr, our,
1950                                len, &done))
1951         done = 0;
1952       FlushInstructionCache (current_process_handle,
1953                              (LPCVOID) (uintptr_t) memaddr, len);
1954     }
1955   else
1956     {
1957       DEBUG_MEM (("gdb: read target memory, %d bytes at 0x%08lx\n",
1958                   len, (DWORD) (uintptr_t) memaddr));
1959       if (!ReadProcessMemory (current_process_handle,
1960                               (LPCVOID) (uintptr_t) memaddr, our,
1961                               len, &done))
1962         done = 0;
1963     }
1964   return done;
1965 }
1966
1967 static void
1968 win32_kill_inferior (void)
1969 {
1970   CHECK (TerminateProcess (current_process_handle, 0));
1971
1972   for (;;)
1973     {
1974       if (!win32_continue (DBG_CONTINUE, -1))
1975         break;
1976       if (!WaitForDebugEvent (&current_event, INFINITE))
1977         break;
1978       if (current_event.dwDebugEventCode == EXIT_PROCESS_DEBUG_EVENT)
1979         break;
1980     }
1981
1982   target_mourn_inferior ();     /* or just win32_mourn_inferior? */
1983 }
1984
1985 static void
1986 win32_prepare_to_store (struct regcache *regcache)
1987 {
1988   /* Do nothing, since we can store individual regs */
1989 }
1990
1991 static int
1992 win32_can_run (void)
1993 {
1994   return 1;
1995 }
1996
1997 static void
1998 win32_close (int x)
1999 {
2000   DEBUG_EVENTS (("gdb: win32_close, inferior_ptid=%d\n",
2001                 PIDGET (inferior_ptid)));
2002 }
2003
2004 /* Convert pid to printable format. */
2005 static char *
2006 win32_pid_to_str (ptid_t ptid)
2007 {
2008   static char buf[80];
2009   int pid = PIDGET (ptid);
2010
2011   if ((DWORD) pid == current_event.dwProcessId)
2012     sprintf (buf, "process %d", pid);
2013   else
2014     sprintf (buf, "Thread %ld.0x%x", current_event.dwProcessId, pid);
2015   return buf;
2016 }
2017
2018 static LONGEST
2019 win32_xfer_shared_libraries (struct target_ops *ops,
2020                              enum target_object object, const char *annex,
2021                              gdb_byte *readbuf, const gdb_byte *writebuf,
2022                              ULONGEST offset, LONGEST len)
2023 {
2024   struct obstack obstack;
2025   const char *buf;
2026   LONGEST len_avail;
2027   struct so_list *so;
2028
2029   if (writebuf)
2030     return -1;
2031
2032   obstack_init (&obstack);
2033   obstack_grow_str (&obstack, "<library-list>\n");
2034   for (so = solib_start.next; so; so = so->next)
2035     win32_xfer_shared_library (so->so_name, so->lm_info->load_addr, &obstack);
2036   obstack_grow_str0 (&obstack, "</library-list>\n");
2037
2038   buf = obstack_finish (&obstack);
2039   len_avail = strlen (buf);
2040   if (offset >= len_avail)
2041     return 0;
2042
2043   if (len > len_avail - offset)
2044     len = len_avail - offset;
2045   memcpy (readbuf, buf + offset, len);
2046
2047   obstack_free (&obstack, NULL);
2048   return len;
2049 }
2050
2051 static LONGEST
2052 win32_xfer_partial (struct target_ops *ops, enum target_object object,
2053                     const char *annex, gdb_byte *readbuf,
2054                     const gdb_byte *writebuf, ULONGEST offset, LONGEST len)
2055 {
2056   switch (object)
2057     {
2058     case TARGET_OBJECT_MEMORY:
2059       if (readbuf)
2060         return (*ops->deprecated_xfer_memory) (offset, readbuf,
2061                                                len, 0/*read*/, NULL, ops);
2062       if (writebuf)
2063         return (*ops->deprecated_xfer_memory) (offset, (gdb_byte *) writebuf,
2064                                                len, 1/*write*/, NULL, ops);
2065       return -1;
2066
2067     case TARGET_OBJECT_LIBRARIES:
2068       return win32_xfer_shared_libraries (ops, object, annex, readbuf,
2069                                           writebuf, offset, len);
2070
2071     default:
2072       if (ops->beneath != NULL)
2073         return ops->beneath->to_xfer_partial (ops->beneath, object, annex,
2074                                               readbuf, writebuf, offset, len);
2075       return -1;
2076     }
2077 }
2078
2079 static void
2080 init_win32_ops (void)
2081 {
2082   win32_ops.to_shortname = "child";
2083   win32_ops.to_longname = "Win32 child process";
2084   win32_ops.to_doc = "Win32 child process (started by the \"run\" command).";
2085   win32_ops.to_open = win32_open;
2086   win32_ops.to_close = win32_close;
2087   win32_ops.to_attach = win32_attach;
2088   win32_ops.to_attach_no_wait = 1;
2089   win32_ops.to_detach = win32_detach;
2090   win32_ops.to_resume = win32_resume;
2091   win32_ops.to_wait = win32_wait;
2092   win32_ops.to_fetch_registers = win32_fetch_inferior_registers;
2093   win32_ops.to_store_registers = win32_store_inferior_registers;
2094   win32_ops.to_prepare_to_store = win32_prepare_to_store;
2095   win32_ops.deprecated_xfer_memory = win32_xfer_memory;
2096   win32_ops.to_xfer_partial = win32_xfer_partial;
2097   win32_ops.to_files_info = win32_files_info;
2098   win32_ops.to_insert_breakpoint = memory_insert_breakpoint;
2099   win32_ops.to_remove_breakpoint = memory_remove_breakpoint;
2100   win32_ops.to_terminal_init = terminal_init_inferior;
2101   win32_ops.to_terminal_inferior = terminal_inferior;
2102   win32_ops.to_terminal_ours_for_output = terminal_ours_for_output;
2103   win32_ops.to_terminal_ours = terminal_ours;
2104   win32_ops.to_terminal_save_ours = terminal_save_ours;
2105   win32_ops.to_terminal_info = child_terminal_info;
2106   win32_ops.to_kill = win32_kill_inferior;
2107   win32_ops.to_create_inferior = win32_create_inferior;
2108   win32_ops.to_mourn_inferior = win32_mourn_inferior;
2109   win32_ops.to_can_run = win32_can_run;
2110   win32_ops.to_thread_alive = win32_win32_thread_alive;
2111   win32_ops.to_pid_to_str = win32_pid_to_str;
2112   win32_ops.to_stop = win32_stop;
2113   win32_ops.to_stratum = process_stratum;
2114   win32_ops.to_has_all_memory = 1;
2115   win32_ops.to_has_memory = 1;
2116   win32_ops.to_has_stack = 1;
2117   win32_ops.to_has_registers = 1;
2118   win32_ops.to_has_execution = 1;
2119   win32_ops.to_magic = OPS_MAGIC;
2120   win32_ops.to_pid_to_exec_file = win32_pid_to_exec_file;
2121 }
2122
2123 static void
2124 set_win32_aliases (char *argv0)
2125 {
2126   add_info_alias ("dll", "sharedlibrary", 1);
2127 }
2128
2129 void
2130 _initialize_win32_nat (void)
2131 {
2132   struct cmd_list_element *c;
2133
2134   init_win32_ops ();
2135
2136   c = add_com ("dll-symbols", class_files, dll_symbol_command,
2137                _("Load dll library symbols from FILE."));
2138   set_cmd_completer (c, filename_completer);
2139
2140   add_com_alias ("sharedlibrary", "dll-symbols", class_alias, 1);
2141
2142 #ifdef __CYGWIN__
2143   add_setshow_boolean_cmd ("shell", class_support, &useshell, _("\
2144 Set use of shell to start subprocess."), _("\
2145 Show use of shell to start subprocess."), NULL,
2146                            NULL,
2147                            NULL, /* FIXME: i18n: */
2148                            &setlist, &showlist);
2149
2150   add_setshow_boolean_cmd ("cygwin-exceptions", class_support, &cygwin_exceptions, _("\
2151 Break when an exception is detected in the Cygwin DLL itself."), _("\
2152 Show whether gdb breaks on exceptions in the Cygwin DLL itself."), NULL,
2153                            NULL,
2154                            NULL, /* FIXME: i18n: */
2155                            &setlist, &showlist);
2156 #endif
2157
2158   add_setshow_boolean_cmd ("new-console", class_support, &new_console, _("\
2159 Set creation of new console when creating child process."), _("\
2160 Show creation of new console when creating child process."), NULL,
2161                            NULL,
2162                            NULL, /* FIXME: i18n: */
2163                            &setlist, &showlist);
2164
2165   add_setshow_boolean_cmd ("new-group", class_support, &new_group, _("\
2166 Set creation of new group when creating child process."), _("\
2167 Show creation of new group when creating child process."), NULL,
2168                            NULL,
2169                            NULL, /* FIXME: i18n: */
2170                            &setlist, &showlist);
2171
2172   add_setshow_boolean_cmd ("debugexec", class_support, &debug_exec, _("\
2173 Set whether to display execution in child process."), _("\
2174 Show whether to display execution in child process."), NULL,
2175                            NULL,
2176                            NULL, /* FIXME: i18n: */
2177                            &setlist, &showlist);
2178
2179   add_setshow_boolean_cmd ("debugevents", class_support, &debug_events, _("\
2180 Set whether to display kernel events in child process."), _("\
2181 Show whether to display kernel events in child process."), NULL,
2182                            NULL,
2183                            NULL, /* FIXME: i18n: */
2184                            &setlist, &showlist);
2185
2186   add_setshow_boolean_cmd ("debugmemory", class_support, &debug_memory, _("\
2187 Set whether to display memory accesses in child process."), _("\
2188 Show whether to display memory accesses in child process."), NULL,
2189                            NULL,
2190                            NULL, /* FIXME: i18n: */
2191                            &setlist, &showlist);
2192
2193   add_setshow_boolean_cmd ("debugexceptions", class_support,
2194                            &debug_exceptions, _("\
2195 Set whether to display kernel exceptions in child process."), _("\
2196 Show whether to display kernel exceptions in child process."), NULL,
2197                            NULL,
2198                            NULL, /* FIXME: i18n: */
2199                            &setlist, &showlist);
2200
2201   add_prefix_cmd ("w32", class_info, info_w32_command,
2202                   _("Print information specific to Win32 debugging."),
2203                   &info_w32_cmdlist, "info w32 ", 0, &infolist);
2204
2205   add_cmd ("selector", class_info, display_selectors,
2206            _("Display selectors infos."),
2207            &info_w32_cmdlist);
2208   add_target (&win32_ops);
2209   deprecated_init_ui_hook = set_win32_aliases;
2210 }
2211
2212 /* Hardware watchpoint support, adapted from go32-nat.c code.  */
2213
2214 /* Pass the address ADDR to the inferior in the I'th debug register.
2215    Here we just store the address in dr array, the registers will be
2216    actually set up when win32_continue is called.  */
2217 void
2218 cygwin_set_dr (int i, CORE_ADDR addr)
2219 {
2220   if (i < 0 || i > 3)
2221     internal_error (__FILE__, __LINE__,
2222                     _("Invalid register %d in cygwin_set_dr.\n"), i);
2223   dr[i] = (unsigned) addr;
2224   debug_registers_changed = 1;
2225   debug_registers_used = 1;
2226 }
2227
2228 /* Pass the value VAL to the inferior in the DR7 debug control
2229    register.  Here we just store the address in D_REGS, the watchpoint
2230    will be actually set up in win32_wait.  */
2231 void
2232 cygwin_set_dr7 (unsigned val)
2233 {
2234   dr[7] = val;
2235   debug_registers_changed = 1;
2236   debug_registers_used = 1;
2237 }
2238
2239 /* Get the value of the DR6 debug status register from the inferior.
2240    Here we just return the value stored in dr[6]
2241    by the last call to thread_rec for current_event.dwThreadId id.  */
2242 unsigned
2243 cygwin_get_dr6 (void)
2244 {
2245   return dr[6];
2246 }
2247
2248 /* Determine if the thread referenced by "pid" is alive
2249    by "polling" it.  If WaitForSingleObject returns WAIT_OBJECT_0
2250    it means that the pid has died.  Otherwise it is assumed to be alive. */
2251 static int
2252 win32_win32_thread_alive (ptid_t ptid)
2253 {
2254   int pid = PIDGET (ptid);
2255
2256   return WaitForSingleObject (thread_rec (pid, FALSE)->h, 0) == WAIT_OBJECT_0 ?
2257     FALSE : TRUE;
2258 }
2259
2260 void
2261 _initialize_check_for_gdb_ini (void)
2262 {
2263   char *homedir;
2264   if (inhibit_gdbinit)
2265     return;
2266
2267   homedir = getenv ("HOME");
2268   if (homedir)
2269     {
2270       char *p;
2271       char *oldini = (char *) alloca (strlen (homedir) +
2272                                       sizeof ("/gdb.ini"));
2273       strcpy (oldini, homedir);
2274       p = strchr (oldini, '\0');
2275       if (p > oldini && p[-1] != '/')
2276         *p++ = '/';
2277       strcpy (p, "gdb.ini");
2278       if (access (oldini, 0) == 0)
2279         {
2280           int len = strlen (oldini);
2281           char *newini = alloca (len + 1);
2282           sprintf (newini, "%.*s.gdbinit",
2283             (int) (len - (sizeof ("gdb.ini") - 1)), oldini);
2284           warning (_("obsolete '%s' found. Rename to '%s'."), oldini, newini);
2285         }
2286     }
2287 }
2288
2289 void
2290 _initialize_psapi (void)
2291 {
2292   /* Load optional functions used for retrieving filename information
2293      associated with the currently debugged process or its dlls. */
2294   if (!psapi_loaded)
2295     {
2296       HMODULE psapi_module_handle;
2297
2298       psapi_loaded = -1;
2299
2300       psapi_module_handle = LoadLibrary ("psapi.dll");
2301       if (psapi_module_handle)
2302         {
2303           psapi_EnumProcessModules = (void *) GetProcAddress (psapi_module_handle, "EnumProcessModules");
2304           psapi_GetModuleInformation = (void *) GetProcAddress (psapi_module_handle, "GetModuleInformation");
2305           psapi_GetModuleFileNameExA = (void *) GetProcAddress (psapi_module_handle, "GetModuleFileNameExA");
2306
2307           if (psapi_EnumProcessModules != NULL
2308               && psapi_GetModuleInformation != NULL
2309               && psapi_GetModuleFileNameExA != NULL)
2310             psapi_loaded = 1;
2311         }
2312     }
2313
2314   /* This will probably fail on Windows 9x/Me.  Let the user know that we're
2315      missing some functionality. */
2316   if (psapi_loaded < 0)
2317     warning(_("cannot automatically find executable file or library to read symbols.  Use \"file\" or \"dll\" command to load executable/libraries directly."));
2318 }