1010 lines
29 KiB
C
1010 lines
29 KiB
C
/* -*- tab-width: 8; c-basic-offset: 4 -*- */
|
|
|
|
/* Wine internal debugger
|
|
* Interface to Windows debugger API
|
|
* Eric Pouech (c) 2000
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "debugger.h"
|
|
|
|
#include "ntddk.h"
|
|
#include "thread.h"
|
|
#include "wincon.h"
|
|
#include "wingdi.h"
|
|
#include "winuser.h"
|
|
|
|
#include "winreg.h"
|
|
|
|
DBG_PROCESS* DEBUG_CurrProcess = NULL;
|
|
DBG_THREAD* DEBUG_CurrThread = NULL;
|
|
DWORD DEBUG_CurrTid;
|
|
DWORD DEBUG_CurrPid;
|
|
CONTEXT DEBUG_context;
|
|
BOOL DEBUG_interactiveP = FALSE;
|
|
int curr_frame = 0;
|
|
static char* DEBUG_LastCmdLine = NULL;
|
|
|
|
static DBG_PROCESS* DEBUG_ProcessList = NULL;
|
|
static int automatic_mode;
|
|
DBG_INTVAR DEBUG_IntVars[DBG_IV_LAST];
|
|
|
|
void DEBUG_Output(int chn, const char* buffer, int len)
|
|
{
|
|
if (DBG_IVAR(ConChannelMask) & chn)
|
|
WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), buffer, len, NULL, NULL);
|
|
if (DBG_IVAR(StdChannelMask) & chn)
|
|
fwrite(buffer, len, 1, stderr);
|
|
}
|
|
|
|
int DEBUG_Printf(int chn, const char* format, ...)
|
|
{
|
|
static char buf[4*1024];
|
|
va_list valist;
|
|
int len;
|
|
|
|
va_start(valist, format);
|
|
len = vsnprintf(buf, sizeof(buf), format, valist);
|
|
va_end(valist);
|
|
|
|
if (len <= -1 || len >= sizeof(buf)) {
|
|
len = sizeof(buf) - 1;
|
|
buf[len] = 0;
|
|
buf[len - 1] = buf[len - 2] = buf[len - 3] = '.';
|
|
}
|
|
DEBUG_Output(chn, buf, len);
|
|
return len;
|
|
}
|
|
|
|
static BOOL DEBUG_IntVarsRW(int read)
|
|
{
|
|
HKEY hkey;
|
|
DWORD type = REG_DWORD;
|
|
DWORD val;
|
|
DWORD count = sizeof(val);
|
|
int i;
|
|
DBG_INTVAR* div = DEBUG_IntVars;
|
|
|
|
if (read) {
|
|
/* initializes internal vars table */
|
|
#define INTERNAL_VAR(_var,_val,_ref,_typ) \
|
|
div->val = _val; div->name = #_var; div->pval = _ref; \
|
|
div->type = DEBUG_GetBasicType(_typ); div++;
|
|
#include "intvar.h"
|
|
#undef INTERNAL_VAR
|
|
}
|
|
|
|
if (RegCreateKeyA(HKEY_CURRENT_USER, "Software\\Wine\\WineDbg", &hkey)) {
|
|
/* since the IVars are not yet setup, DEBUG_Printf doesn't work,
|
|
* so don't use it */
|
|
fprintf(stderr, "Cannot create WineDbg key in registry\n");
|
|
return FALSE;
|
|
}
|
|
|
|
for (i = 0; i < DBG_IV_LAST; i++) {
|
|
if (read) {
|
|
if (!DEBUG_IntVars[i].pval) {
|
|
if (!RegQueryValueEx(hkey, DEBUG_IntVars[i].name, 0,
|
|
&type, (LPSTR)&val, &count))
|
|
DEBUG_IntVars[i].val = val;
|
|
DEBUG_IntVars[i].pval = &DEBUG_IntVars[i].val;
|
|
} else {
|
|
*DEBUG_IntVars[i].pval = 0;
|
|
}
|
|
} else {
|
|
/* FIXME: type should be infered from basic type -if any- of intvar */
|
|
if (DEBUG_IntVars[i].pval == &DEBUG_IntVars[i].val)
|
|
RegSetValueEx(hkey, DEBUG_IntVars[i].name, 0,
|
|
type, (LPCVOID)DEBUG_IntVars[i].pval, count);
|
|
}
|
|
}
|
|
RegCloseKey(hkey);
|
|
return TRUE;
|
|
}
|
|
|
|
DBG_INTVAR* DEBUG_GetIntVar(const char* name)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < DBG_IV_LAST; i++) {
|
|
if (!strcmp(DEBUG_IntVars[i].name, name))
|
|
return &DEBUG_IntVars[i];
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static WINE_EXCEPTION_FILTER(wine_dbg)
|
|
{
|
|
DEBUG_Printf(DBG_CHN_MESG, "\nwine_dbg: Exception (%lx) inside debugger, continuing...\n", GetExceptionCode());
|
|
DEBUG_ExternalDebugger();
|
|
return EXCEPTION_EXECUTE_HANDLER;
|
|
}
|
|
|
|
DBG_PROCESS* DEBUG_GetProcess(DWORD pid)
|
|
{
|
|
DBG_PROCESS* p;
|
|
|
|
for (p = DEBUG_ProcessList; p; p = p->next)
|
|
if (p->pid == pid) break;
|
|
return p;
|
|
}
|
|
|
|
static DBG_PROCESS* DEBUG_AddProcess(DWORD pid, HANDLE h, const char* imageName)
|
|
{
|
|
DBG_PROCESS* p = DBG_alloc(sizeof(DBG_PROCESS));
|
|
if (!p)
|
|
return NULL;
|
|
p->handle = h;
|
|
p->pid = pid;
|
|
p->imageName = imageName ? DBG_strdup(imageName) : NULL;
|
|
p->threads = NULL;
|
|
p->num_threads = 0;
|
|
p->continue_on_first_exception = FALSE;
|
|
p->modules = NULL;
|
|
p->num_modules = 0;
|
|
p->next_index = 0;
|
|
p->dbg_hdr_addr = 0;
|
|
p->delayed_bp = NULL;
|
|
p->num_delayed_bp = 0;
|
|
|
|
p->next = DEBUG_ProcessList;
|
|
p->prev = NULL;
|
|
if (DEBUG_ProcessList) DEBUG_ProcessList->prev = p;
|
|
DEBUG_ProcessList = p;
|
|
return p;
|
|
}
|
|
|
|
static void DEBUG_DelThread(DBG_THREAD* p);
|
|
|
|
static void DEBUG_DelProcess(DBG_PROCESS* p)
|
|
{
|
|
int i;
|
|
|
|
if (p->threads != NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Shouldn't happen\n");
|
|
while (p->threads) DEBUG_DelThread(p->threads);
|
|
}
|
|
for (i = 0; i < p->num_delayed_bp; i++) {
|
|
DBG_free(p->delayed_bp[i].name);
|
|
}
|
|
DBG_free(p->delayed_bp);
|
|
if (p->prev) p->prev->next = p->next;
|
|
if (p->next) p->next->prev = p->prev;
|
|
if (p == DEBUG_ProcessList) DEBUG_ProcessList = p->next;
|
|
if (p == DEBUG_CurrProcess) DEBUG_CurrProcess = NULL;
|
|
DBG_free((char*)p->imageName);
|
|
DBG_free(p);
|
|
}
|
|
|
|
static void DEBUG_InitCurrProcess(void)
|
|
{
|
|
}
|
|
|
|
static BOOL DEBUG_ProcessGetString(char* buffer, int size, HANDLE hp, LPSTR addr)
|
|
{
|
|
DWORD sz;
|
|
*(WCHAR*)buffer = 0;
|
|
return (addr && ReadProcessMemory(hp, addr, buffer, size, &sz));
|
|
}
|
|
|
|
static BOOL DEBUG_ProcessGetStringIndirect(char* buffer, int size, HANDLE hp, LPVOID addr)
|
|
{
|
|
LPVOID ad;
|
|
DWORD sz;
|
|
|
|
if ( addr
|
|
&& ReadProcessMemory(hp, addr, &ad, sizeof(ad), &sz)
|
|
&& sz == sizeof(ad)
|
|
&& ad
|
|
&& ReadProcessMemory(hp, ad, buffer, size, &sz))
|
|
return TRUE;
|
|
*(WCHAR*)buffer = 0;
|
|
return FALSE;
|
|
}
|
|
|
|
DBG_THREAD* DEBUG_GetThread(DBG_PROCESS* p, DWORD tid)
|
|
{
|
|
DBG_THREAD* t;
|
|
|
|
for (t = p->threads; t; t = t->next)
|
|
if (t->tid == tid) break;
|
|
return t;
|
|
}
|
|
|
|
static DBG_THREAD* DEBUG_AddThread(DBG_PROCESS* p, DWORD tid,
|
|
HANDLE h, LPVOID start, LPVOID teb)
|
|
{
|
|
DBG_THREAD* t = DBG_alloc(sizeof(DBG_THREAD));
|
|
if (!t)
|
|
return NULL;
|
|
|
|
t->handle = h;
|
|
t->tid = tid;
|
|
t->start = start;
|
|
t->teb = teb;
|
|
t->process = p;
|
|
t->wait_for_first_exception = 0;
|
|
t->dbg_exec_mode = EXEC_CONT;
|
|
t->dbg_exec_count = 0;
|
|
sprintf(t->name, "%08lx", tid);
|
|
|
|
p->num_threads++;
|
|
t->next = p->threads;
|
|
t->prev = NULL;
|
|
if (p->threads) p->threads->prev = t;
|
|
p->threads = t;
|
|
|
|
return t;
|
|
}
|
|
|
|
static void DEBUG_InitCurrThread(void)
|
|
{
|
|
if (DEBUG_CurrThread->start) {
|
|
if (DEBUG_CurrThread->process->num_threads == 1 ||
|
|
DBG_IVAR(BreakAllThreadsStartup)) {
|
|
DBG_VALUE value;
|
|
|
|
DEBUG_SetBreakpoints(FALSE);
|
|
value.type = NULL;
|
|
value.cookie = DV_TARGET;
|
|
value.addr.seg = 0;
|
|
value.addr.off = (DWORD)DEBUG_CurrThread->start;
|
|
DEBUG_AddBreakpoint(&value, NULL);
|
|
DEBUG_SetBreakpoints(TRUE);
|
|
}
|
|
} else {
|
|
DEBUG_CurrThread->wait_for_first_exception = 1;
|
|
}
|
|
}
|
|
|
|
static void DEBUG_DelThread(DBG_THREAD* t)
|
|
{
|
|
if (t->prev) t->prev->next = t->next;
|
|
if (t->next) t->next->prev = t->prev;
|
|
if (t == t->process->threads) t->process->threads = t->next;
|
|
t->process->num_threads--;
|
|
if (t == DEBUG_CurrThread) DEBUG_CurrThread = NULL;
|
|
DBG_free(t);
|
|
}
|
|
|
|
BOOL DEBUG_Attach(DWORD pid, BOOL cofe)
|
|
{
|
|
if (!(DEBUG_CurrProcess = DEBUG_AddProcess(pid, 0, NULL))) return FALSE;
|
|
|
|
if (!DebugActiveProcess(pid)) {
|
|
DEBUG_Printf(DBG_CHN_MESG, "Can't attach process %lx: error %ld\n", pid, GetLastError());
|
|
DEBUG_DelProcess(DEBUG_CurrProcess);
|
|
DEBUG_CurrProcess = NULL;
|
|
return FALSE;
|
|
}
|
|
DEBUG_CurrProcess->continue_on_first_exception = cofe;
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL DEBUG_ExceptionProlog(BOOL is_debug, BOOL force, DWORD code)
|
|
{
|
|
DBG_ADDR addr;
|
|
int newmode;
|
|
|
|
DEBUG_GetCurrentAddress(&addr);
|
|
DEBUG_SuspendExecution();
|
|
|
|
if (!is_debug) {
|
|
if (!addr.seg)
|
|
DEBUG_Printf(DBG_CHN_MESG, " in 32-bit code (0x%08lx)", addr.off);
|
|
else
|
|
switch(DEBUG_GetSelectorType(addr.seg))
|
|
{
|
|
case MODE_32:
|
|
DEBUG_Printf(DBG_CHN_MESG, " in 32-bit code (%04lx:%08lx)", addr.seg, addr.off);
|
|
break;
|
|
case MODE_16:
|
|
DEBUG_Printf(DBG_CHN_MESG, " in 16-bit code (%04lx:%04lx)", addr.seg, addr.off);
|
|
break;
|
|
case MODE_VM86:
|
|
DEBUG_Printf(DBG_CHN_MESG, " in vm86 code (%04lx:%04lx)", addr.seg, addr.off);
|
|
break;
|
|
case MODE_INVALID:
|
|
DEBUG_Printf(DBG_CHN_MESG, " bad CS (%lx)", addr.seg);
|
|
break;
|
|
}
|
|
DEBUG_Printf(DBG_CHN_MESG, ".\n");
|
|
}
|
|
|
|
DEBUG_LoadEntryPoints("Loading new modules symbols:\n");
|
|
|
|
if (!force && is_debug &&
|
|
DEBUG_ShouldContinue(&addr,
|
|
code,
|
|
DEBUG_CurrThread->dbg_exec_mode,
|
|
&DEBUG_CurrThread->dbg_exec_count))
|
|
return FALSE;
|
|
|
|
if ((newmode = DEBUG_GetSelectorType(addr.seg)) == MODE_INVALID) newmode = MODE_32;
|
|
if (newmode != DEBUG_CurrThread->dbg_mode)
|
|
{
|
|
static const char * const names[] = { "???", "16-bit", "32-bit", "vm86" };
|
|
DEBUG_Printf(DBG_CHN_MESG,"In %s mode.\n", names[newmode] );
|
|
DEBUG_CurrThread->dbg_mode = newmode;
|
|
}
|
|
|
|
DEBUG_DoDisplay();
|
|
|
|
if (is_debug || force) {
|
|
/*
|
|
* Do a quiet backtrace so that we have an idea of what the situation
|
|
* is WRT the source files.
|
|
*/
|
|
DEBUG_BackTrace(DEBUG_CurrTid, FALSE);
|
|
} else {
|
|
/* This is a real crash, dump some info */
|
|
DEBUG_InfoRegisters();
|
|
DEBUG_InfoStack();
|
|
#ifdef __i386__
|
|
if (DEBUG_CurrThread->dbg_mode == MODE_16) {
|
|
DEBUG_InfoSegments(DEBUG_context.SegDs >> 3, 1);
|
|
if (DEBUG_context.SegEs != DEBUG_context.SegDs)
|
|
DEBUG_InfoSegments(DEBUG_context.SegEs >> 3, 1);
|
|
}
|
|
DEBUG_InfoSegments(DEBUG_context.SegFs >> 3, 1);
|
|
#endif
|
|
DEBUG_BackTrace(DEBUG_CurrTid, TRUE);
|
|
}
|
|
|
|
if (!is_debug ||
|
|
(DEBUG_CurrThread->dbg_exec_mode == EXEC_STEPI_OVER) ||
|
|
(DEBUG_CurrThread->dbg_exec_mode == EXEC_STEPI_INSTR)) {
|
|
|
|
struct list_id list;
|
|
|
|
/* Show where we crashed */
|
|
curr_frame = 0;
|
|
DEBUG_DisassembleInstruction(&addr);
|
|
|
|
/* resets list internal arguments so we can look at source code when needed */
|
|
DEBUG_FindNearestSymbol(&addr, TRUE, NULL, 0, &list);
|
|
if (list.sourcefile) DEBUG_List(&list, NULL, 0);
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static DWORD DEBUG_ExceptionEpilog(void)
|
|
{
|
|
DEBUG_CurrThread->dbg_exec_mode = DEBUG_RestartExecution(DEBUG_CurrThread->dbg_exec_mode,
|
|
DEBUG_CurrThread->dbg_exec_count);
|
|
/*
|
|
* This will have gotten absorbed into the breakpoint info
|
|
* if it was used. Otherwise it would have been ignored.
|
|
* In any case, we don't mess with it any more.
|
|
*/
|
|
if (DEBUG_CurrThread->dbg_exec_mode == EXEC_CONT || DEBUG_CurrThread->dbg_exec_mode == EXEC_PASS)
|
|
DEBUG_CurrThread->dbg_exec_count = 0;
|
|
|
|
return (DEBUG_CurrThread->dbg_exec_mode == EXEC_PASS) ? DBG_EXCEPTION_NOT_HANDLED : DBG_CONTINUE;
|
|
}
|
|
|
|
static BOOL DEBUG_HandleException(EXCEPTION_RECORD *rec, BOOL first_chance, BOOL force, LPDWORD cont)
|
|
{
|
|
BOOL is_debug = FALSE;
|
|
BOOL ret = TRUE;
|
|
THREADNAME_INFO *pThreadName;
|
|
DBG_THREAD *pThread;
|
|
|
|
|
|
*cont = DBG_CONTINUE;
|
|
|
|
switch (rec->ExceptionCode)
|
|
{
|
|
case EXCEPTION_BREAKPOINT:
|
|
case EXCEPTION_SINGLE_STEP:
|
|
is_debug = TRUE;
|
|
break;
|
|
case EXCEPTION_NAME_THREAD:
|
|
pThreadName = (THREADNAME_INFO*)(rec->ExceptionInformation);
|
|
if (pThreadName->dwThreadID == -1)
|
|
pThread = DEBUG_CurrThread;
|
|
else
|
|
pThread = DEBUG_GetThread(DEBUG_CurrProcess, pThreadName->dwThreadID);
|
|
|
|
if (ReadProcessMemory(DEBUG_CurrThread->process->handle, pThreadName->szName,
|
|
pThread->name, 9, NULL))
|
|
DEBUG_Printf (DBG_CHN_MESG,
|
|
"Thread ID=0x%lx renamed using MS VC6 extension (name==\"%s\")\n",
|
|
pThread->tid, pThread->name);
|
|
return TRUE;
|
|
}
|
|
|
|
if (first_chance && !is_debug && !force && !DBG_IVAR(BreakOnFirstChance))
|
|
{
|
|
/* pass exception to program except for debug exceptions */
|
|
*cont = is_debug ? DBG_CONTINUE : DBG_EXCEPTION_NOT_HANDLED;
|
|
return TRUE;
|
|
}
|
|
|
|
if (!is_debug)
|
|
{
|
|
/* print some infos */
|
|
DEBUG_Printf(DBG_CHN_MESG, "%s: ",
|
|
first_chance ? "First chance exception" : "Unhandled exception");
|
|
switch (rec->ExceptionCode)
|
|
{
|
|
case EXCEPTION_INT_DIVIDE_BY_ZERO:
|
|
DEBUG_Printf(DBG_CHN_MESG, "divide by zero");
|
|
break;
|
|
case EXCEPTION_INT_OVERFLOW:
|
|
DEBUG_Printf(DBG_CHN_MESG, "overflow");
|
|
break;
|
|
case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
|
|
DEBUG_Printf(DBG_CHN_MESG, "array bounds ");
|
|
break;
|
|
case EXCEPTION_ILLEGAL_INSTRUCTION:
|
|
DEBUG_Printf(DBG_CHN_MESG, "illegal instruction");
|
|
break;
|
|
case EXCEPTION_STACK_OVERFLOW:
|
|
DEBUG_Printf(DBG_CHN_MESG, "stack overflow");
|
|
break;
|
|
case EXCEPTION_PRIV_INSTRUCTION:
|
|
DEBUG_Printf(DBG_CHN_MESG, "privileged instruction");
|
|
break;
|
|
case EXCEPTION_ACCESS_VIOLATION:
|
|
if (rec->NumberParameters == 2)
|
|
DEBUG_Printf(DBG_CHN_MESG, "page fault on %s access to 0x%08lx",
|
|
rec->ExceptionInformation[0] ? "write" : "read",
|
|
rec->ExceptionInformation[1]);
|
|
else
|
|
DEBUG_Printf(DBG_CHN_MESG, "page fault");
|
|
break;
|
|
case EXCEPTION_DATATYPE_MISALIGNMENT:
|
|
DEBUG_Printf(DBG_CHN_MESG, "Alignment");
|
|
break;
|
|
case DBG_CONTROL_C:
|
|
DEBUG_Printf(DBG_CHN_MESG, "^C");
|
|
break;
|
|
case CONTROL_C_EXIT:
|
|
DEBUG_Printf(DBG_CHN_MESG, "^C");
|
|
break;
|
|
case EXCEPTION_CRITICAL_SECTION_WAIT:
|
|
{
|
|
DBG_ADDR addr;
|
|
|
|
addr.seg = 0;
|
|
addr.off = rec->ExceptionInformation[0];
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, "wait failed on critical section ");
|
|
DEBUG_PrintAddress(&addr, DEBUG_CurrThread->dbg_mode, FALSE);
|
|
}
|
|
if (!DBG_IVAR(BreakOnCritSectTimeOut))
|
|
{
|
|
DEBUG_Printf(DBG_CHN_MESG, "\n");
|
|
return TRUE;
|
|
}
|
|
break;
|
|
case EXCEPTION_WINE_STUB:
|
|
{
|
|
char dll[32], name[64];
|
|
DEBUG_ProcessGetString( dll, sizeof(dll), DEBUG_CurrThread->process->handle,
|
|
(char *)rec->ExceptionInformation[0] );
|
|
DEBUG_ProcessGetString( name, sizeof(name), DEBUG_CurrThread->process->handle,
|
|
(char *)rec->ExceptionInformation[1] );
|
|
DEBUG_Printf(DBG_CHN_MESG, "unimplemented function %s.%s called", dll, name );
|
|
}
|
|
break;
|
|
case EXCEPTION_VM86_INTx:
|
|
DEBUG_Printf(DBG_CHN_MESG, "interrupt %02lx in vm86 mode",
|
|
rec->ExceptionInformation[0]);
|
|
break;
|
|
case EXCEPTION_VM86_STI:
|
|
DEBUG_Printf(DBG_CHN_MESG, "sti in vm86 mode");
|
|
break;
|
|
case EXCEPTION_VM86_PICRETURN:
|
|
DEBUG_Printf(DBG_CHN_MESG, "PIC return in vm86 mode");
|
|
break;
|
|
default:
|
|
DEBUG_Printf(DBG_CHN_MESG, "%08lx", rec->ExceptionCode);
|
|
break;
|
|
}
|
|
}
|
|
|
|
#if 0
|
|
DEBUG_Printf(DBG_CHN_TRACE,
|
|
"Entering debugger PC=%lx EFL=%08lx mode=%d count=%d\n",
|
|
#ifdef __i386__
|
|
DEBUG_context.Eip, DEBUG_context.EFlags,
|
|
#else
|
|
0L, 0L,
|
|
#endif
|
|
DEBUG_CurrThread->dbg_exec_mode, DEBUG_CurrThread->dbg_exec_count);
|
|
#endif
|
|
|
|
if (automatic_mode)
|
|
{
|
|
DEBUG_ExceptionProlog(is_debug, FALSE, rec->ExceptionCode);
|
|
return FALSE; /* terminate execution */
|
|
}
|
|
|
|
if (DEBUG_ExceptionProlog(is_debug, force, rec->ExceptionCode)) {
|
|
DEBUG_interactiveP = TRUE;
|
|
while ((ret = DEBUG_Parser())) {
|
|
if (DEBUG_ValidateRegisters()) {
|
|
if (DEBUG_CurrThread->dbg_exec_mode != EXEC_PASS || first_chance)
|
|
break;
|
|
DEBUG_Printf(DBG_CHN_MESG, "Cannot pass on last chance exception. You must use cont\n");
|
|
}
|
|
}
|
|
DEBUG_interactiveP = FALSE;
|
|
}
|
|
*cont = DEBUG_ExceptionEpilog();
|
|
|
|
#if 0
|
|
DEBUG_Printf(DBG_CHN_TRACE,
|
|
"Exiting debugger PC=%lx EFL=%08lx mode=%d count=%d\n",
|
|
#ifdef __i386__
|
|
DEBUG_context.Eip, DEBUG_context.EFlags,
|
|
#else
|
|
0L, 0L,
|
|
#endif
|
|
DEBUG_CurrThread->dbg_exec_mode, DEBUG_CurrThread->dbg_exec_count);
|
|
#endif
|
|
|
|
return ret;
|
|
}
|
|
|
|
static BOOL DEBUG_HandleDebugEvent(DEBUG_EVENT* de, LPDWORD cont)
|
|
{
|
|
char buffer[256];
|
|
BOOL ret;
|
|
|
|
DEBUG_CurrPid = de->dwProcessId;
|
|
DEBUG_CurrTid = de->dwThreadId;
|
|
|
|
__TRY {
|
|
ret = TRUE;
|
|
*cont = 0L;
|
|
|
|
if ((DEBUG_CurrProcess = DEBUG_GetProcess(de->dwProcessId)) != NULL)
|
|
DEBUG_CurrThread = DEBUG_GetThread(DEBUG_CurrProcess, de->dwThreadId);
|
|
else
|
|
DEBUG_CurrThread = NULL;
|
|
|
|
switch (de->dwDebugEventCode) {
|
|
case EXCEPTION_DEBUG_EVENT:
|
|
if (!DEBUG_CurrThread) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "%08lx:%08lx: not a registered process or thread (perhaps a 16 bit one ?)\n",
|
|
de->dwProcessId, de->dwThreadId);
|
|
break;
|
|
}
|
|
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: exception code=%08lx\n",
|
|
de->dwProcessId, de->dwThreadId,
|
|
de->u.Exception.ExceptionRecord.ExceptionCode);
|
|
|
|
if (DEBUG_CurrProcess->continue_on_first_exception) {
|
|
DEBUG_CurrProcess->continue_on_first_exception = FALSE;
|
|
if (!DBG_IVAR(BreakOnAttach)) {
|
|
*cont = DBG_CONTINUE;
|
|
break;
|
|
}
|
|
}
|
|
|
|
DEBUG_context.ContextFlags = CONTEXT_CONTROL
|
|
| CONTEXT_INTEGER
|
|
#ifdef CONTEXT_SEGMENTS
|
|
| CONTEXT_SEGMENTS
|
|
#endif
|
|
#ifdef CONTEXT_DEBUG_REGISTERS
|
|
| CONTEXT_DEBUG_REGISTERS
|
|
#endif
|
|
;
|
|
|
|
if (!GetThreadContext(DEBUG_CurrThread->handle, &DEBUG_context)) {
|
|
DEBUG_Printf(DBG_CHN_WARN, "Can't get thread's context\n");
|
|
break;
|
|
}
|
|
|
|
ret = DEBUG_HandleException(&de->u.Exception.ExceptionRecord,
|
|
de->u.Exception.dwFirstChance,
|
|
DEBUG_CurrThread->wait_for_first_exception,
|
|
cont);
|
|
if (DEBUG_CurrThread) {
|
|
DEBUG_CurrThread->wait_for_first_exception = 0;
|
|
SetThreadContext(DEBUG_CurrThread->handle, &DEBUG_context);
|
|
}
|
|
break;
|
|
|
|
case CREATE_THREAD_DEBUG_EVENT:
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: create thread D @%08lx\n", de->dwProcessId, de->dwThreadId,
|
|
(unsigned long)(LPVOID)de->u.CreateThread.lpStartAddress);
|
|
|
|
if (DEBUG_CurrProcess == NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Unknown process\n");
|
|
break;
|
|
}
|
|
if (DEBUG_GetThread(DEBUG_CurrProcess, de->dwThreadId) != NULL) {
|
|
DEBUG_Printf(DBG_CHN_TRACE, "Thread already listed, skipping\n");
|
|
break;
|
|
}
|
|
|
|
DEBUG_CurrThread = DEBUG_AddThread(DEBUG_CurrProcess,
|
|
de->dwThreadId,
|
|
de->u.CreateThread.hThread,
|
|
de->u.CreateThread.lpStartAddress,
|
|
de->u.CreateThread.lpThreadLocalBase);
|
|
if (!DEBUG_CurrThread) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Couldn't create thread\n");
|
|
break;
|
|
}
|
|
DEBUG_InitCurrThread();
|
|
break;
|
|
|
|
case CREATE_PROCESS_DEBUG_EVENT:
|
|
DEBUG_ProcessGetStringIndirect(buffer, sizeof(buffer),
|
|
de->u.CreateProcessInfo.hProcess,
|
|
de->u.CreateProcessInfo.lpImageName);
|
|
|
|
/* FIXME unicode ? de->u.CreateProcessInfo.fUnicode */
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: create process '%s'/%p @%08lx (%ld<%ld>)\n",
|
|
de->dwProcessId, de->dwThreadId,
|
|
buffer, de->u.CreateProcessInfo.lpImageName,
|
|
(unsigned long)(LPVOID)de->u.CreateProcessInfo.lpStartAddress,
|
|
de->u.CreateProcessInfo.dwDebugInfoFileOffset,
|
|
de->u.CreateProcessInfo.nDebugInfoSize);
|
|
|
|
if ((DEBUG_CurrProcess = DEBUG_GetProcess(de->dwProcessId)) != NULL) {
|
|
if (DEBUG_CurrProcess->handle) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Skipping already defined process\n");
|
|
break;
|
|
}
|
|
DEBUG_CurrProcess->handle = de->u.CreateProcessInfo.hProcess;
|
|
if (DEBUG_CurrProcess->imageName == NULL)
|
|
DEBUG_CurrProcess->imageName = DBG_strdup(buffer[0] ? buffer : "<Debugged Process>");
|
|
|
|
} else {
|
|
DEBUG_CurrProcess = DEBUG_AddProcess(de->dwProcessId,
|
|
de->u.CreateProcessInfo.hProcess,
|
|
buffer[0] ? buffer : "<Debugged Process>");
|
|
if (DEBUG_CurrProcess == NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Unknown process\n");
|
|
break;
|
|
}
|
|
}
|
|
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: create thread I @%08lx\n",
|
|
de->dwProcessId, de->dwThreadId,
|
|
(unsigned long)(LPVOID)de->u.CreateProcessInfo.lpStartAddress);
|
|
|
|
DEBUG_CurrThread = DEBUG_AddThread(DEBUG_CurrProcess,
|
|
de->dwThreadId,
|
|
de->u.CreateProcessInfo.hThread,
|
|
de->u.CreateProcessInfo.lpStartAddress,
|
|
de->u.CreateProcessInfo.lpThreadLocalBase);
|
|
if (!DEBUG_CurrThread) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Couldn't create thread\n");
|
|
break;
|
|
}
|
|
|
|
DEBUG_InitCurrProcess();
|
|
DEBUG_InitCurrThread();
|
|
|
|
DEBUG_LoadModule32(DEBUG_CurrProcess->imageName, de->u.CreateProcessInfo.hFile,
|
|
(DWORD)de->u.CreateProcessInfo.lpBaseOfImage);
|
|
|
|
if (buffer[0]) /* we got a process name */
|
|
{
|
|
DWORD type;
|
|
if (!GetBinaryTypeA( buffer, &type ))
|
|
{
|
|
/* not a Windows binary, assume it's a Unix executable then */
|
|
char unixname[MAX_PATH];
|
|
/* HACK!! should fix DEBUG_ReadExecutableDbgInfo to accept DOS filenames */
|
|
if (wine_get_unix_file_name( buffer, unixname, sizeof(unixname) ))
|
|
{
|
|
DEBUG_ReadExecutableDbgInfo( unixname );
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
/* if it is a Windows binary, or an invalid or missing file name,
|
|
* we use wine itself as the main executable */
|
|
DEBUG_ReadExecutableDbgInfo( "wine" );
|
|
break;
|
|
|
|
case EXIT_THREAD_DEBUG_EVENT:
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: exit thread (%ld)\n",
|
|
de->dwProcessId, de->dwThreadId, de->u.ExitThread.dwExitCode);
|
|
|
|
if (DEBUG_CurrThread == NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Unknown thread\n");
|
|
break;
|
|
}
|
|
/* FIXME: remove break point set on thread startup */
|
|
DEBUG_DelThread(DEBUG_CurrThread);
|
|
break;
|
|
|
|
case EXIT_PROCESS_DEBUG_EVENT:
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: exit process (%ld)\n",
|
|
de->dwProcessId, de->dwThreadId, de->u.ExitProcess.dwExitCode);
|
|
|
|
if (DEBUG_CurrProcess == NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Unknown process\n");
|
|
break;
|
|
}
|
|
/* just in case */
|
|
DEBUG_SetBreakpoints(FALSE);
|
|
/* kill last thread */
|
|
DEBUG_DelThread(DEBUG_CurrProcess->threads);
|
|
DEBUG_DelProcess(DEBUG_CurrProcess);
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, "Process of pid=%08lx has terminated\n", DEBUG_CurrPid);
|
|
break;
|
|
|
|
case LOAD_DLL_DEBUG_EVENT:
|
|
if (DEBUG_CurrThread == NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Unknown thread\n");
|
|
break;
|
|
}
|
|
DEBUG_ProcessGetStringIndirect(buffer, sizeof(buffer),
|
|
DEBUG_CurrThread->process->handle,
|
|
de->u.LoadDll.lpImageName);
|
|
|
|
/* FIXME unicode: de->u.LoadDll.fUnicode */
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: loads DLL %s @%08lx (%ld<%ld>)\n",
|
|
de->dwProcessId, de->dwThreadId,
|
|
buffer, (unsigned long)de->u.LoadDll.lpBaseOfDll,
|
|
de->u.LoadDll.dwDebugInfoFileOffset,
|
|
de->u.LoadDll.nDebugInfoSize);
|
|
_strupr(buffer);
|
|
DEBUG_LoadModule32(buffer, de->u.LoadDll.hFile, (DWORD)de->u.LoadDll.lpBaseOfDll);
|
|
DEBUG_CheckDelayedBP();
|
|
if (DBG_IVAR(BreakOnDllLoad)) {
|
|
DEBUG_Printf(DBG_CHN_MESG, "Stopping on DLL %s loading at %08lx\n",
|
|
buffer, (unsigned long)de->u.LoadDll.lpBaseOfDll);
|
|
ret = DEBUG_Parser();
|
|
}
|
|
break;
|
|
|
|
case UNLOAD_DLL_DEBUG_EVENT:
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: unload DLL @%08lx\n", de->dwProcessId, de->dwThreadId,
|
|
(unsigned long)de->u.UnloadDll.lpBaseOfDll);
|
|
break;
|
|
|
|
case OUTPUT_DEBUG_STRING_EVENT:
|
|
if (DEBUG_CurrThread == NULL) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Unknown thread\n");
|
|
break;
|
|
}
|
|
|
|
DEBUG_ProcessGetString(buffer, sizeof(buffer),
|
|
DEBUG_CurrThread->process->handle,
|
|
de->u.DebugString.lpDebugStringData);
|
|
|
|
/* FIXME unicode de->u.DebugString.fUnicode ? */
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: output debug string (%s)\n",
|
|
de->dwProcessId, de->dwThreadId, buffer);
|
|
break;
|
|
|
|
case RIP_EVENT:
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: rip error=%ld type=%ld\n",
|
|
de->dwProcessId, de->dwThreadId, de->u.RipInfo.dwError,
|
|
de->u.RipInfo.dwType);
|
|
break;
|
|
|
|
default:
|
|
DEBUG_Printf(DBG_CHN_TRACE, "%08lx:%08lx: unknown event (%ld)\n",
|
|
de->dwProcessId, de->dwThreadId, de->dwDebugEventCode);
|
|
}
|
|
|
|
} __EXCEPT(wine_dbg) {
|
|
*cont = 0;
|
|
ret = TRUE;
|
|
}
|
|
__ENDTRY;
|
|
return ret;
|
|
}
|
|
|
|
static DWORD DEBUG_MainLoop(void)
|
|
{
|
|
DEBUG_EVENT de;
|
|
DWORD cont;
|
|
BOOL ret;
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, " on pid %lx\n", DEBUG_CurrPid);
|
|
|
|
for (ret = TRUE; ret; ) {
|
|
/* wait until we get at least one loaded process */
|
|
while (!DEBUG_ProcessList && (ret = DEBUG_Parser()));
|
|
if (!ret) break;
|
|
|
|
while (ret && DEBUG_ProcessList && WaitForDebugEvent(&de, INFINITE)) {
|
|
ret = DEBUG_HandleDebugEvent(&de, &cont);
|
|
ContinueDebugEvent(de.dwProcessId, de.dwThreadId, cont);
|
|
}
|
|
};
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, "WineDbg terminated on pid %lx\n", DEBUG_CurrPid);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static DWORD DEBUG_AutoMode(void)
|
|
{
|
|
DEBUG_EVENT de;
|
|
DWORD cont;
|
|
BOOL ret = TRUE;
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, " on pid %lx\n", DEBUG_CurrPid);
|
|
|
|
while (ret && DEBUG_ProcessList && WaitForDebugEvent(&de, INFINITE))
|
|
{
|
|
ret = DEBUG_HandleDebugEvent(&de, &cont);
|
|
ContinueDebugEvent(de.dwProcessId, de.dwThreadId, cont);
|
|
}
|
|
/* print some extra information */
|
|
DEBUG_Printf(DBG_CHN_MESG, "Modules:\n");
|
|
DEBUG_WalkModules();
|
|
DEBUG_Printf(DBG_CHN_MESG, "Threads:\n");
|
|
DEBUG_WalkThreads();
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, "WineDbg terminated on pid %lx\n", DEBUG_CurrPid);
|
|
return 0;
|
|
}
|
|
|
|
static BOOL DEBUG_Start(LPSTR cmdLine)
|
|
{
|
|
PROCESS_INFORMATION info;
|
|
STARTUPINFOA startup;
|
|
|
|
memset(&startup, 0, sizeof(startup));
|
|
startup.cb = sizeof(startup);
|
|
startup.dwFlags = STARTF_USESHOWWINDOW;
|
|
startup.wShowWindow = SW_SHOWNORMAL;
|
|
|
|
if (!CreateProcess(NULL, cmdLine, NULL, NULL,
|
|
FALSE, DEBUG_PROCESS|DETACHED_PROCESS, NULL, NULL, &startup, &info)) {
|
|
DEBUG_Printf(DBG_CHN_MESG, "Couldn't start process '%s'\n", cmdLine);
|
|
return FALSE;
|
|
}
|
|
DEBUG_CurrPid = info.dwProcessId;
|
|
if (!(DEBUG_CurrProcess = DEBUG_AddProcess(DEBUG_CurrPid, 0, NULL))) return FALSE;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
void DEBUG_Run(const char* args)
|
|
{
|
|
DBG_MODULE* wmod = DEBUG_GetProcessMainModule(DEBUG_CurrProcess);
|
|
const char* pgm = (wmod) ? wmod->module_name : "none";
|
|
|
|
if (args) {
|
|
DEBUG_Printf(DBG_CHN_MESG, "Run (%s) with '%s'\n", pgm, args);
|
|
} else {
|
|
if (!DEBUG_LastCmdLine) {
|
|
DEBUG_Printf(DBG_CHN_MESG, "Cannot find previously used command line.\n");
|
|
return;
|
|
}
|
|
DEBUG_Start(DEBUG_LastCmdLine);
|
|
}
|
|
}
|
|
|
|
static void DEBUG_InitConsole(void)
|
|
{
|
|
COORD c;
|
|
SMALL_RECT sr;
|
|
DWORD mode;
|
|
|
|
/* keep it as a cuiexe for now, so that Wine won't touch the Unix stdin,
|
|
* stdout and stderr streams
|
|
*/
|
|
if (DBG_IVAR(UseXTerm))
|
|
{
|
|
FreeConsole();
|
|
AllocConsole();
|
|
}
|
|
/* this would be nicer for output */
|
|
c.X = 132;
|
|
c.Y = 500;
|
|
SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), c);
|
|
|
|
/* sets the console's window width accordingly */
|
|
sr.Left = 0;
|
|
sr.Top = 0;
|
|
sr.Right = c.X - 1;
|
|
sr.Bottom = 50;
|
|
SetConsoleWindowInfo(GetStdHandle(STD_OUTPUT_HANDLE), TRUE, &sr);
|
|
|
|
/* put the line editing mode with the nice emacs features (FIXME: could be triggered by a IVAR) */
|
|
if (GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), &mode))
|
|
SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), mode | WINE_ENABLE_LINE_INPUT_EMACS);
|
|
}
|
|
|
|
int DEBUG_main(int argc, char** argv)
|
|
{
|
|
DWORD retv = 0;
|
|
|
|
/* Initialize the type handling stuff. */
|
|
DEBUG_InitTypes();
|
|
DEBUG_InitCVDataTypes();
|
|
|
|
/* Initialize internal vars (types must have been initialized before) */
|
|
if (!DEBUG_IntVarsRW(TRUE)) return -1;
|
|
|
|
if (argc > 1 && !strcmp( argv[1], "--auto" ))
|
|
{
|
|
argc--;
|
|
argv++;
|
|
automatic_mode = 1;
|
|
/* force some internal variables */
|
|
DBG_IVAR(UseXTerm) = 0;
|
|
DBG_IVAR(BreakOnDllLoad) = 0;
|
|
DBG_IVAR(ConChannelMask) = 0;
|
|
DBG_IVAR(StdChannelMask) = DBG_CHN_MESG;
|
|
}
|
|
|
|
DEBUG_InitConsole();
|
|
|
|
DEBUG_Printf(DBG_CHN_MESG, "WineDbg starting... ");
|
|
|
|
if (argc == 3) {
|
|
HANDLE hEvent;
|
|
DWORD pid;
|
|
|
|
if ((pid = atoi(argv[1])) != 0 && (hEvent = (HANDLE)atoi(argv[2])) != 0) {
|
|
if (!DEBUG_Attach(pid, TRUE)) {
|
|
/* don't care about result */
|
|
SetEvent(hEvent);
|
|
goto leave;
|
|
}
|
|
if (!SetEvent(hEvent)) {
|
|
DEBUG_Printf(DBG_CHN_ERR, "Invalid event handle: %p\n", hEvent);
|
|
goto leave;
|
|
}
|
|
CloseHandle(hEvent);
|
|
DEBUG_CurrPid = pid;
|
|
}
|
|
}
|
|
|
|
if (DEBUG_CurrPid == 0 && argc > 1) {
|
|
int i, len;
|
|
LPSTR cmdLine;
|
|
|
|
if (!(cmdLine = DBG_alloc(len = 1))) goto oom_leave;
|
|
cmdLine[0] = '\0';
|
|
|
|
for (i = 1; i < argc; i++) {
|
|
len += strlen(argv[i]) + 1;
|
|
if (!(cmdLine = DBG_realloc(cmdLine, len))) goto oom_leave;
|
|
strcat(cmdLine, argv[i]);
|
|
cmdLine[len - 2] = ' ';
|
|
cmdLine[len - 1] = '\0';
|
|
}
|
|
|
|
if (!DEBUG_Start(cmdLine)) {
|
|
DEBUG_Printf(DBG_CHN_MESG, "Couldn't start process '%s'\n", cmdLine);
|
|
goto leave;
|
|
}
|
|
DBG_free(DEBUG_LastCmdLine);
|
|
DEBUG_LastCmdLine = cmdLine;
|
|
}
|
|
|
|
if (automatic_mode)
|
|
{
|
|
retv = DEBUG_AutoMode();
|
|
/* don't save modified variables in auto mode */
|
|
}
|
|
else
|
|
{
|
|
retv = DEBUG_MainLoop();
|
|
/* saves modified variables */
|
|
DEBUG_IntVarsRW(FALSE);
|
|
}
|
|
|
|
leave:
|
|
return retv;
|
|
|
|
oom_leave:
|
|
DEBUG_Printf(DBG_CHN_MESG, "Out of memory\n");
|
|
goto leave;
|
|
}
|