1 /* Target-vector operations for controlling windows child processes, for GDB.
3 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
6 Contributed by Cygnus Solutions, A Red Hat Company.
8 This file is part of GDB.
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.
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.
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/>. */
23 /* Originally by Steve Chamberlain, sac@cygnus.com */
26 #include "frame.h" /* required by inferior.h */
29 #include "exceptions.h"
32 #include "completer.h"
36 #include <sys/types.h>
43 #include <sys/cygwin.h>
44 #include <cygwin/version.h>
49 #include "filenames.h"
52 #include "gdb_obstack.h"
53 #include "gdb_string.h"
54 #include "gdbthread.h"
56 #include <sys/param.h>
61 #include "xml-support.h"
63 #include "i386-tdep.h"
64 #include "i387-tdep.h"
66 #include "windows-tdep.h"
67 #include "windows-nat.h"
69 #include "complaints.h"
71 #define AdjustTokenPrivileges dyn_AdjustTokenPrivileges
72 #define DebugActiveProcessStop dyn_DebugActiveProcessStop
73 #define DebugBreakProcess dyn_DebugBreakProcess
74 #define DebugSetProcessKillOnExit dyn_DebugSetProcessKillOnExit
75 #define EnumProcessModules dyn_EnumProcessModules
76 #define GetModuleInformation dyn_GetModuleInformation
77 #define LookupPrivilegeValueA dyn_LookupPrivilegeValueA
78 #define OpenProcessToken dyn_OpenProcessToken
79 #define GetConsoleFontSize dyn_GetConsoleFontSize
80 #define GetCurrentConsoleFont dyn_GetCurrentConsoleFont
82 static BOOL
WINAPI (*AdjustTokenPrivileges
)(HANDLE
, BOOL
, PTOKEN_PRIVILEGES
,
83 DWORD
, PTOKEN_PRIVILEGES
, PDWORD
);
84 static BOOL
WINAPI (*DebugActiveProcessStop
) (DWORD
);
85 static BOOL
WINAPI (*DebugBreakProcess
) (HANDLE
);
86 static BOOL
WINAPI (*DebugSetProcessKillOnExit
) (BOOL
);
87 static BOOL
WINAPI (*EnumProcessModules
) (HANDLE
, HMODULE
*, DWORD
,
89 static BOOL
WINAPI (*GetModuleInformation
) (HANDLE
, HMODULE
, LPMODULEINFO
,
91 static BOOL
WINAPI (*LookupPrivilegeValueA
)(LPCSTR
, LPCSTR
, PLUID
);
92 static BOOL
WINAPI (*OpenProcessToken
)(HANDLE
, DWORD
, PHANDLE
);
93 static BOOL
WINAPI (*GetCurrentConsoleFont
) (HANDLE
, BOOL
,
95 static COORD
WINAPI (*GetConsoleFontSize
) (HANDLE
, DWORD
);
97 static struct target_ops windows_ops
;
101 #undef GetModuleFileNameEx
104 # define __PMAX (MAX_PATH + 1)
105 static DWORD
WINAPI (*GetModuleFileNameEx
) (HANDLE
, HMODULE
, LPSTR
, DWORD
);
106 # define STARTUPINFO STARTUPINFOA
107 # define CreateProcess CreateProcessA
108 # define GetModuleFileNameEx_name "GetModuleFileNameExA"
109 # define bad_GetModuleFileNameEx bad_GetModuleFileNameExA
111 # define __PMAX PATH_MAX
112 /* The starting and ending address of the cygwin1.dll text segment. */
113 static CORE_ADDR cygwin_load_start
;
114 static CORE_ADDR cygwin_load_end
;
115 # if CYGWIN_VERSION_DLL_MAKE_COMBINED(CYGWIN_VERSION_API_MAJOR,CYGWIN_VERSION_API_MINOR) >= 181
117 typedef wchar_t cygwin_buf_t
;
118 static DWORD
WINAPI (*GetModuleFileNameEx
) (HANDLE
, HMODULE
,
120 # define STARTUPINFO STARTUPINFOW
121 # define CreateProcess CreateProcessW
122 # define GetModuleFileNameEx_name "GetModuleFileNameExW"
123 # define bad_GetModuleFileNameEx bad_GetModuleFileNameExW
125 # define CCP_POSIX_TO_WIN_W 1
126 # define CCP_WIN_W_TO_POSIX 3
127 # define cygwin_conv_path(op, from, to, size) \
128 (op == CCP_WIN_W_TO_POSIX) ? \
129 cygwin_conv_to_full_posix_path (from, to) : \
130 cygwin_conv_to_win32_path (from, to)
131 typedef char cygwin_buf_t
;
132 static DWORD
WINAPI (*GetModuleFileNameEx
) (HANDLE
, HMODULE
, LPSTR
, DWORD
);
133 # define STARTUPINFO STARTUPINFOA
134 # define CreateProcess CreateProcessA
135 # define GetModuleFileNameEx_name "GetModuleFileNameExA"
136 # define bad_GetModuleFileNameEx bad_GetModuleFileNameExA
137 # define CW_SET_DOS_FILE_WARNING -1 /* no-op this for older Cygwin */
141 static int have_saved_context
; /* True if we've saved context from a
143 static CONTEXT saved_context
; /* Containes the saved context from a
146 /* If we're not using the old Cygwin header file set, define the
147 following which never should have been in the generic Win32 API
148 headers in the first place since they were our own invention... */
149 #ifndef _GNU_H_WINDOWS_H
152 FLAG_TRACE_BIT
= 0x100,
153 CONTEXT_DEBUGGER
= (CONTEXT_FULL
| CONTEXT_FLOATING_POINT
)
157 #ifndef CONTEXT_EXTENDED_REGISTERS
158 /* This macro is only defined on ia32. It only makes sense on this target,
159 so define it as zero if not already defined. */
160 #define CONTEXT_EXTENDED_REGISTERS 0
163 #define CONTEXT_DEBUGGER_DR CONTEXT_DEBUGGER | CONTEXT_DEBUG_REGISTERS \
164 | CONTEXT_EXTENDED_REGISTERS
166 static uintptr_t dr
[8];
167 static int debug_registers_changed
;
168 static int debug_registers_used
;
170 static int windows_initialization_done
;
171 #define DR6_CLEAR_VALUE 0xffff0ff0
173 /* The string sent by cygwin when it processes a signal.
174 FIXME: This should be in a cygwin include file. */
175 #ifndef _CYGWIN_SIGNAL_STRING
176 #define _CYGWIN_SIGNAL_STRING "cYgSiGw00f"
179 #define CHECK(x) check (x, __FILE__,__LINE__)
180 #define DEBUG_EXEC(x) if (debug_exec) printf_unfiltered x
181 #define DEBUG_EVENTS(x) if (debug_events) printf_unfiltered x
182 #define DEBUG_MEM(x) if (debug_memory) printf_unfiltered x
183 #define DEBUG_EXCEPT(x) if (debug_exceptions) printf_unfiltered x
185 static void windows_stop (ptid_t
);
186 static int windows_thread_alive (struct target_ops
*, ptid_t
);
187 static void windows_kill_inferior (struct target_ops
*);
189 static void cygwin_set_dr (int i
, CORE_ADDR addr
);
190 static void cygwin_set_dr7 (unsigned long val
);
191 static unsigned long cygwin_get_dr6 (void);
193 static enum target_signal last_sig
= TARGET_SIGNAL_0
;
194 /* Set if a signal was received from the debugged process. */
196 /* Thread information structure used to track information that is
197 not available in gdb's thread structure. */
198 typedef struct thread_info_struct
200 struct thread_info_struct
*next
;
203 CORE_ADDR thread_local_base
;
212 static thread_info thread_head
;
214 /* The process and thread handles for the above context. */
216 static DEBUG_EVENT current_event
; /* The current debug event from
218 static HANDLE current_process_handle
; /* Currently executing process */
219 static thread_info
*current_thread
; /* Info on currently selected thread */
220 static DWORD main_thread_id
; /* Thread ID of the main thread */
222 /* Counts of things. */
223 static int exception_count
= 0;
224 static int event_count
= 0;
225 static int saw_create
;
226 static int open_process_used
= 0;
229 static int new_console
= 0;
231 static int cygwin_exceptions
= 0;
233 static int new_group
= 1;
234 static int debug_exec
= 0; /* show execution */
235 static int debug_events
= 0; /* show events from kernel */
236 static int debug_memory
= 0; /* show target memory accesses */
237 static int debug_exceptions
= 0; /* show target exceptions */
238 static int useshell
= 0; /* use shell for subprocesses */
240 /* This vector maps GDB's idea of a register's number into an offset
241 in the windows exception context vector.
243 It also contains the bit mask needed to load the register in question.
245 The contents of this table can only be computed by the units
246 that provide CPU-specific support for Windows native debugging.
247 These units should set the table by calling
248 windows_set_context_register_offsets.
250 One day we could read a reg, we could inspect the context we
251 already have loaded, if it doesn't have the bit set that we need,
252 we read that set of registers in using GetThreadContext. If the
253 context already contains what we need, we just unpack it. Then to
254 write a register, first we have to ensure that the context contains
255 the other regs of the group, and then we copy the info in and set
258 static const int *mappings
;
260 /* This vector maps the target's idea of an exception (extracted
261 from the DEBUG_EVENT structure) to GDB's idea. */
263 struct xlate_exception
266 enum target_signal us
;
269 static const struct xlate_exception
272 {EXCEPTION_ACCESS_VIOLATION
, TARGET_SIGNAL_SEGV
},
273 {STATUS_STACK_OVERFLOW
, TARGET_SIGNAL_SEGV
},
274 {EXCEPTION_BREAKPOINT
, TARGET_SIGNAL_TRAP
},
275 {DBG_CONTROL_C
, TARGET_SIGNAL_INT
},
276 {EXCEPTION_SINGLE_STEP
, TARGET_SIGNAL_TRAP
},
277 {STATUS_FLOAT_DIVIDE_BY_ZERO
, TARGET_SIGNAL_FPE
},
280 /* Set the MAPPINGS static global to OFFSETS.
281 See the description of MAPPINGS for more details. */
284 windows_set_context_register_offsets (const int *offsets
)
290 check (BOOL ok
, const char *file
, int line
)
293 printf_filtered ("error return %s:%d was %lu\n", file
, line
,
297 /* Find a thread record given a thread id. If GET_CONTEXT is not 0,
298 then also retrieve the context for this thread. If GET_CONTEXT is
299 negative, then don't suspend the thread. */
301 thread_rec (DWORD id
, int get_context
)
305 for (th
= &thread_head
; (th
= th
->next
) != NULL
;)
308 if (!th
->suspended
&& get_context
)
310 if (get_context
> 0 && id
!= current_event
.dwThreadId
)
312 if (SuspendThread (th
->h
) == (DWORD
) -1)
314 DWORD err
= GetLastError ();
315 warning (_("SuspendThread failed. (winerr %d)"),
321 else if (get_context
< 0)
323 th
->reload_context
= 1;
331 /* Add a thread to the thread list. */
333 windows_add_thread (ptid_t ptid
, HANDLE h
, void *tlb
)
338 gdb_assert (ptid_get_tid (ptid
) != 0);
340 id
= ptid_get_tid (ptid
);
342 if ((th
= thread_rec (id
, FALSE
)))
345 th
= XZALLOC (thread_info
);
348 th
->thread_local_base
= (CORE_ADDR
) (uintptr_t) tlb
;
349 th
->next
= thread_head
.next
;
350 thread_head
.next
= th
;
352 /* Set the debug registers for the new thread if they are used. */
353 if (debug_registers_used
)
355 /* Only change the value of the debug registers. */
356 th
->context
.ContextFlags
= CONTEXT_DEBUG_REGISTERS
;
357 CHECK (GetThreadContext (th
->h
, &th
->context
));
358 th
->context
.Dr0
= dr
[0];
359 th
->context
.Dr1
= dr
[1];
360 th
->context
.Dr2
= dr
[2];
361 th
->context
.Dr3
= dr
[3];
362 th
->context
.Dr6
= DR6_CLEAR_VALUE
;
363 th
->context
.Dr7
= dr
[7];
364 CHECK (SetThreadContext (th
->h
, &th
->context
));
365 th
->context
.ContextFlags
= 0;
370 /* Clear out any old thread list and reintialize it to a
373 windows_init_thread_list (void)
375 thread_info
*th
= &thread_head
;
377 DEBUG_EVENTS (("gdb: windows_init_thread_list\n"));
379 while (th
->next
!= NULL
)
381 thread_info
*here
= th
->next
;
382 th
->next
= here
->next
;
385 thread_head
.next
= NULL
;
388 /* Delete a thread from the list of threads. */
390 windows_delete_thread (ptid_t ptid
)
395 gdb_assert (ptid_get_tid (ptid
) != 0);
397 id
= ptid_get_tid (ptid
);
400 printf_unfiltered ("[Deleting %s]\n", target_pid_to_str (ptid
));
401 delete_thread (ptid
);
403 for (th
= &thread_head
;
404 th
->next
!= NULL
&& th
->next
->id
!= id
;
408 if (th
->next
!= NULL
)
410 thread_info
*here
= th
->next
;
411 th
->next
= here
->next
;
417 do_windows_fetch_inferior_registers (struct regcache
*regcache
, int r
)
419 char *context_offset
= ((char *) ¤t_thread
->context
) + mappings
[r
];
420 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
421 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
425 return; /* Windows sometimes uses a non-existent thread id in its
428 if (current_thread
->reload_context
)
430 #ifdef __COPY_CONTEXT_SIZE
431 if (have_saved_context
)
433 /* Lie about where the program actually is stopped since
434 cygwin has informed us that we should consider the signal
435 to have occurred at another location which is stored in
437 memcpy (¤t_thread
->context
, &saved_context
,
438 __COPY_CONTEXT_SIZE
);
439 have_saved_context
= 0;
444 thread_info
*th
= current_thread
;
445 th
->context
.ContextFlags
= CONTEXT_DEBUGGER_DR
;
446 GetThreadContext (th
->h
, &th
->context
);
447 /* Copy dr values from that thread.
448 But only if there were not modified since last stop.
450 if (!debug_registers_changed
)
452 dr
[0] = th
->context
.Dr0
;
453 dr
[1] = th
->context
.Dr1
;
454 dr
[2] = th
->context
.Dr2
;
455 dr
[3] = th
->context
.Dr3
;
456 dr
[6] = th
->context
.Dr6
;
457 dr
[7] = th
->context
.Dr7
;
460 current_thread
->reload_context
= 0;
463 if (r
== I387_FISEG_REGNUM (tdep
))
465 l
= *((long *) context_offset
) & 0xffff;
466 regcache_raw_supply (regcache
, r
, (char *) &l
);
468 else if (r
== I387_FOP_REGNUM (tdep
))
470 l
= (*((long *) context_offset
) >> 16) & ((1 << 11) - 1);
471 regcache_raw_supply (regcache
, r
, (char *) &l
);
474 regcache_raw_supply (regcache
, r
, context_offset
);
477 for (r
= 0; r
< gdbarch_num_regs (gdbarch
); r
++)
478 do_windows_fetch_inferior_registers (regcache
, r
);
483 windows_fetch_inferior_registers (struct target_ops
*ops
,
484 struct regcache
*regcache
, int r
)
486 current_thread
= thread_rec (ptid_get_tid (inferior_ptid
), TRUE
);
487 /* Check if current_thread exists. Windows sometimes uses a non-existent
488 thread id in its events. */
490 do_windows_fetch_inferior_registers (regcache
, r
);
494 do_windows_store_inferior_registers (const struct regcache
*regcache
, int r
)
497 /* Windows sometimes uses a non-existent thread id in its events. */;
499 regcache_raw_collect (regcache
, r
,
500 ((char *) ¤t_thread
->context
) + mappings
[r
]);
503 for (r
= 0; r
< gdbarch_num_regs (get_regcache_arch (regcache
)); r
++)
504 do_windows_store_inferior_registers (regcache
, r
);
508 /* Store a new register value into the current thread context. */
510 windows_store_inferior_registers (struct target_ops
*ops
,
511 struct regcache
*regcache
, int r
)
513 current_thread
= thread_rec (ptid_get_tid (inferior_ptid
), TRUE
);
514 /* Check if current_thread exists. Windows sometimes uses a non-existent
515 thread id in its events. */
517 do_windows_store_inferior_registers (regcache
, r
);
520 /* Get the name of a given module at at given base address. If base_address
521 is zero return the first loaded module (which is always the name of the
524 get_module_name (LPVOID base_address
, char *dll_name_ret
)
530 HMODULE
*DllHandle
= dh_buf
; /* Set to temporary storage for
534 cygwin_buf_t pathbuf
[__PMAX
]; /* Temporary storage prior to converting to
535 posix form. __PMAX is always enough
536 as long as SO_NAME_MAX_PATH_SIZE is defined
541 /* Find size of buffer needed to handle list of modules loaded in
543 if (!EnumProcessModules (current_process_handle
, DllHandle
,
544 sizeof (HMODULE
), &cbNeeded
) || !cbNeeded
)
547 /* Allocate correct amount of space for module list. */
548 DllHandle
= (HMODULE
*) alloca (cbNeeded
);
552 /* Get the list of modules. */
553 if (!EnumProcessModules (current_process_handle
, DllHandle
, cbNeeded
,
557 for (i
= 0; i
< (int) (cbNeeded
/ sizeof (HMODULE
)); i
++)
559 /* Get information on this module. */
560 if (!GetModuleInformation (current_process_handle
, DllHandle
[i
],
562 error (_("Can't get module info"));
564 if (!base_address
|| mi
.lpBaseOfDll
== base_address
)
566 /* Try to find the name of the given module. */
568 /* Cygwin prefers that the path be in /x/y/z format. */
569 len
= GetModuleFileNameEx (current_process_handle
,
570 DllHandle
[i
], pathbuf
, __PMAX
);
572 error (_("Error getting dll name: %lu."), GetLastError ());
573 if (cygwin_conv_path (CCP_WIN_W_TO_POSIX
, pathbuf
, dll_name_ret
,
575 error (_("Error converting dll name to POSIX: %d."), errno
);
577 len
= GetModuleFileNameEx (current_process_handle
,
578 DllHandle
[i
], dll_name_ret
, __PMAX
);
580 error (_("Error getting dll name: %u."),
581 (unsigned) GetLastError ());
583 return 1; /* success */
588 dll_name_ret
[0] = '\0';
589 return 0; /* failure */
592 /* Encapsulate the information required in a call to
593 symbol_file_add_args. */
594 struct safe_symbol_file_add_args
598 struct section_addr_info
*addrs
;
601 struct ui_file
*err
, *out
;
605 /* Maintain a linked list of "so" information. */
611 static struct so_list solib_start
, *solib_end
;
613 /* Call symbol_file_add with stderr redirected. We don't care if there
616 safe_symbol_file_add_stub (void *argv
)
618 #define p ((struct safe_symbol_file_add_args *) argv)
619 const int add_flags
= ((p
->from_tty
? SYMFILE_VERBOSE
: 0)
620 | (p
->mainline
? SYMFILE_MAINLINE
: 0));
621 p
->ret
= symbol_file_add (p
->name
, add_flags
, p
->addrs
, p
->flags
);
626 /* Restore gdb's stderr after calling symbol_file_add. */
628 safe_symbol_file_add_cleanup (void *p
)
630 #define sp ((struct safe_symbol_file_add_args *)p)
631 gdb_flush (gdb_stderr
);
632 gdb_flush (gdb_stdout
);
633 ui_file_delete (gdb_stderr
);
634 ui_file_delete (gdb_stdout
);
635 gdb_stderr
= sp
->err
;
636 gdb_stdout
= sp
->out
;
640 /* symbol_file_add wrapper that prevents errors from being displayed. */
641 static struct objfile
*
642 safe_symbol_file_add (char *name
, int from_tty
,
643 struct section_addr_info
*addrs
,
644 int mainline
, int flags
)
646 struct safe_symbol_file_add_args p
;
647 struct cleanup
*cleanup
;
649 cleanup
= make_cleanup (safe_symbol_file_add_cleanup
, &p
);
653 gdb_flush (gdb_stderr
);
654 gdb_flush (gdb_stdout
);
655 gdb_stderr
= ui_file_new ();
656 gdb_stdout
= ui_file_new ();
658 p
.from_tty
= from_tty
;
660 p
.mainline
= mainline
;
662 catch_errors (safe_symbol_file_add_stub
, &p
, "", RETURN_MASK_ERROR
);
664 do_cleanups (cleanup
);
668 static struct so_list
*
669 windows_make_so (const char *name
, LPVOID load_addr
)
676 WIN32_FIND_DATA w32_fd
;
677 HANDLE h
= FindFirstFile(name
, &w32_fd
);
679 if (h
== INVALID_HANDLE_VALUE
)
685 if (GetCurrentDirectory (MAX_PATH
+ 1, cwd
))
687 p
= strrchr (buf
, '\\');
690 SetCurrentDirectory (buf
);
691 GetFullPathName (w32_fd
.cFileName
, MAX_PATH
, buf
, &p
);
692 SetCurrentDirectory (cwd
);
695 if (strcasecmp (buf
, "ntdll.dll") == 0)
697 GetSystemDirectory (buf
, sizeof (buf
));
698 strcat (buf
, "\\ntdll.dll");
701 cygwin_buf_t buf
[__PMAX
];
704 if (access (name
, F_OK
) != 0)
706 if (strcasecmp (name
, "ntdll.dll") == 0)
709 GetSystemDirectoryW (buf
, sizeof (buf
) / sizeof (wchar_t));
710 wcscat (buf
, L
"\\ntdll.dll");
714 GetSystemDirectoryA (buf
, sizeof (buf
) / sizeof (wchar_t));
715 strcat (buf
, "\\ntdll.dll");
720 so
= XZALLOC (struct so_list
);
721 so
->lm_info
= (struct lm_info
*) xmalloc (sizeof (struct lm_info
));
722 so
->lm_info
->load_addr
= load_addr
;
723 strcpy (so
->so_original_name
, name
);
725 strcpy (so
->so_name
, buf
);
728 cygwin_conv_path (CCP_WIN_W_TO_POSIX
, buf
, so
->so_name
,
729 SO_NAME_MAX_PATH_SIZE
);
732 char *rname
= realpath (name
, NULL
);
733 if (rname
&& strlen (rname
) < SO_NAME_MAX_PATH_SIZE
)
735 strcpy (so
->so_name
, rname
);
739 error (_("dll path too long"));
741 /* Record cygwin1.dll .text start/end. */
742 p
= strchr (so
->so_name
, '\0') - (sizeof ("/cygwin1.dll") - 1);
743 if (p
>= so
->so_name
&& strcasecmp (p
, "/cygwin1.dll") == 0)
746 asection
*text
= NULL
;
749 abfd
= bfd_openr (so
->so_name
, "pei-i386");
754 if (bfd_check_format (abfd
, bfd_object
))
755 text
= bfd_get_section_by_name (abfd
, ".text");
763 /* The symbols in a dll are offset by 0x1000, which is the the
764 offset from 0 of the first byte in an image - because of the
765 file header and the section alignment. */
766 cygwin_load_start
= (CORE_ADDR
) (uintptr_t) ((char *)
768 cygwin_load_end
= cygwin_load_start
+ bfd_section_size (abfd
, text
);
778 get_image_name (HANDLE h
, void *address
, int unicode
)
781 static char buf
[__PMAX
];
783 static char buf
[(2 * __PMAX
) + 1];
785 DWORD size
= unicode
? sizeof (WCHAR
) : sizeof (char);
791 /* Attempt to read the name of the dll that was detected.
792 This is documented to work only when actively debugging
793 a program. It will not work for attached processes. */
797 /* See if we could read the address of a string, and that the
798 address isn't null. */
799 if (!ReadProcessMemory (h
, address
, &address_ptr
,
800 sizeof (address_ptr
), &done
)
801 || done
!= sizeof (address_ptr
) || !address_ptr
)
804 /* Find the length of the string. */
805 while (ReadProcessMemory (h
, address_ptr
+ len
++ * size
, &b
, size
, &done
)
806 && (b
[0] != 0 || b
[size
- 1] != 0) && done
== size
)
810 ReadProcessMemory (h
, address_ptr
, buf
, len
, &done
);
813 WCHAR
*unicode_address
= (WCHAR
*) alloca (len
* sizeof (WCHAR
));
814 ReadProcessMemory (h
, address_ptr
, unicode_address
, len
* sizeof (WCHAR
),
817 wcstombs (buf
, unicode_address
, __PMAX
);
819 WideCharToMultiByte (CP_ACP
, 0, unicode_address
, len
, buf
, sizeof buf
,
827 /* Wait for child to do something. Return pid of child, or -1 in case
828 of error; store status through argument pointer OURSTATUS. */
830 handle_load_dll (void *dummy
)
832 LOAD_DLL_DEBUG_INFO
*event
= ¤t_event
.u
.LoadDll
;
833 char dll_buf
[__PMAX
];
834 char *dll_name
= NULL
;
836 dll_buf
[0] = dll_buf
[sizeof (dll_buf
) - 1] = '\0';
838 if (!get_module_name (event
->lpBaseOfDll
, dll_buf
))
839 dll_buf
[0] = dll_buf
[sizeof (dll_buf
) - 1] = '\0';
843 if (*dll_name
== '\0')
844 dll_name
= get_image_name (current_process_handle
,
845 event
->lpImageName
, event
->fUnicode
);
849 solib_end
->next
= windows_make_so (dll_name
, event
->lpBaseOfDll
);
850 solib_end
= solib_end
->next
;
852 DEBUG_EVENTS (("gdb: Loading dll \"%s\" at %s.\n", solib_end
->so_name
,
853 host_address_to_string (solib_end
->lm_info
->load_addr
)));
859 windows_free_so (struct so_list
*so
)
867 handle_unload_dll (void *dummy
)
869 LPVOID lpBaseOfDll
= current_event
.u
.UnloadDll
.lpBaseOfDll
;
872 for (so
= &solib_start
; so
->next
!= NULL
; so
= so
->next
)
873 if (so
->next
->lm_info
->load_addr
== lpBaseOfDll
)
875 struct so_list
*sodel
= so
->next
;
876 so
->next
= sodel
->next
;
879 DEBUG_EVENTS (("gdb: Unloading dll \"%s\".\n", sodel
->so_name
));
881 windows_free_so (sodel
);
882 solib_add (NULL
, 0, NULL
, auto_solib_add
);
886 /* We did not find any DLL that was previously loaded at this address,
887 so register a complaint. We do not report an error, because we have
888 observed that this may be happening under some circumstances. For
889 instance, running 32bit applications on x64 Windows causes us to receive
890 4 mysterious UNLOAD_DLL_DEBUG_EVENTs during the startup phase (these
891 events are apparently caused by the WOW layer, the interface between
892 32bit and 64bit worlds). */
893 complaint (&symfile_complaints
, _("dll starting at %s not found."),
894 host_address_to_string (lpBaseOfDll
));
899 /* Clear list of loaded DLLs. */
901 windows_clear_solib (void)
903 solib_start
.next
= NULL
;
904 solib_end
= &solib_start
;
907 /* Load DLL symbol info. */
909 dll_symbol_command (char *args
, int from_tty
)
915 error (_("dll-symbols requires a file name"));
918 if (n
> 4 && strcasecmp (args
+ n
- 4, ".dll") != 0)
920 char *newargs
= (char *) alloca (n
+ 4 + 1);
921 strcpy (newargs
, args
);
922 strcat (newargs
, ".dll");
926 safe_symbol_file_add (args
, from_tty
, NULL
, 0, OBJF_SHARED
| OBJF_USERLOADED
);
929 /* Handle DEBUG_STRING output from child process.
930 Cygwin prepends its messages with a "cygwin:". Interpret this as
931 a Cygwin signal. Otherwise just print the string as a warning. */
933 handle_output_debug_string (struct target_waitstatus
*ourstatus
)
938 if (!target_read_string
939 ((CORE_ADDR
) (uintptr_t) current_event
.u
.DebugString
.lpDebugStringData
,
943 else if (strncmp (s
, _CYGWIN_SIGNAL_STRING
,
944 sizeof (_CYGWIN_SIGNAL_STRING
) - 1) != 0)
947 if (strncmp (s
, "cYg", 3) != 0)
951 #ifdef __COPY_CONTEXT_SIZE
954 /* Got a cygwin signal marker. A cygwin signal is followed by
955 the signal number itself and then optionally followed by the
956 thread id and address to saved context within the DLL. If
957 these are supplied, then the given thread is assumed to have
958 issued the signal and the context from the thread is assumed
959 to be stored at the given address in the inferior. Tell gdb
960 to treat this like a real signal. */
962 int sig
= strtol (s
+ sizeof (_CYGWIN_SIGNAL_STRING
) - 1, &p
, 0);
963 int gotasig
= target_signal_from_host (sig
);
964 ourstatus
->value
.sig
= gotasig
;
969 ourstatus
->kind
= TARGET_WAITKIND_STOPPED
;
970 retval
= strtoul (p
, &p
, 0);
972 retval
= main_thread_id
;
973 else if ((x
= (LPCVOID
) strtoul (p
, &p
, 0))
974 && ReadProcessMemory (current_process_handle
, x
,
976 __COPY_CONTEXT_SIZE
, &n
)
977 && n
== __COPY_CONTEXT_SIZE
)
978 have_saved_context
= 1;
979 current_event
.dwThreadId
= retval
;
990 display_selector (HANDLE thread
, DWORD sel
)
993 if (GetThreadSelectorEntry (thread
, sel
, &info
))
996 printf_filtered ("0x%03lx: ", sel
);
997 if (!info
.HighWord
.Bits
.Pres
)
999 puts_filtered ("Segment not present\n");
1002 base
= (info
.HighWord
.Bits
.BaseHi
<< 24) +
1003 (info
.HighWord
.Bits
.BaseMid
<< 16)
1005 limit
= (info
.HighWord
.Bits
.LimitHi
<< 16) + info
.LimitLow
;
1006 if (info
.HighWord
.Bits
.Granularity
)
1007 limit
= (limit
<< 12) | 0xfff;
1008 printf_filtered ("base=0x%08x limit=0x%08x", base
, limit
);
1009 if (info
.HighWord
.Bits
.Default_Big
)
1010 puts_filtered(" 32-bit ");
1012 puts_filtered(" 16-bit ");
1013 switch ((info
.HighWord
.Bits
.Type
& 0xf) >> 1)
1016 puts_filtered ("Data (Read-Only, Exp-up");
1019 puts_filtered ("Data (Read/Write, Exp-up");
1022 puts_filtered ("Unused segment (");
1025 puts_filtered ("Data (Read/Write, Exp-down");
1028 puts_filtered ("Code (Exec-Only, N.Conf");
1031 puts_filtered ("Code (Exec/Read, N.Conf");
1034 puts_filtered ("Code (Exec-Only, Conf");
1037 puts_filtered ("Code (Exec/Read, Conf");
1040 printf_filtered ("Unknown type 0x%x",info
.HighWord
.Bits
.Type
);
1042 if ((info
.HighWord
.Bits
.Type
& 0x1) == 0)
1043 puts_filtered(", N.Acc");
1044 puts_filtered (")\n");
1045 if ((info
.HighWord
.Bits
.Type
& 0x10) == 0)
1046 puts_filtered("System selector ");
1047 printf_filtered ("Priviledge level = %d. ", info
.HighWord
.Bits
.Dpl
);
1048 if (info
.HighWord
.Bits
.Granularity
)
1049 puts_filtered ("Page granular.\n");
1051 puts_filtered ("Byte granular.\n");
1056 DWORD err
= GetLastError ();
1057 if (err
== ERROR_NOT_SUPPORTED
)
1058 printf_filtered ("Function not supported\n");
1060 printf_filtered ("Invalid selector 0x%lx.\n",sel
);
1066 display_selectors (char * args
, int from_tty
)
1068 if (!current_thread
)
1070 puts_filtered ("Impossible to display selectors now.\n");
1076 puts_filtered ("Selector $cs\n");
1077 display_selector (current_thread
->h
,
1078 current_thread
->context
.SegCs
);
1079 puts_filtered ("Selector $ds\n");
1080 display_selector (current_thread
->h
,
1081 current_thread
->context
.SegDs
);
1082 puts_filtered ("Selector $es\n");
1083 display_selector (current_thread
->h
,
1084 current_thread
->context
.SegEs
);
1085 puts_filtered ("Selector $ss\n");
1086 display_selector (current_thread
->h
,
1087 current_thread
->context
.SegSs
);
1088 puts_filtered ("Selector $fs\n");
1089 display_selector (current_thread
->h
,
1090 current_thread
->context
.SegFs
);
1091 puts_filtered ("Selector $gs\n");
1092 display_selector (current_thread
->h
,
1093 current_thread
->context
.SegGs
);
1098 sel
= parse_and_eval_long (args
);
1099 printf_filtered ("Selector \"%s\"\n",args
);
1100 display_selector (current_thread
->h
, sel
);
1104 #define DEBUG_EXCEPTION_SIMPLE(x) if (debug_exceptions) \
1105 printf_unfiltered ("gdb: Target exception %s at %s\n", x, \
1106 host_address_to_string (\
1107 current_event.u.Exception.ExceptionRecord.ExceptionAddress))
1110 handle_exception (struct target_waitstatus
*ourstatus
)
1113 DWORD code
= current_event
.u
.Exception
.ExceptionRecord
.ExceptionCode
;
1115 ourstatus
->kind
= TARGET_WAITKIND_STOPPED
;
1117 /* Record the context of the current thread. */
1118 th
= thread_rec (current_event
.dwThreadId
, -1);
1122 case EXCEPTION_ACCESS_VIOLATION
:
1123 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_ACCESS_VIOLATION");
1124 ourstatus
->value
.sig
= TARGET_SIGNAL_SEGV
;
1127 /* See if the access violation happened within the cygwin DLL
1128 itself. Cygwin uses a kind of exception handling to deal
1129 with passed-in invalid addresses. gdb should not treat
1130 these as real SEGVs since they will be silently handled by
1131 cygwin. A real SEGV will (theoretically) be caught by
1132 cygwin later in the process and will be sent as a
1133 cygwin-specific-signal. So, ignore SEGVs if they show up
1134 within the text segment of the DLL itself. */
1136 CORE_ADDR addr
= (CORE_ADDR
) (uintptr_t)
1137 current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
;
1139 if ((!cygwin_exceptions
&& (addr
>= cygwin_load_start
1140 && addr
< cygwin_load_end
))
1141 || (find_pc_partial_function (addr
, &fn
, NULL
, NULL
)
1142 && strncmp (fn
, "KERNEL32!IsBad",
1143 strlen ("KERNEL32!IsBad")) == 0))
1148 case STATUS_STACK_OVERFLOW
:
1149 DEBUG_EXCEPTION_SIMPLE ("STATUS_STACK_OVERFLOW");
1150 ourstatus
->value
.sig
= TARGET_SIGNAL_SEGV
;
1152 case STATUS_FLOAT_DENORMAL_OPERAND
:
1153 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_DENORMAL_OPERAND");
1154 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1156 case EXCEPTION_ARRAY_BOUNDS_EXCEEDED
:
1157 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_ARRAY_BOUNDS_EXCEEDED");
1158 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1160 case STATUS_FLOAT_INEXACT_RESULT
:
1161 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_INEXACT_RESULT");
1162 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1164 case STATUS_FLOAT_INVALID_OPERATION
:
1165 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_INVALID_OPERATION");
1166 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1168 case STATUS_FLOAT_OVERFLOW
:
1169 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_OVERFLOW");
1170 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1172 case STATUS_FLOAT_STACK_CHECK
:
1173 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_STACK_CHECK");
1174 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1176 case STATUS_FLOAT_UNDERFLOW
:
1177 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_UNDERFLOW");
1178 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1180 case STATUS_FLOAT_DIVIDE_BY_ZERO
:
1181 DEBUG_EXCEPTION_SIMPLE ("STATUS_FLOAT_DIVIDE_BY_ZERO");
1182 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1184 case STATUS_INTEGER_DIVIDE_BY_ZERO
:
1185 DEBUG_EXCEPTION_SIMPLE ("STATUS_INTEGER_DIVIDE_BY_ZERO");
1186 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1188 case STATUS_INTEGER_OVERFLOW
:
1189 DEBUG_EXCEPTION_SIMPLE ("STATUS_INTEGER_OVERFLOW");
1190 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
1192 case EXCEPTION_BREAKPOINT
:
1193 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_BREAKPOINT");
1194 ourstatus
->value
.sig
= TARGET_SIGNAL_TRAP
;
1197 DEBUG_EXCEPTION_SIMPLE ("DBG_CONTROL_C");
1198 ourstatus
->value
.sig
= TARGET_SIGNAL_INT
;
1200 case DBG_CONTROL_BREAK
:
1201 DEBUG_EXCEPTION_SIMPLE ("DBG_CONTROL_BREAK");
1202 ourstatus
->value
.sig
= TARGET_SIGNAL_INT
;
1204 case EXCEPTION_SINGLE_STEP
:
1205 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_SINGLE_STEP");
1206 ourstatus
->value
.sig
= TARGET_SIGNAL_TRAP
;
1208 case EXCEPTION_ILLEGAL_INSTRUCTION
:
1209 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_ILLEGAL_INSTRUCTION");
1210 ourstatus
->value
.sig
= TARGET_SIGNAL_ILL
;
1212 case EXCEPTION_PRIV_INSTRUCTION
:
1213 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_PRIV_INSTRUCTION");
1214 ourstatus
->value
.sig
= TARGET_SIGNAL_ILL
;
1216 case EXCEPTION_NONCONTINUABLE_EXCEPTION
:
1217 DEBUG_EXCEPTION_SIMPLE ("EXCEPTION_NONCONTINUABLE_EXCEPTION");
1218 ourstatus
->value
.sig
= TARGET_SIGNAL_ILL
;
1221 /* Treat unhandled first chance exceptions specially. */
1222 if (current_event
.u
.Exception
.dwFirstChance
)
1224 printf_unfiltered ("gdb: unknown target exception 0x%08lx at %s\n",
1225 current_event
.u
.Exception
.ExceptionRecord
.ExceptionCode
,
1226 host_address_to_string (
1227 current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
1228 ourstatus
->value
.sig
= TARGET_SIGNAL_UNKNOWN
;
1232 last_sig
= ourstatus
->value
.sig
;
1236 /* Resume all artificially suspended threads if we are continuing
1239 windows_continue (DWORD continue_status
, int id
)
1245 DEBUG_EVENTS (("ContinueDebugEvent (cpid=%ld, ctid=%lx, %s);\n",
1246 current_event
.dwProcessId
, current_event
.dwThreadId
,
1247 continue_status
== DBG_CONTINUE
?
1248 "DBG_CONTINUE" : "DBG_EXCEPTION_NOT_HANDLED"));
1250 for (th
= &thread_head
; (th
= th
->next
) != NULL
;)
1251 if ((id
== -1 || id
== (int) th
->id
)
1254 if (debug_registers_changed
)
1256 th
->context
.ContextFlags
|= CONTEXT_DEBUG_REGISTERS
;
1257 th
->context
.Dr0
= dr
[0];
1258 th
->context
.Dr1
= dr
[1];
1259 th
->context
.Dr2
= dr
[2];
1260 th
->context
.Dr3
= dr
[3];
1261 th
->context
.Dr6
= DR6_CLEAR_VALUE
;
1262 th
->context
.Dr7
= dr
[7];
1264 if (th
->context
.ContextFlags
)
1266 CHECK (SetThreadContext (th
->h
, &th
->context
));
1267 th
->context
.ContextFlags
= 0;
1269 if (th
->suspended
> 0)
1270 (void) ResumeThread (th
->h
);
1274 res
= ContinueDebugEvent (current_event
.dwProcessId
,
1275 current_event
.dwThreadId
,
1278 debug_registers_changed
= 0;
1282 /* Called in pathological case where Windows fails to send a
1283 CREATE_PROCESS_DEBUG_EVENT after an attach. */
1285 fake_create_process (void)
1287 current_process_handle
= OpenProcess (PROCESS_ALL_ACCESS
, FALSE
,
1288 current_event
.dwProcessId
);
1289 if (current_process_handle
!= NULL
)
1290 open_process_used
= 1;
1293 error (_("OpenProcess call failed, GetLastError = %lud"),
1295 /* We can not debug anything in that case. */
1297 main_thread_id
= current_event
.dwThreadId
;
1298 current_thread
= windows_add_thread (
1299 ptid_build (current_event
.dwProcessId
, 0,
1300 current_event
.dwThreadId
),
1301 current_event
.u
.CreateThread
.hThread
,
1302 current_event
.u
.CreateThread
.lpThreadLocalBase
);
1303 return main_thread_id
;
1307 windows_resume (struct target_ops
*ops
,
1308 ptid_t ptid
, int step
, enum target_signal sig
)
1311 DWORD continue_status
= DBG_CONTINUE
;
1313 /* A specific PTID means `step only this thread id'. */
1314 int resume_all
= ptid_equal (ptid
, minus_one_ptid
);
1316 /* If we're continuing all threads, it's the current inferior that
1317 should be handled specially. */
1319 ptid
= inferior_ptid
;
1321 if (sig
!= TARGET_SIGNAL_0
)
1323 if (current_event
.dwDebugEventCode
!= EXCEPTION_DEBUG_EVENT
)
1325 DEBUG_EXCEPT(("Cannot continue with signal %d here.\n",sig
));
1327 else if (sig
== last_sig
)
1328 continue_status
= DBG_EXCEPTION_NOT_HANDLED
;
1331 /* This code does not seem to work, because
1332 the kernel does probably not consider changes in the ExceptionRecord
1333 structure when passing the exception to the inferior.
1334 Note that this seems possible in the exception handler itself. */
1337 for (i
= 0; xlate
[i
].them
!= -1; i
++)
1338 if (xlate
[i
].us
== sig
)
1340 current_event
.u
.Exception
.ExceptionRecord
.ExceptionCode
1342 continue_status
= DBG_EXCEPTION_NOT_HANDLED
;
1345 if (continue_status
== DBG_CONTINUE
)
1347 DEBUG_EXCEPT(("Cannot continue with signal %d.\n",sig
));
1351 DEBUG_EXCEPT(("Can only continue with recieved signal %d.\n",
1355 last_sig
= TARGET_SIGNAL_0
;
1357 DEBUG_EXEC (("gdb: windows_resume (pid=%d, tid=%ld, step=%d, sig=%d);\n",
1358 ptid_get_pid (ptid
), ptid_get_tid (ptid
), step
, sig
));
1360 /* Get context for currently selected thread. */
1361 th
= thread_rec (ptid_get_tid (inferior_ptid
), FALSE
);
1366 /* Single step by setting t bit. */
1367 struct regcache
*regcache
= get_current_regcache ();
1368 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
1369 windows_fetch_inferior_registers (ops
, regcache
,
1370 gdbarch_ps_regnum (gdbarch
));
1371 th
->context
.EFlags
|= FLAG_TRACE_BIT
;
1374 if (th
->context
.ContextFlags
)
1376 if (debug_registers_changed
)
1378 th
->context
.Dr0
= dr
[0];
1379 th
->context
.Dr1
= dr
[1];
1380 th
->context
.Dr2
= dr
[2];
1381 th
->context
.Dr3
= dr
[3];
1382 th
->context
.Dr6
= DR6_CLEAR_VALUE
;
1383 th
->context
.Dr7
= dr
[7];
1385 CHECK (SetThreadContext (th
->h
, &th
->context
));
1386 th
->context
.ContextFlags
= 0;
1390 /* Allow continuing with the same signal that interrupted us.
1391 Otherwise complain. */
1394 windows_continue (continue_status
, -1);
1396 windows_continue (continue_status
, ptid_get_tid (ptid
));
1399 /* Ctrl-C handler used when the inferior is not run in the same console. The
1400 handler is in charge of interrupting the inferior using DebugBreakProcess.
1401 Note that this function is not available prior to Windows XP. In this case
1402 we emit a warning. */
1404 ctrl_c_handler (DWORD event_type
)
1406 const int attach_flag
= current_inferior ()->attach_flag
;
1408 /* Only handle Ctrl-C and Ctrl-Break events. Ignore others. */
1409 if (event_type
!= CTRL_C_EVENT
&& event_type
!= CTRL_BREAK_EVENT
)
1412 /* If the inferior and the debugger share the same console, do nothing as
1413 the inferior has also received the Ctrl-C event. */
1414 if (!new_console
&& !attach_flag
)
1417 if (!DebugBreakProcess (current_process_handle
))
1418 warning (_("Could not interrupt program. "
1419 "Press Ctrl-c in the program console."));
1421 /* Return true to tell that Ctrl-C has been handled. */
1425 /* Get the next event from the child. Return 1 if the event requires
1426 handling by WFI (or whatever). */
1428 get_windows_debug_event (struct target_ops
*ops
,
1429 int pid
, struct target_waitstatus
*ourstatus
)
1432 DWORD continue_status
, event_code
;
1434 static thread_info dummy_thread_info
;
1437 last_sig
= TARGET_SIGNAL_0
;
1439 if (!(debug_event
= WaitForDebugEvent (¤t_event
, 1000)))
1443 continue_status
= DBG_CONTINUE
;
1445 event_code
= current_event
.dwDebugEventCode
;
1446 ourstatus
->kind
= TARGET_WAITKIND_SPURIOUS
;
1448 have_saved_context
= 0;
1452 case CREATE_THREAD_DEBUG_EVENT
:
1453 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1454 (unsigned) current_event
.dwProcessId
,
1455 (unsigned) current_event
.dwThreadId
,
1456 "CREATE_THREAD_DEBUG_EVENT"));
1457 if (saw_create
!= 1)
1459 struct inferior
*inf
;
1460 inf
= find_inferior_pid (current_event
.dwProcessId
);
1461 if (!saw_create
&& inf
->attach_flag
)
1463 /* Kludge around a Windows bug where first event is a create
1464 thread event. Caused when attached process does not have
1466 retval
= fake_create_process ();
1472 /* Record the existence of this thread. */
1473 retval
= current_event
.dwThreadId
;
1474 th
= windows_add_thread (ptid_build (current_event
.dwProcessId
, 0,
1475 current_event
.dwThreadId
),
1476 current_event
.u
.CreateThread
.hThread
,
1477 current_event
.u
.CreateThread
.lpThreadLocalBase
);
1481 case EXIT_THREAD_DEBUG_EVENT
:
1482 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1483 (unsigned) current_event
.dwProcessId
,
1484 (unsigned) current_event
.dwThreadId
,
1485 "EXIT_THREAD_DEBUG_EVENT"));
1487 if (current_event
.dwThreadId
!= main_thread_id
)
1489 windows_delete_thread (ptid_build (current_event
.dwProcessId
, 0,
1490 current_event
.dwThreadId
));
1491 th
= &dummy_thread_info
;
1495 case CREATE_PROCESS_DEBUG_EVENT
:
1496 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1497 (unsigned) current_event
.dwProcessId
,
1498 (unsigned) current_event
.dwThreadId
,
1499 "CREATE_PROCESS_DEBUG_EVENT"));
1500 CloseHandle (current_event
.u
.CreateProcessInfo
.hFile
);
1501 if (++saw_create
!= 1)
1504 current_process_handle
= current_event
.u
.CreateProcessInfo
.hProcess
;
1506 windows_delete_thread (ptid_build (current_event
.dwProcessId
, 0,
1508 main_thread_id
= current_event
.dwThreadId
;
1509 /* Add the main thread. */
1510 th
= windows_add_thread (ptid_build (current_event
.dwProcessId
, 0,
1511 current_event
.dwThreadId
),
1512 current_event
.u
.CreateProcessInfo
.hThread
,
1513 current_event
.u
.CreateProcessInfo
.lpThreadLocalBase
);
1514 retval
= current_event
.dwThreadId
;
1517 case EXIT_PROCESS_DEBUG_EVENT
:
1518 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1519 (unsigned) current_event
.dwProcessId
,
1520 (unsigned) current_event
.dwThreadId
,
1521 "EXIT_PROCESS_DEBUG_EVENT"));
1522 if (!windows_initialization_done
)
1524 target_terminal_ours ();
1525 target_mourn_inferior ();
1526 error (_("During startup program exited with code 0x%x."),
1527 (unsigned int) current_event
.u
.ExitProcess
.dwExitCode
);
1529 else if (saw_create
== 1)
1531 ourstatus
->kind
= TARGET_WAITKIND_EXITED
;
1532 ourstatus
->value
.integer
= current_event
.u
.ExitProcess
.dwExitCode
;
1533 retval
= main_thread_id
;
1537 case LOAD_DLL_DEBUG_EVENT
:
1538 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1539 (unsigned) current_event
.dwProcessId
,
1540 (unsigned) current_event
.dwThreadId
,
1541 "LOAD_DLL_DEBUG_EVENT"));
1542 CloseHandle (current_event
.u
.LoadDll
.hFile
);
1543 if (saw_create
!= 1)
1545 catch_errors (handle_load_dll
, NULL
, (char *) "", RETURN_MASK_ALL
);
1546 ourstatus
->kind
= TARGET_WAITKIND_LOADED
;
1547 ourstatus
->value
.integer
= 0;
1548 retval
= main_thread_id
;
1551 case UNLOAD_DLL_DEBUG_EVENT
:
1552 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1553 (unsigned) current_event
.dwProcessId
,
1554 (unsigned) current_event
.dwThreadId
,
1555 "UNLOAD_DLL_DEBUG_EVENT"));
1556 if (saw_create
!= 1)
1558 catch_errors (handle_unload_dll
, NULL
, (char *) "", RETURN_MASK_ALL
);
1559 ourstatus
->kind
= TARGET_WAITKIND_LOADED
;
1560 ourstatus
->value
.integer
= 0;
1561 retval
= main_thread_id
;
1564 case EXCEPTION_DEBUG_EVENT
:
1565 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1566 (unsigned) current_event
.dwProcessId
,
1567 (unsigned) current_event
.dwThreadId
,
1568 "EXCEPTION_DEBUG_EVENT"));
1569 if (saw_create
!= 1)
1571 switch (handle_exception (ourstatus
))
1574 continue_status
= DBG_EXCEPTION_NOT_HANDLED
;
1577 retval
= current_event
.dwThreadId
;
1581 continue_status
= -1;
1586 case OUTPUT_DEBUG_STRING_EVENT
: /* Message from the kernel. */
1587 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
1588 (unsigned) current_event
.dwProcessId
,
1589 (unsigned) current_event
.dwThreadId
,
1590 "OUTPUT_DEBUG_STRING_EVENT"));
1591 if (saw_create
!= 1)
1593 retval
= handle_output_debug_string (ourstatus
);
1597 if (saw_create
!= 1)
1599 printf_unfiltered ("gdb: kernel event for pid=%ld tid=%ld\n",
1600 (DWORD
) current_event
.dwProcessId
,
1601 (DWORD
) current_event
.dwThreadId
);
1602 printf_unfiltered (" unknown event code %ld\n",
1603 current_event
.dwDebugEventCode
);
1607 if (!retval
|| saw_create
!= 1)
1609 if (continue_status
== -1)
1610 windows_resume (ops
, minus_one_ptid
, 0, 1);
1612 CHECK (windows_continue (continue_status
, -1));
1616 inferior_ptid
= ptid_build (current_event
.dwProcessId
, 0,
1618 current_thread
= th
?: thread_rec (current_event
.dwThreadId
, TRUE
);
1625 /* Wait for interesting events to occur in the target process. */
1627 windows_wait (struct target_ops
*ops
,
1628 ptid_t ptid
, struct target_waitstatus
*ourstatus
, int options
)
1632 target_terminal_ours ();
1634 /* We loop when we get a non-standard exception rather than return
1635 with a SPURIOUS because resume can try and step or modify things,
1636 which needs a current_thread->h. But some of these exceptions mark
1637 the birth or death of threads, which mean that the current thread
1638 isn't necessarily what you think it is. */
1644 /* If the user presses Ctrl-c while the debugger is waiting
1645 for an event, he expects the debugger to interrupt his program
1646 and to get the prompt back. There are two possible situations:
1648 - The debugger and the program do not share the console, in
1649 which case the Ctrl-c event only reached the debugger.
1650 In that case, the ctrl_c handler will take care of interrupting
1651 the inferior. Note that this case is working starting with
1652 Windows XP. For Windows 2000, Ctrl-C should be pressed in the
1655 - The debugger and the program share the same console, in which
1656 case both debugger and inferior will receive the Ctrl-c event.
1657 In that case the ctrl_c handler will ignore the event, as the
1658 Ctrl-c event generated inside the inferior will trigger the
1659 expected debug event.
1661 FIXME: brobecker/2008-05-20: If the inferior receives the
1662 signal first and the delay until GDB receives that signal
1663 is sufficiently long, GDB can sometimes receive the SIGINT
1664 after we have unblocked the CTRL+C handler. This would
1665 lead to the debugger stopping prematurely while handling
1666 the new-thread event that comes with the handling of the SIGINT
1667 inside the inferior, and then stop again immediately when
1668 the user tries to resume the execution in the inferior.
1669 This is a classic race that we should try to fix one day. */
1670 SetConsoleCtrlHandler (&ctrl_c_handler
, TRUE
);
1671 retval
= get_windows_debug_event (ops
, pid
, ourstatus
);
1672 SetConsoleCtrlHandler (&ctrl_c_handler
, FALSE
);
1675 return ptid_build (current_event
.dwProcessId
, 0, retval
);
1680 if (deprecated_ui_loop_hook
!= NULL
)
1681 detach
= deprecated_ui_loop_hook (0);
1684 windows_kill_inferior (ops
);
1690 do_initial_windows_stuff (struct target_ops
*ops
, DWORD pid
, int attaching
)
1692 extern int stop_after_trap
;
1694 struct inferior
*inf
;
1695 struct thread_info
*tp
;
1697 last_sig
= TARGET_SIGNAL_0
;
1699 exception_count
= 0;
1700 open_process_used
= 0;
1701 debug_registers_changed
= 0;
1702 debug_registers_used
= 0;
1703 for (i
= 0; i
< sizeof (dr
) / sizeof (dr
[0]); i
++)
1706 cygwin_load_start
= cygwin_load_end
= 0;
1708 current_event
.dwProcessId
= pid
;
1709 memset (¤t_event
, 0, sizeof (current_event
));
1711 disable_breakpoints_in_shlibs ();
1712 windows_clear_solib ();
1713 clear_proceed_status ();
1714 init_wait_for_inferior ();
1716 inf
= current_inferior ();
1717 inferior_appeared (inf
, pid
);
1718 inf
->attach_flag
= attaching
;
1720 /* Make the new process the current inferior, so terminal handling
1721 can rely on it. When attaching, we don't know about any thread
1722 id here, but that's OK --- nothing should be referencing the
1723 current thread until we report an event out of windows_wait. */
1724 inferior_ptid
= pid_to_ptid (pid
);
1726 terminal_init_inferior_with_pgrp (pid
);
1727 target_terminal_inferior ();
1729 windows_initialization_done
= 0;
1730 inf
->control
.stop_soon
= STOP_QUIETLY
;
1733 stop_after_trap
= 1;
1734 wait_for_inferior (0);
1735 tp
= inferior_thread ();
1736 if (tp
->suspend
.stop_signal
!= TARGET_SIGNAL_TRAP
)
1737 resume (0, tp
->suspend
.stop_signal
);
1742 windows_initialization_done
= 1;
1743 inf
->control
.stop_soon
= NO_STOP_QUIETLY
;
1744 stop_after_trap
= 0;
1748 /* Try to set or remove a user privilege to the current process. Return -1
1749 if that fails, the previous setting of that privilege otherwise.
1751 This code is copied from the Cygwin source code and rearranged to allow
1752 dynamically loading of the needed symbols from advapi32 which is only
1753 available on NT/2K/XP. */
1755 set_process_privilege (const char *privilege
, BOOL enable
)
1757 HANDLE token_hdl
= NULL
;
1759 TOKEN_PRIVILEGES new_priv
, orig_priv
;
1763 if (!OpenProcessToken (GetCurrentProcess (),
1764 TOKEN_QUERY
| TOKEN_ADJUST_PRIVILEGES
,
1768 if (!LookupPrivilegeValueA (NULL
, privilege
, &restore_priv
))
1771 new_priv
.PrivilegeCount
= 1;
1772 new_priv
.Privileges
[0].Luid
= restore_priv
;
1773 new_priv
.Privileges
[0].Attributes
= enable
? SE_PRIVILEGE_ENABLED
: 0;
1775 if (!AdjustTokenPrivileges (token_hdl
, FALSE
, &new_priv
,
1776 sizeof orig_priv
, &orig_priv
, &size
))
1779 /* Disabled, otherwise every `attach' in an unprivileged user session
1780 would raise the "Failed to get SE_DEBUG_NAME privilege" warning in
1781 windows_attach(). */
1782 /* AdjustTokenPrivileges returns TRUE even if the privilege could not
1783 be enabled. GetLastError () returns an correct error code, though. */
1784 if (enable
&& GetLastError () == ERROR_NOT_ALL_ASSIGNED
)
1788 ret
= orig_priv
.Privileges
[0].Attributes
== SE_PRIVILEGE_ENABLED
? 1 : 0;
1792 CloseHandle (token_hdl
);
1797 /* Attach to process PID, then initialize for debugging it. */
1799 windows_attach (struct target_ops
*ops
, char *args
, int from_tty
)
1804 pid
= parse_pid_to_attach (args
);
1806 if (set_process_privilege (SE_DEBUG_NAME
, TRUE
) < 0)
1808 printf_unfiltered ("Warning: Failed to get SE_DEBUG_NAME privilege\n");
1809 printf_unfiltered ("This can cause attach to "
1810 "fail on Windows NT/2K/XP\n");
1813 windows_init_thread_list ();
1814 ok
= DebugActiveProcess (pid
);
1820 /* Try fall back to Cygwin pid. */
1821 pid
= cygwin_internal (CW_CYGWIN_PID_TO_WINPID
, pid
);
1824 ok
= DebugActiveProcess (pid
);
1829 error (_("Can't attach to process."));
1831 DebugSetProcessKillOnExit (FALSE
);
1835 char *exec_file
= (char *) get_exec_file (0);
1838 printf_unfiltered ("Attaching to program `%s', %s\n", exec_file
,
1839 target_pid_to_str (pid_to_ptid (pid
)));
1841 printf_unfiltered ("Attaching to %s\n",
1842 target_pid_to_str (pid_to_ptid (pid
)));
1844 gdb_flush (gdb_stdout
);
1847 do_initial_windows_stuff (ops
, pid
, 1);
1848 target_terminal_ours ();
1852 windows_detach (struct target_ops
*ops
, char *args
, int from_tty
)
1857 windows_resume (ops
, ptid
, 0, TARGET_SIGNAL_0
);
1859 if (!DebugActiveProcessStop (current_event
.dwProcessId
))
1861 error (_("Can't detach process %lu (error %lu)"),
1862 current_event
.dwProcessId
, GetLastError ());
1865 DebugSetProcessKillOnExit (FALSE
);
1867 if (detached
&& from_tty
)
1869 char *exec_file
= get_exec_file (0);
1872 printf_unfiltered ("Detaching from program: %s, Pid %lu\n", exec_file
,
1873 current_event
.dwProcessId
);
1874 gdb_flush (gdb_stdout
);
1877 inferior_ptid
= null_ptid
;
1878 detach_inferior (current_event
.dwProcessId
);
1880 unpush_target (ops
);
1884 windows_pid_to_exec_file (int pid
)
1886 static char path
[__PMAX
];
1888 /* Try to find exe name as symlink target of /proc/<pid>/exe. */
1890 char procexe
[sizeof ("/proc/4294967295/exe")];
1891 sprintf (procexe
, "/proc/%u/exe", pid
);
1892 nchars
= readlink (procexe
, path
, sizeof(path
));
1893 if (nchars
> 0 && nchars
< sizeof (path
))
1895 path
[nchars
] = '\0'; /* Got it */
1900 /* If we get here then either Cygwin is hosed, this isn't a Cygwin version
1901 of gdb, or we're trying to debug a non-Cygwin windows executable. */
1902 if (!get_module_name (0, path
))
1908 /* Print status information about what we're accessing. */
1911 windows_files_info (struct target_ops
*ignore
)
1913 struct inferior
*inf
= current_inferior ();
1915 printf_unfiltered ("\tUsing the running image of %s %s.\n",
1916 inf
->attach_flag
? "attached" : "child",
1917 target_pid_to_str (inferior_ptid
));
1921 windows_open (char *arg
, int from_tty
)
1923 error (_("Use the \"run\" command to start a Unix child process."));
1926 /* Modify CreateProcess parameters for use of a new separate console.
1928 *FLAGS: DWORD parameter for general process creation flags.
1929 *SI: STARTUPINFO structure, for which the console window size and
1930 console buffer size is filled in if GDB is running in a console.
1931 to create the new console.
1932 The size of the used font is not available on all versions of
1933 Windows OS. Furthermore, the current font might not be the default
1934 font, but this is still better than before.
1935 If the windows and buffer sizes are computed,
1936 SI->DWFLAGS is changed so that this information is used
1937 by CreateProcess function. */
1940 windows_set_console_info (STARTUPINFO
*si
, DWORD
*flags
)
1942 HANDLE hconsole
= CreateFile ("CONOUT$", GENERIC_READ
| GENERIC_WRITE
,
1943 FILE_SHARE_READ
, NULL
, OPEN_EXISTING
, 0, 0);
1945 if (hconsole
!= INVALID_HANDLE_VALUE
)
1947 CONSOLE_SCREEN_BUFFER_INFO sbinfo
;
1949 CONSOLE_FONT_INFO cfi
;
1951 GetCurrentConsoleFont (hconsole
, FALSE
, &cfi
);
1952 font_size
= GetConsoleFontSize (hconsole
, cfi
.nFont
);
1953 GetConsoleScreenBufferInfo(hconsole
, &sbinfo
);
1954 si
->dwXSize
= sbinfo
.srWindow
.Right
- sbinfo
.srWindow
.Left
+ 1;
1955 si
->dwYSize
= sbinfo
.srWindow
.Bottom
- sbinfo
.srWindow
.Top
+ 1;
1957 si
->dwXSize
*= font_size
.X
;
1961 si
->dwYSize
*= font_size
.Y
;
1964 si
->dwXCountChars
= sbinfo
.dwSize
.X
;
1965 si
->dwYCountChars
= sbinfo
.dwSize
.Y
;
1966 si
->dwFlags
|= STARTF_USESIZE
| STARTF_USECOUNTCHARS
;
1968 *flags
|= CREATE_NEW_CONSOLE
;
1971 /* Start an inferior windows child process and sets inferior_ptid to its pid.
1972 EXEC_FILE is the file to run.
1973 ALLARGS is a string containing the arguments to the program.
1974 ENV is the environment vector to pass. Errors reported with error(). */
1977 windows_create_inferior (struct target_ops
*ops
, char *exec_file
,
1978 char *allargs
, char **in_env
, int from_tty
)
1982 cygwin_buf_t real_path
[__PMAX
];
1983 cygwin_buf_t shell
[__PMAX
]; /* Path to shell */
1985 cygwin_buf_t
*toexec
;
1986 cygwin_buf_t
*cygallargs
;
1990 int ostdin
, ostdout
, ostderr
;
1992 char real_path
[__PMAX
];
1993 char shell
[__PMAX
]; /* Path to shell */
1998 PROCESS_INFORMATION pi
;
2001 const char *inferior_io_terminal
= get_inferior_io_terminal ();
2004 error (_("No executable specified, use `target exec'."));
2006 memset (&si
, 0, sizeof (si
));
2007 si
.cb
= sizeof (si
);
2010 flags
|= CREATE_NEW_PROCESS_GROUP
;
2013 windows_set_console_info (&si
, &flags
);
2018 flags
|= DEBUG_ONLY_THIS_PROCESS
;
2019 if (cygwin_conv_path (CCP_POSIX_TO_WIN_W
, exec_file
, real_path
,
2020 __PMAX
* sizeof (cygwin_buf_t
)) < 0)
2021 error (_("Error starting executable: %d"), errno
);
2024 len
= mbstowcs (NULL
, allargs
, 0) + 1;
2025 if (len
== (size_t) -1)
2026 error (_("Error starting executable: %d"), errno
);
2027 cygallargs
= (wchar_t *) alloca (len
* sizeof (wchar_t));
2028 mbstowcs (cygallargs
, allargs
, len
);
2030 cygallargs
= allargs
;
2035 sh
= getenv ("SHELL");
2038 if (cygwin_conv_path (CCP_POSIX_TO_WIN_W
, sh
, shell
, __PMAX
) < 0)
2039 error (_("Error starting executable via shell: %d"), errno
);
2041 len
= sizeof (L
" -c 'exec '") + mbstowcs (NULL
, exec_file
, 0)
2042 + mbstowcs (NULL
, allargs
, 0) + 2;
2043 cygallargs
= (wchar_t *) alloca (len
* sizeof (wchar_t));
2044 swprintf (cygallargs
, len
, L
" -c 'exec %s %s'", exec_file
, allargs
);
2046 cygallargs
= (char *)
2047 alloca (sizeof (" -c 'exec '") + strlen (exec_file
)
2048 + strlen (allargs
) + 2);
2049 sprintf (cygallargs
, " -c 'exec %s %s'", exec_file
, allargs
);
2052 flags
|= DEBUG_PROCESS
;
2056 args
= (cygwin_buf_t
*) alloca ((wcslen (toexec
) + wcslen (cygallargs
) + 2)
2057 * sizeof (wchar_t));
2058 wcscpy (args
, toexec
);
2059 wcscat (args
, L
" ");
2060 wcscat (args
, cygallargs
);
2062 args
= (cygwin_buf_t
*) alloca (strlen (toexec
) + strlen (cygallargs
) + 2);
2063 strcpy (args
, toexec
);
2065 strcat (args
, cygallargs
);
2068 /* Prepare the environment vars for CreateProcess. */
2069 cygwin_internal (CW_SYNC_WINENV
);
2071 if (!inferior_io_terminal
)
2072 tty
= ostdin
= ostdout
= ostderr
= -1;
2075 tty
= open (inferior_io_terminal
, O_RDWR
| O_NOCTTY
);
2078 print_sys_errmsg (inferior_io_terminal
, errno
);
2079 ostdin
= ostdout
= ostderr
= -1;
2092 windows_init_thread_list ();
2093 ret
= CreateProcess (0,
2094 args
, /* command line */
2095 NULL
, /* Security */
2097 TRUE
, /* inherit handles */
2098 flags
, /* start flags */
2099 NULL
, /* environment */
2100 NULL
, /* current directory */
2115 args
= alloca (strlen (toexec
) + strlen (allargs
) + 2);
2116 strcpy (args
, toexec
);
2118 strcat (args
, allargs
);
2120 flags
|= DEBUG_ONLY_THIS_PROCESS
;
2122 if (!inferior_io_terminal
)
2123 tty
= INVALID_HANDLE_VALUE
;
2126 SECURITY_ATTRIBUTES sa
;
2127 sa
.nLength
= sizeof(sa
);
2128 sa
.lpSecurityDescriptor
= 0;
2129 sa
.bInheritHandle
= TRUE
;
2130 tty
= CreateFileA (inferior_io_terminal
, GENERIC_READ
| GENERIC_WRITE
,
2131 0, &sa
, OPEN_EXISTING
, FILE_ATTRIBUTE_NORMAL
, 0);
2132 if (tty
== INVALID_HANDLE_VALUE
)
2133 warning (_("Warning: Failed to open TTY %s, error %#x."),
2134 inferior_io_terminal
, (unsigned) GetLastError ());
2138 si
.hStdOutput
= tty
;
2140 si
.dwFlags
|= STARTF_USESTDHANDLES
;
2144 windows_init_thread_list ();
2145 ret
= CreateProcessA (0,
2146 args
, /* command line */
2147 NULL
, /* Security */
2149 TRUE
, /* inherit handles */
2150 flags
, /* start flags */
2151 NULL
, /* environment */
2152 NULL
, /* current directory */
2155 if (tty
!= INVALID_HANDLE_VALUE
)
2160 error (_("Error creating process %s, (error %d)."),
2161 exec_file
, (unsigned) GetLastError ());
2163 CloseHandle (pi
.hThread
);
2164 CloseHandle (pi
.hProcess
);
2166 if (useshell
&& shell
[0] != '\0')
2171 do_initial_windows_stuff (ops
, pi
.dwProcessId
, 0);
2173 /* windows_continue (DBG_CONTINUE, -1); */
2177 windows_mourn_inferior (struct target_ops
*ops
)
2179 (void) windows_continue (DBG_CONTINUE
, -1);
2180 i386_cleanup_dregs();
2181 if (open_process_used
)
2183 CHECK (CloseHandle (current_process_handle
));
2184 open_process_used
= 0;
2186 unpush_target (ops
);
2187 generic_mourn_inferior ();
2190 /* Send a SIGINT to the process group. This acts just like the user typed a
2191 ^C on the controlling terminal. */
2194 windows_stop (ptid_t ptid
)
2196 DEBUG_EVENTS (("gdb: GenerateConsoleCtrlEvent (CTRLC_EVENT, 0)\n"));
2197 CHECK (GenerateConsoleCtrlEvent (CTRL_C_EVENT
, current_event
.dwProcessId
));
2198 registers_changed (); /* refresh register state */
2202 windows_xfer_memory (CORE_ADDR memaddr
, gdb_byte
*our
, int len
,
2203 int write
, struct mem_attrib
*mem
,
2204 struct target_ops
*target
)
2209 DEBUG_MEM (("gdb: write target memory, %d bytes at 0x%08lx\n",
2210 len
, (DWORD
) (uintptr_t) memaddr
));
2211 if (!WriteProcessMemory (current_process_handle
,
2212 (LPVOID
) (uintptr_t) memaddr
, our
,
2215 FlushInstructionCache (current_process_handle
,
2216 (LPCVOID
) (uintptr_t) memaddr
, len
);
2220 DEBUG_MEM (("gdb: read target memory, %d bytes at 0x%08lx\n",
2221 len
, (DWORD
) (uintptr_t) memaddr
));
2222 if (!ReadProcessMemory (current_process_handle
,
2223 (LPCVOID
) (uintptr_t) memaddr
, our
,
2231 windows_kill_inferior (struct target_ops
*ops
)
2233 CHECK (TerminateProcess (current_process_handle
, 0));
2237 if (!windows_continue (DBG_CONTINUE
, -1))
2239 if (!WaitForDebugEvent (¤t_event
, INFINITE
))
2241 if (current_event
.dwDebugEventCode
== EXIT_PROCESS_DEBUG_EVENT
)
2245 target_mourn_inferior (); /* Or just windows_mourn_inferior? */
2249 windows_prepare_to_store (struct regcache
*regcache
)
2251 /* Do nothing, since we can store individual regs. */
2255 windows_can_run (void)
2261 windows_close (int x
)
2263 DEBUG_EVENTS (("gdb: windows_close, inferior_ptid=%d\n",
2264 PIDGET (inferior_ptid
)));
2267 /* Convert pid to printable format. */
2269 windows_pid_to_str (struct target_ops
*ops
, ptid_t ptid
)
2271 static char buf
[80];
2273 if (ptid_get_tid (ptid
) != 0)
2275 snprintf (buf
, sizeof (buf
), "Thread %d.0x%lx",
2276 ptid_get_pid (ptid
), ptid_get_tid (ptid
));
2280 return normal_pid_to_str (ptid
);
2284 windows_xfer_shared_libraries (struct target_ops
*ops
,
2285 enum target_object object
, const char *annex
,
2286 gdb_byte
*readbuf
, const gdb_byte
*writebuf
,
2287 ULONGEST offset
, LONGEST len
)
2289 struct obstack obstack
;
2297 obstack_init (&obstack
);
2298 obstack_grow_str (&obstack
, "<library-list>\n");
2299 for (so
= solib_start
.next
; so
; so
= so
->next
)
2300 windows_xfer_shared_library (so
->so_name
, (CORE_ADDR
)
2301 (uintptr_t) so
->lm_info
->load_addr
,
2302 target_gdbarch
, &obstack
);
2303 obstack_grow_str0 (&obstack
, "</library-list>\n");
2305 buf
= obstack_finish (&obstack
);
2306 len_avail
= strlen (buf
);
2307 if (offset
>= len_avail
)
2310 if (len
> len_avail
- offset
)
2311 len
= len_avail
- offset
;
2312 memcpy (readbuf
, buf
+ offset
, len
);
2314 obstack_free (&obstack
, NULL
);
2319 windows_xfer_partial (struct target_ops
*ops
, enum target_object object
,
2320 const char *annex
, gdb_byte
*readbuf
,
2321 const gdb_byte
*writebuf
, ULONGEST offset
, LONGEST len
)
2325 case TARGET_OBJECT_MEMORY
:
2327 return (*ops
->deprecated_xfer_memory
) (offset
, readbuf
,
2328 len
, 0/*read*/, NULL
, ops
);
2330 return (*ops
->deprecated_xfer_memory
) (offset
, (gdb_byte
*) writebuf
,
2331 len
, 1/*write*/, NULL
, ops
);
2334 case TARGET_OBJECT_LIBRARIES
:
2335 return windows_xfer_shared_libraries (ops
, object
, annex
, readbuf
,
2336 writebuf
, offset
, len
);
2339 if (ops
->beneath
!= NULL
)
2340 return ops
->beneath
->to_xfer_partial (ops
->beneath
, object
, annex
,
2341 readbuf
, writebuf
, offset
, len
);
2346 /* Provide thread local base, i.e. Thread Information Block address.
2347 Returns 1 if ptid is found and sets *ADDR to thread_local_base. */
2350 windows_get_tib_address (ptid_t ptid
, CORE_ADDR
*addr
)
2354 th
= thread_rec (ptid_get_tid (ptid
), 0);
2359 *addr
= th
->thread_local_base
;
2365 windows_get_ada_task_ptid (long lwp
, long thread
)
2367 return ptid_build (ptid_get_pid (inferior_ptid
), 0, lwp
);
2371 init_windows_ops (void)
2373 windows_ops
.to_shortname
= "child";
2374 windows_ops
.to_longname
= "Win32 child process";
2375 windows_ops
.to_doc
= "Win32 child process (started by the \"run\" command).";
2376 windows_ops
.to_open
= windows_open
;
2377 windows_ops
.to_close
= windows_close
;
2378 windows_ops
.to_attach
= windows_attach
;
2379 windows_ops
.to_attach_no_wait
= 1;
2380 windows_ops
.to_detach
= windows_detach
;
2381 windows_ops
.to_resume
= windows_resume
;
2382 windows_ops
.to_wait
= windows_wait
;
2383 windows_ops
.to_fetch_registers
= windows_fetch_inferior_registers
;
2384 windows_ops
.to_store_registers
= windows_store_inferior_registers
;
2385 windows_ops
.to_prepare_to_store
= windows_prepare_to_store
;
2386 windows_ops
.deprecated_xfer_memory
= windows_xfer_memory
;
2387 windows_ops
.to_xfer_partial
= windows_xfer_partial
;
2388 windows_ops
.to_files_info
= windows_files_info
;
2389 windows_ops
.to_insert_breakpoint
= memory_insert_breakpoint
;
2390 windows_ops
.to_remove_breakpoint
= memory_remove_breakpoint
;
2391 windows_ops
.to_terminal_init
= terminal_init_inferior
;
2392 windows_ops
.to_terminal_inferior
= terminal_inferior
;
2393 windows_ops
.to_terminal_ours_for_output
= terminal_ours_for_output
;
2394 windows_ops
.to_terminal_ours
= terminal_ours
;
2395 windows_ops
.to_terminal_save_ours
= terminal_save_ours
;
2396 windows_ops
.to_terminal_info
= child_terminal_info
;
2397 windows_ops
.to_kill
= windows_kill_inferior
;
2398 windows_ops
.to_create_inferior
= windows_create_inferior
;
2399 windows_ops
.to_mourn_inferior
= windows_mourn_inferior
;
2400 windows_ops
.to_can_run
= windows_can_run
;
2401 windows_ops
.to_thread_alive
= windows_thread_alive
;
2402 windows_ops
.to_pid_to_str
= windows_pid_to_str
;
2403 windows_ops
.to_stop
= windows_stop
;
2404 windows_ops
.to_stratum
= process_stratum
;
2405 windows_ops
.to_has_all_memory
= default_child_has_all_memory
;
2406 windows_ops
.to_has_memory
= default_child_has_memory
;
2407 windows_ops
.to_has_stack
= default_child_has_stack
;
2408 windows_ops
.to_has_registers
= default_child_has_registers
;
2409 windows_ops
.to_has_execution
= default_child_has_execution
;
2410 windows_ops
.to_pid_to_exec_file
= windows_pid_to_exec_file
;
2411 windows_ops
.to_get_ada_task_ptid
= windows_get_ada_task_ptid
;
2412 windows_ops
.to_get_tib_address
= windows_get_tib_address
;
2414 i386_use_watchpoints (&windows_ops
);
2416 i386_dr_low
.set_control
= cygwin_set_dr7
;
2417 i386_dr_low
.set_addr
= cygwin_set_dr
;
2418 i386_dr_low
.reset_addr
= NULL
;
2419 i386_dr_low
.get_status
= cygwin_get_dr6
;
2421 /* i386_dr_low.debug_register_length field is set by
2422 calling i386_set_debug_register_length function
2423 in processor windows specific native file. */
2425 windows_ops
.to_magic
= OPS_MAGIC
;
2429 set_windows_aliases (char *argv0
)
2431 add_info_alias ("dll", "sharedlibrary", 1);
2435 _initialize_windows_nat (void)
2437 struct cmd_list_element
*c
;
2439 init_windows_ops ();
2442 cygwin_internal (CW_SET_DOS_FILE_WARNING
, 0);
2445 c
= add_com ("dll-symbols", class_files
, dll_symbol_command
,
2446 _("Load dll library symbols from FILE."));
2447 set_cmd_completer (c
, filename_completer
);
2449 add_com_alias ("sharedlibrary", "dll-symbols", class_alias
, 1);
2451 add_com_alias ("add-shared-symbol-files", "dll-symbols", class_alias
, 1);
2453 add_com_alias ("assf", "dll-symbols", class_alias
, 1);
2456 add_setshow_boolean_cmd ("shell", class_support
, &useshell
, _("\
2457 Set use of shell to start subprocess."), _("\
2458 Show use of shell to start subprocess."), NULL
,
2460 NULL
, /* FIXME: i18n: */
2461 &setlist
, &showlist
);
2463 add_setshow_boolean_cmd ("cygwin-exceptions", class_support
,
2464 &cygwin_exceptions
, _("\
2465 Break when an exception is detected in the Cygwin DLL itself."), _("\
2466 Show whether gdb breaks on exceptions in the Cygwin DLL itself."), NULL
,
2468 NULL
, /* FIXME: i18n: */
2469 &setlist
, &showlist
);
2472 add_setshow_boolean_cmd ("new-console", class_support
, &new_console
, _("\
2473 Set creation of new console when creating child process."), _("\
2474 Show creation of new console when creating child process."), NULL
,
2476 NULL
, /* FIXME: i18n: */
2477 &setlist
, &showlist
);
2479 add_setshow_boolean_cmd ("new-group", class_support
, &new_group
, _("\
2480 Set creation of new group when creating child process."), _("\
2481 Show creation of new group when creating child process."), NULL
,
2483 NULL
, /* FIXME: i18n: */
2484 &setlist
, &showlist
);
2486 add_setshow_boolean_cmd ("debugexec", class_support
, &debug_exec
, _("\
2487 Set whether to display execution in child process."), _("\
2488 Show whether to display execution in child process."), NULL
,
2490 NULL
, /* FIXME: i18n: */
2491 &setlist
, &showlist
);
2493 add_setshow_boolean_cmd ("debugevents", class_support
, &debug_events
, _("\
2494 Set whether to display kernel events in child process."), _("\
2495 Show whether to display kernel events in child process."), NULL
,
2497 NULL
, /* FIXME: i18n: */
2498 &setlist
, &showlist
);
2500 add_setshow_boolean_cmd ("debugmemory", class_support
, &debug_memory
, _("\
2501 Set whether to display memory accesses in child process."), _("\
2502 Show whether to display memory accesses in child process."), NULL
,
2504 NULL
, /* FIXME: i18n: */
2505 &setlist
, &showlist
);
2507 add_setshow_boolean_cmd ("debugexceptions", class_support
,
2508 &debug_exceptions
, _("\
2509 Set whether to display kernel exceptions in child process."), _("\
2510 Show whether to display kernel exceptions in child process."), NULL
,
2512 NULL
, /* FIXME: i18n: */
2513 &setlist
, &showlist
);
2515 init_w32_command_list ();
2517 add_cmd ("selector", class_info
, display_selectors
,
2518 _("Display selectors infos."),
2520 add_target (&windows_ops
);
2521 deprecated_init_ui_hook
= set_windows_aliases
;
2524 /* Hardware watchpoint support, adapted from go32-nat.c code. */
2526 /* Pass the address ADDR to the inferior in the I'th debug register.
2527 Here we just store the address in dr array, the registers will be
2528 actually set up when windows_continue is called. */
2530 cygwin_set_dr (int i
, CORE_ADDR addr
)
2533 internal_error (__FILE__
, __LINE__
,
2534 _("Invalid register %d in cygwin_set_dr.\n"), i
);
2536 debug_registers_changed
= 1;
2537 debug_registers_used
= 1;
2540 /* Pass the value VAL to the inferior in the DR7 debug control
2541 register. Here we just store the address in D_REGS, the watchpoint
2542 will be actually set up in windows_wait. */
2544 cygwin_set_dr7 (unsigned long val
)
2546 dr
[7] = (CORE_ADDR
) val
;
2547 debug_registers_changed
= 1;
2548 debug_registers_used
= 1;
2551 /* Get the value of the DR6 debug status register from the inferior.
2552 Here we just return the value stored in dr[6]
2553 by the last call to thread_rec for current_event.dwThreadId id. */
2554 static unsigned long
2555 cygwin_get_dr6 (void)
2557 return (unsigned long) dr
[6];
2560 /* Determine if the thread referenced by "ptid" is alive
2561 by "polling" it. If WaitForSingleObject returns WAIT_OBJECT_0
2562 it means that the thread has died. Otherwise it is assumed to be alive. */
2564 windows_thread_alive (struct target_ops
*ops
, ptid_t ptid
)
2568 gdb_assert (ptid_get_tid (ptid
) != 0);
2569 tid
= ptid_get_tid (ptid
);
2571 return WaitForSingleObject (thread_rec (tid
, FALSE
)->h
, 0) == WAIT_OBJECT_0
2576 _initialize_check_for_gdb_ini (void)
2579 if (inhibit_gdbinit
)
2582 homedir
= getenv ("HOME");
2586 char *oldini
= (char *) alloca (strlen (homedir
) +
2587 sizeof ("/gdb.ini"));
2588 strcpy (oldini
, homedir
);
2589 p
= strchr (oldini
, '\0');
2590 if (p
> oldini
&& !IS_DIR_SEPARATOR (p
[-1]))
2592 strcpy (p
, "gdb.ini");
2593 if (access (oldini
, 0) == 0)
2595 int len
= strlen (oldini
);
2596 char *newini
= alloca (len
+ 1);
2597 sprintf (newini
, "%.*s.gdbinit",
2598 (int) (len
- (sizeof ("gdb.ini") - 1)), oldini
);
2599 warning (_("obsolete '%s' found. Rename to '%s'."), oldini
, newini
);
2604 /* Define dummy functions which always return error for the rare cases where
2605 these functions could not be found. */
2607 bad_DebugActiveProcessStop (DWORD w
)
2612 bad_DebugBreakProcess (HANDLE w
)
2617 bad_DebugSetProcessKillOnExit (BOOL w
)
2622 bad_EnumProcessModules (HANDLE w
, HMODULE
*x
, DWORD y
, LPDWORD z
)
2629 bad_GetModuleFileNameExW (HANDLE w
, HMODULE x
, LPWSTR y
, DWORD z
)
2635 bad_GetModuleFileNameExA (HANDLE w
, HMODULE x
, LPSTR y
, DWORD z
)
2642 bad_GetModuleInformation (HANDLE w
, HMODULE x
, LPMODULEINFO y
, DWORD z
)
2648 bad_OpenProcessToken (HANDLE w
, DWORD x
, PHANDLE y
)
2654 bad_GetCurrentConsoleFont (HANDLE w
, BOOL bMaxWindow
, CONSOLE_FONT_INFO
*f
)
2660 bad_GetConsoleFontSize (HANDLE w
, DWORD nFont
)
2668 /* Load any functions which may not be available in ancient versions
2671 _initialize_loadable (void)
2675 hm
= LoadLibrary ("kernel32.dll");
2678 DebugActiveProcessStop
= (void *)
2679 GetProcAddress (hm
, "DebugActiveProcessStop");
2680 DebugBreakProcess
= (void *)
2681 GetProcAddress (hm
, "DebugBreakProcess");
2682 DebugSetProcessKillOnExit
= (void *)
2683 GetProcAddress (hm
, "DebugSetProcessKillOnExit");
2684 GetConsoleFontSize
= (void *)
2685 GetProcAddress (hm
, "GetConsoleFontSize");
2686 GetCurrentConsoleFont
= (void *)
2687 GetProcAddress (hm
, "GetCurrentConsoleFont");
2690 /* Set variables to dummy versions of these processes if the function
2691 wasn't found in kernel32.dll. */
2692 if (!DebugBreakProcess
)
2693 DebugBreakProcess
= bad_DebugBreakProcess
;
2694 if (!DebugActiveProcessStop
|| !DebugSetProcessKillOnExit
)
2696 DebugActiveProcessStop
= bad_DebugActiveProcessStop
;
2697 DebugSetProcessKillOnExit
= bad_DebugSetProcessKillOnExit
;
2699 if (!GetConsoleFontSize
)
2700 GetConsoleFontSize
= bad_GetConsoleFontSize
;
2701 if (!GetCurrentConsoleFont
)
2702 GetCurrentConsoleFont
= bad_GetCurrentConsoleFont
;
2704 /* Load optional functions used for retrieving filename information
2705 associated with the currently debugged process or its dlls. */
2706 hm
= LoadLibrary ("psapi.dll");
2709 EnumProcessModules
= (void *)
2710 GetProcAddress (hm
, "EnumProcessModules");
2711 GetModuleInformation
= (void *)
2712 GetProcAddress (hm
, "GetModuleInformation");
2713 GetModuleFileNameEx
= (void *)
2714 GetProcAddress (hm
, GetModuleFileNameEx_name
);
2717 if (!EnumProcessModules
|| !GetModuleInformation
|| !GetModuleFileNameEx
)
2719 /* Set variables to dummy versions of these processes if the function
2720 wasn't found in psapi.dll. */
2721 EnumProcessModules
= bad_EnumProcessModules
;
2722 GetModuleInformation
= bad_GetModuleInformation
;
2723 GetModuleFileNameEx
= bad_GetModuleFileNameEx
;
2724 /* This will probably fail on Windows 9x/Me. Let the user know
2725 that we're missing some functionality. */
2727 cannot automatically find executable file or library to read symbols.\n\
2728 Use \"file\" or \"dll\" command to load executable/libraries directly."));
2731 hm
= LoadLibrary ("advapi32.dll");
2734 OpenProcessToken
= (void *) GetProcAddress (hm
, "OpenProcessToken");
2735 LookupPrivilegeValueA
= (void *)
2736 GetProcAddress (hm
, "LookupPrivilegeValueA");
2737 AdjustTokenPrivileges
= (void *)
2738 GetProcAddress (hm
, "AdjustTokenPrivileges");
2739 /* Only need to set one of these since if OpenProcessToken fails nothing
2741 if (!OpenProcessToken
|| !LookupPrivilegeValueA
2742 || !AdjustTokenPrivileges
)
2743 OpenProcessToken
= bad_OpenProcessToken
;