1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
3 /* Wine internal debugger
4 * Interface to Windows debugger API
26 DBG_PROCESS
* DEBUG_CurrProcess
= NULL
;
27 DBG_THREAD
* DEBUG_CurrThread
= NULL
;
30 CONTEXT DEBUG_context
;
32 static char* DEBUG_LastCmdLine
= NULL
;
34 static DBG_PROCESS
* DEBUG_ProcessList
= NULL
;
35 DBG_INTVAR DEBUG_IntVars
[DBG_IV_LAST
];
37 void DEBUG_Output(int chn
, const char* buffer
, int len
)
39 if (DBG_IVAR(ConChannelMask
) & chn
)
40 WriteFile(GetStdHandle(STD_OUTPUT_HANDLE
), buffer
, len
, NULL
, NULL
);
41 if (DBG_IVAR(StdChannelMask
) & chn
)
42 fwrite(buffer
, len
, 1, stderr
);
45 int DEBUG_Printf(int chn
, const char* format
, ...)
51 va_start(valist
, format
);
52 len
= vsnprintf(buf
, sizeof(buf
), format
, valist
);
56 len
= sizeof(buf
) - 1;
58 buf
[len
- 1] = buf
[len
- 2] = buf
[len
- 3] = '.';
60 DEBUG_Output(chn
, buf
, len
);
64 static BOOL
DEBUG_IntVarsRW(int read
)
67 DWORD type
= REG_DWORD
;
69 DWORD count
= sizeof(val
);
71 DBG_INTVAR
* div
= DEBUG_IntVars
;
74 /* initializes internal vars table */
75 #define INTERNAL_VAR(_var,_val,_ref,_typ) \
76 div->val = _val; div->name = #_var; div->pval = _ref; \
77 div->type = _typ; div++;
82 if (RegCreateKeyA(HKEY_CURRENT_USER
, "Software\\Wine\\WineDbg", &hkey
)) {
83 /* since the IVars are not yet setup, DEBUG_Printf doesn't work,
85 fprintf(stderr
, "Cannot create WineDbg key in registry\n");
89 for (i
= 0; i
< DBG_IV_LAST
; i
++) {
91 if (!DEBUG_IntVars
[i
].pval
) {
92 if (!RegQueryValueEx(hkey
, DEBUG_IntVars
[i
].name
, 0,
93 &type
, (LPSTR
)&val
, &count
))
94 DEBUG_IntVars
[i
].val
= val
;
95 DEBUG_IntVars
[i
].pval
= &DEBUG_IntVars
[i
].val
;
97 *DEBUG_IntVars
[i
].pval
= 0;
100 /* FIXME: type should be infered from basic type -if any- of intvar */
101 if (DEBUG_IntVars
[i
].pval
== &DEBUG_IntVars
[i
].val
)
102 RegSetValueEx(hkey
, DEBUG_IntVars
[i
].name
, 0,
103 type
, (LPCVOID
)DEBUG_IntVars
[i
].pval
, count
);
110 DBG_INTVAR
* DEBUG_GetIntVar(const char* name
)
114 for (i
= 0; i
< DBG_IV_LAST
; i
++) {
115 if (!strcmp(DEBUG_IntVars
[i
].name
, name
))
116 return &DEBUG_IntVars
[i
];
121 static WINE_EXCEPTION_FILTER(wine_dbg
)
123 DEBUG_Printf(DBG_CHN_MESG
, "\nwine_dbg: Exception (%lx) inside debugger, continuing...\n", GetExceptionCode());
124 DEBUG_ExternalDebugger();
125 return EXCEPTION_EXECUTE_HANDLER
;
128 static DBG_PROCESS
* DEBUG_GetProcess(DWORD pid
)
132 for (p
= DEBUG_ProcessList
; p
; p
= p
->next
)
133 if (p
->pid
== pid
) break;
137 static DBG_PROCESS
* DEBUG_AddProcess(DWORD pid
, HANDLE h
)
139 DBG_PROCESS
* p
= DBG_alloc(sizeof(DBG_PROCESS
));
146 p
->continue_on_first_exception
= FALSE
;
151 p
->next
= DEBUG_ProcessList
;
153 if (DEBUG_ProcessList
) DEBUG_ProcessList
->prev
= p
;
154 DEBUG_ProcessList
= p
;
158 static void DEBUG_DelThread(DBG_THREAD
* p
);
160 static void DEBUG_DelProcess(DBG_PROCESS
* p
)
162 if (p
->threads
!= NULL
) {
163 DEBUG_Printf(DBG_CHN_ERR
, "Shouldn't happen\n");
164 while (p
->threads
) DEBUG_DelThread(p
->threads
);
166 if (p
->prev
) p
->prev
->next
= p
->next
;
167 if (p
->next
) p
->next
->prev
= p
->prev
;
168 if (p
== DEBUG_ProcessList
) DEBUG_ProcessList
= p
->next
;
169 if (p
== DEBUG_CurrProcess
) DEBUG_CurrProcess
= NULL
;
173 static void DEBUG_InitCurrProcess(void)
177 static BOOL
DEBUG_ProcessGetString(char* buffer
, int size
, HANDLE hp
, LPSTR addr
)
181 return (addr
&& ReadProcessMemory(hp
, addr
, buffer
, size
, &sz
));
184 static BOOL
DEBUG_ProcessGetStringIndirect(char* buffer
, int size
, HANDLE hp
, LPVOID addr
)
190 && ReadProcessMemory(hp
, addr
, &ad
, sizeof(ad
), &sz
)
193 && ReadProcessMemory(hp
, ad
, buffer
, size
, &sz
))
199 static DBG_THREAD
* DEBUG_GetThread(DBG_PROCESS
* p
, DWORD tid
)
203 for (t
= p
->threads
; t
; t
= t
->next
)
204 if (t
->tid
== tid
) break;
208 static DBG_THREAD
* DEBUG_AddThread(DBG_PROCESS
* p
, DWORD tid
,
209 HANDLE h
, LPVOID start
, LPVOID teb
)
211 DBG_THREAD
* t
= DBG_alloc(sizeof(DBG_THREAD
));
220 t
->wait_for_first_exception
= 0;
221 t
->dbg_exec_mode
= EXEC_CONT
;
222 t
->dbg_exec_count
= 0;
225 t
->next
= p
->threads
;
227 if (p
->threads
) p
->threads
->prev
= t
;
233 static void DEBUG_InitCurrThread(void)
235 if (DEBUG_CurrThread
->start
) {
236 if (DEBUG_CurrThread
->process
->num_threads
== 1 ||
237 DBG_IVAR(BreakAllThreadsStartup
)) {
240 DEBUG_SetBreakpoints(FALSE
);
242 value
.cookie
= DV_TARGET
;
244 value
.addr
.off
= (DWORD
)DEBUG_CurrThread
->start
;
245 DEBUG_AddBreakpoint(&value
, NULL
);
246 DEBUG_SetBreakpoints(TRUE
);
249 DEBUG_CurrThread
->wait_for_first_exception
= 1;
253 static void DEBUG_DelThread(DBG_THREAD
* t
)
255 if (t
->prev
) t
->prev
->next
= t
->next
;
256 if (t
->next
) t
->next
->prev
= t
->prev
;
257 if (t
== t
->process
->threads
) t
->process
->threads
= t
->next
;
258 t
->process
->num_threads
--;
259 if (t
== DEBUG_CurrThread
) DEBUG_CurrThread
= NULL
;
263 BOOL
DEBUG_Attach(DWORD pid
, BOOL cofe
)
265 if (!(DEBUG_CurrProcess
= DEBUG_AddProcess(pid
, 0))) return FALSE
;
267 if (!DebugActiveProcess(pid
)) {
268 DEBUG_Printf(DBG_CHN_ERR
, "Can't attach process %ld: %ld\n",
269 pid
, GetLastError());
272 DEBUG_CurrProcess
->continue_on_first_exception
= cofe
;
276 static BOOL
DEBUG_ExceptionProlog(BOOL is_debug
, BOOL force
, DWORD code
)
281 DEBUG_GetCurrentAddress(&addr
);
282 DEBUG_SuspendExecution();
286 DEBUG_Printf(DBG_CHN_MESG
, " in 32-bit code (0x%08lx).\n", addr
.off
);
288 switch(DEBUG_GetSelectorType(addr
.seg
))
291 DEBUG_Printf(DBG_CHN_MESG
, " in 32-bit code (%04lx:%08lx).\n", addr
.seg
, addr
.off
);
294 DEBUG_Printf(DBG_CHN_MESG
, " in 16-bit code (%04lx:%04lx).\n", addr
.seg
, addr
.off
);
297 DEBUG_Printf(DBG_CHN_MESG
, " in vm86 code (%04lx:%04lx).\n", addr
.seg
, addr
.off
);
300 DEBUG_Printf(DBG_CHN_MESG
, "bad CS (%lx)\n", addr
.seg
);
305 DEBUG_LoadEntryPoints("Loading new modules symbols:\n");
307 if (!force
&& is_debug
&&
308 DEBUG_ShouldContinue(&addr
,
310 DEBUG_CurrThread
->dbg_exec_mode
,
311 &DEBUG_CurrThread
->dbg_exec_count
))
314 if ((newmode
= DEBUG_GetSelectorType(addr
.seg
)) == MODE_INVALID
) newmode
= MODE_32
;
315 if (newmode
!= DEBUG_CurrThread
->dbg_mode
)
317 static const char * const names
[] = { "???", "16-bit", "32-bit", "vm86" };
318 DEBUG_Printf(DBG_CHN_MESG
,"In %s mode.\n", names
[newmode
] );
319 DEBUG_CurrThread
->dbg_mode
= newmode
;
324 if (is_debug
|| force
) {
326 * Do a quiet backtrace so that we have an idea of what the situation
327 * is WRT the source files.
329 DEBUG_BackTrace(FALSE
);
331 /* This is a real crash, dump some info */
332 DEBUG_InfoRegisters();
335 if (DEBUG_CurrThread
->dbg_mode
== MODE_16
) {
336 DEBUG_InfoSegments(DEBUG_context
.SegDs
>> 3, 1);
337 if (DEBUG_context
.SegEs
!= DEBUG_context
.SegDs
)
338 DEBUG_InfoSegments(DEBUG_context
.SegEs
>> 3, 1);
340 DEBUG_InfoSegments(DEBUG_context
.SegFs
>> 3, 1);
342 DEBUG_BackTrace(TRUE
);
346 (DEBUG_CurrThread
->dbg_exec_mode
== EXEC_STEPI_OVER
) ||
347 (DEBUG_CurrThread
->dbg_exec_mode
== EXEC_STEPI_INSTR
)) {
351 /* Show where we crashed */
353 DEBUG_DisassembleInstruction(&addr
);
355 /* resets list internal arguments so we can look at source code when needed */
356 DEBUG_FindNearestSymbol(&addr
, TRUE
, NULL
, 0, &list
);
357 if (list
.sourcefile
) DEBUG_List(&list
, NULL
, 0);
362 static DWORD
DEBUG_ExceptionEpilog(void)
364 DEBUG_CurrThread
->dbg_exec_mode
= DEBUG_RestartExecution(DEBUG_CurrThread
->dbg_exec_mode
,
365 DEBUG_CurrThread
->dbg_exec_count
);
367 * This will have gotten absorbed into the breakpoint info
368 * if it was used. Otherwise it would have been ignored.
369 * In any case, we don't mess with it any more.
371 if (DEBUG_CurrThread
->dbg_exec_mode
== EXEC_CONT
|| DEBUG_CurrThread
->dbg_exec_mode
== EXEC_PASS
)
372 DEBUG_CurrThread
->dbg_exec_count
= 0;
374 return (DEBUG_CurrThread
->dbg_exec_mode
== EXEC_PASS
) ? DBG_EXCEPTION_NOT_HANDLED
: DBG_CONTINUE
;
377 static BOOL
DEBUG_HandleException(EXCEPTION_RECORD
*rec
, BOOL first_chance
, BOOL force
, LPDWORD cont
)
379 BOOL is_debug
= FALSE
;
382 *cont
= DBG_CONTINUE
;
384 switch (rec
->ExceptionCode
)
386 case EXCEPTION_BREAKPOINT
:
387 case EXCEPTION_SINGLE_STEP
:
392 if (first_chance
&& !force
&& !DBG_IVAR(BreakOnFirstChance
))
394 /* pass exception to program except for debug exceptions */
395 *cont
= is_debug
? DBG_CONTINUE
: DBG_EXCEPTION_NOT_HANDLED
;
401 /* print some infos */
402 DEBUG_Printf(DBG_CHN_MESG
, "%s: ",
403 first_chance
? "First chance exception" : "Unhandled exception");
404 switch (rec
->ExceptionCode
)
406 case EXCEPTION_INT_DIVIDE_BY_ZERO
:
407 DEBUG_Printf(DBG_CHN_MESG
, "divide by zero");
409 case EXCEPTION_INT_OVERFLOW
:
410 DEBUG_Printf(DBG_CHN_MESG
, "overflow");
412 case EXCEPTION_ARRAY_BOUNDS_EXCEEDED
:
413 DEBUG_Printf(DBG_CHN_MESG
, "array bounds ");
415 case EXCEPTION_ILLEGAL_INSTRUCTION
:
416 DEBUG_Printf(DBG_CHN_MESG
, "illegal instruction");
418 case EXCEPTION_STACK_OVERFLOW
:
419 DEBUG_Printf(DBG_CHN_MESG
, "stack overflow");
421 case EXCEPTION_PRIV_INSTRUCTION
:
422 DEBUG_Printf(DBG_CHN_MESG
, "priviledged instruction");
424 case EXCEPTION_ACCESS_VIOLATION
:
425 if (rec
->NumberParameters
== 2)
426 DEBUG_Printf(DBG_CHN_MESG
, "page fault on %s access to 0x%08lx",
427 rec
->ExceptionInformation
[0] ? "write" : "read",
428 rec
->ExceptionInformation
[1]);
430 DEBUG_Printf(DBG_CHN_MESG
, "page fault");
432 case EXCEPTION_DATATYPE_MISALIGNMENT
:
433 DEBUG_Printf(DBG_CHN_MESG
, "Alignment");
436 DEBUG_Printf(DBG_CHN_MESG
, "^C");
438 case EXCEPTION_CRITICAL_SECTION_WAIT
:
439 DEBUG_Printf(DBG_CHN_MESG
, "critical section %08lx wait failed",
440 rec
->ExceptionInformation
[0]);
441 if (!DBG_IVAR(BreakOnCritSectTimeOut
))
443 DEBUG_Printf(DBG_CHN_MESG
, "\n");
447 case EXCEPTION_VM86_INTx
:
448 DEBUG_Printf(DBG_CHN_MESG
, "interrupt %02lx in vm86 mode",
449 rec
->ExceptionInformation
[0]);
451 case EXCEPTION_VM86_STI
:
452 DEBUG_Printf(DBG_CHN_MESG
, "sti in vm86 mode");
454 case EXCEPTION_VM86_PICRETURN
:
455 DEBUG_Printf(DBG_CHN_MESG
, "PIC return in vm86 mode");
458 DEBUG_Printf(DBG_CHN_MESG
, "%08lx", rec
->ExceptionCode
);
461 DEBUG_Printf(DBG_CHN_MESG
, "\n");
464 DEBUG_Printf(DBG_CHN_TRACE
,
465 "Entering debugger PC=%lx EFL=%08lx mode=%d count=%d\n",
467 DEBUG_context
.Eip
, DEBUG_context
.EFlags
,
471 DEBUG_CurrThread
->dbg_exec_mode
, DEBUG_CurrThread
->dbg_exec_count
);
473 if (DEBUG_ExceptionProlog(is_debug
, force
, rec
->ExceptionCode
)) {
474 while ((ret
= DEBUG_Parser())) {
475 if (DEBUG_ValidateRegisters()) {
476 if (DEBUG_CurrThread
->dbg_exec_mode
!= EXEC_PASS
|| first_chance
)
478 DEBUG_Printf(DBG_CHN_MESG
, "Cannot pass on last chance exception. You must use cont\n");
482 *cont
= DEBUG_ExceptionEpilog();
484 DEBUG_Printf(DBG_CHN_TRACE
,
485 "Exiting debugger PC=%lx EFL=%08lx mode=%d count=%d\n",
487 DEBUG_context
.Eip
, DEBUG_context
.EFlags
,
491 DEBUG_CurrThread
->dbg_exec_mode
, DEBUG_CurrThread
->dbg_exec_count
);
496 static BOOL
DEBUG_HandleDebugEvent(DEBUG_EVENT
* de
, LPDWORD cont
)
501 DEBUG_CurrPid
= de
->dwProcessId
;
502 DEBUG_CurrTid
= de
->dwThreadId
;
508 if ((DEBUG_CurrProcess
= DEBUG_GetProcess(de
->dwProcessId
)) != NULL
)
509 DEBUG_CurrThread
= DEBUG_GetThread(DEBUG_CurrProcess
, de
->dwThreadId
);
511 DEBUG_CurrThread
= NULL
;
513 switch (de
->dwDebugEventCode
) {
514 case EXCEPTION_DEBUG_EVENT
:
515 if (!DEBUG_CurrThread
) {
516 DEBUG_Printf(DBG_CHN_ERR
, "%08lx:%08lx: not a registered process or thread (perhaps a 16 bit one ?)\n",
517 de
->dwProcessId
, de
->dwThreadId
);
521 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: exception code=%08lx\n",
522 de
->dwProcessId
, de
->dwThreadId
,
523 de
->u
.Exception
.ExceptionRecord
.ExceptionCode
);
525 if (DEBUG_CurrProcess
->continue_on_first_exception
) {
526 DEBUG_CurrProcess
->continue_on_first_exception
= FALSE
;
527 if (!DBG_IVAR(BreakOnAttach
)) {
528 *cont
= DBG_CONTINUE
;
533 DEBUG_context
.ContextFlags
= CONTEXT_CONTROL
535 #ifdef CONTEXT_SEGMENTS
538 #ifdef CONTEXT_DEBUG_REGISTERS
539 | CONTEXT_DEBUG_REGISTERS
543 if (!GetThreadContext(DEBUG_CurrThread
->handle
, &DEBUG_context
)) {
544 DEBUG_Printf(DBG_CHN_WARN
, "Can't get thread's context\n");
548 ret
= DEBUG_HandleException(&de
->u
.Exception
.ExceptionRecord
,
549 de
->u
.Exception
.dwFirstChance
,
550 DEBUG_CurrThread
->wait_for_first_exception
,
552 if (DEBUG_CurrThread
) {
553 DEBUG_CurrThread
->wait_for_first_exception
= 0;
554 SetThreadContext(DEBUG_CurrThread
->handle
, &DEBUG_context
);
558 case CREATE_THREAD_DEBUG_EVENT
:
559 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: create thread D @%08lx\n", de
->dwProcessId
, de
->dwThreadId
,
560 (unsigned long)(LPVOID
)de
->u
.CreateThread
.lpStartAddress
);
562 if (DEBUG_CurrProcess
== NULL
) {
563 DEBUG_Printf(DBG_CHN_ERR
, "Unknown process\n");
566 if (DEBUG_GetThread(DEBUG_CurrProcess
, de
->dwThreadId
) != NULL
) {
567 DEBUG_Printf(DBG_CHN_TRACE
, "Thread already listed, skipping\n");
571 DEBUG_CurrThread
= DEBUG_AddThread(DEBUG_CurrProcess
,
573 de
->u
.CreateThread
.hThread
,
574 de
->u
.CreateThread
.lpStartAddress
,
575 de
->u
.CreateThread
.lpThreadLocalBase
);
576 if (!DEBUG_CurrThread
) {
577 DEBUG_Printf(DBG_CHN_ERR
, "Couldn't create thread\n");
580 DEBUG_InitCurrThread();
583 case CREATE_PROCESS_DEBUG_EVENT
:
584 DEBUG_ProcessGetStringIndirect(buffer
, sizeof(buffer
),
585 de
->u
.CreateProcessInfo
.hProcess
,
586 de
->u
.CreateProcessInfo
.lpImageName
);
588 /* FIXME unicode ? de->u.CreateProcessInfo.fUnicode */
589 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: create process %s @%08lx (%ld<%ld>)\n",
590 de
->dwProcessId
, de
->dwThreadId
,
592 (unsigned long)(LPVOID
)de
->u
.CreateProcessInfo
.lpStartAddress
,
593 de
->u
.CreateProcessInfo
.dwDebugInfoFileOffset
,
594 de
->u
.CreateProcessInfo
.nDebugInfoSize
);
596 if ((DEBUG_CurrProcess
= DEBUG_GetProcess(de
->dwProcessId
)) != NULL
) {
597 if (DEBUG_CurrProcess
->handle
) {
598 DEBUG_Printf(DBG_CHN_ERR
, "Skipping already defined process\n");
601 DEBUG_CurrProcess
->handle
= de
->u
.CreateProcessInfo
.hProcess
;
603 DEBUG_CurrProcess
= DEBUG_AddProcess(de
->dwProcessId
,
604 de
->u
.CreateProcessInfo
.hProcess
);
605 if (DEBUG_CurrProcess
== NULL
) {
606 DEBUG_Printf(DBG_CHN_ERR
, "Unknown process\n");
611 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: create thread I @%08lx\n",
612 de
->dwProcessId
, de
->dwThreadId
,
613 (unsigned long)(LPVOID
)de
->u
.CreateProcessInfo
.lpStartAddress
);
615 DEBUG_CurrThread
= DEBUG_AddThread(DEBUG_CurrProcess
,
617 de
->u
.CreateProcessInfo
.hThread
,
618 de
->u
.CreateProcessInfo
.lpStartAddress
,
619 de
->u
.CreateProcessInfo
.lpThreadLocalBase
);
620 if (!DEBUG_CurrThread
) {
621 DEBUG_Printf(DBG_CHN_ERR
, "Couldn't create thread\n");
625 DEBUG_InitCurrProcess();
626 DEBUG_InitCurrThread();
628 DEBUG_ProcessGetStringIndirect(buffer
, sizeof(buffer
),
629 DEBUG_CurrThread
->process
->handle
,
630 de
->u
.CreateProcessInfo
.lpImageName
);
631 DEBUG_LoadModule32(buffer
[0] ? buffer
: "<Debugged process>",
632 de
->u
.CreateProcessInfo
.hFile
,
633 (DWORD
)de
->u
.CreateProcessInfo
.lpBaseOfImage
);
635 if (buffer
[0]) /* we got a process name */
638 if (!GetBinaryTypeA( buffer
, &type
))
640 /* not a Windows binary, assume it's a Unix executable then */
641 DOS_FULL_NAME fullname
;
642 /* HACK!! should fix DEBUG_ReadExecutableDbgInfo to accept DOS filenames */
643 if (DOSFS_GetFullName( buffer
, TRUE
, &fullname
))
645 DEBUG_ReadExecutableDbgInfo( fullname
.long_name
);
650 /* if it is a Windows binary, or an invalid or missing file name,
651 * we use wine itself as the main executable */
652 DEBUG_ReadExecutableDbgInfo( "wine" );
655 case EXIT_THREAD_DEBUG_EVENT
:
656 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: exit thread (%ld)\n",
657 de
->dwProcessId
, de
->dwThreadId
, de
->u
.ExitThread
.dwExitCode
);
659 if (DEBUG_CurrThread
== NULL
) {
660 DEBUG_Printf(DBG_CHN_ERR
, "Unknown thread\n");
663 /* FIXME: remove break point set on thread startup */
664 DEBUG_DelThread(DEBUG_CurrThread
);
667 case EXIT_PROCESS_DEBUG_EVENT
:
668 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: exit process (%ld)\n",
669 de
->dwProcessId
, de
->dwThreadId
, de
->u
.ExitProcess
.dwExitCode
);
671 if (DEBUG_CurrProcess
== NULL
) {
672 DEBUG_Printf(DBG_CHN_ERR
, "Unknown process\n");
676 DEBUG_SetBreakpoints(FALSE
);
677 /* kill last thread */
678 DEBUG_DelThread(DEBUG_CurrProcess
->threads
);
679 DEBUG_DelProcess(DEBUG_CurrProcess
);
681 DEBUG_Printf(DBG_CHN_MESG
, "Process of pid=%08lx has terminated\n", DEBUG_CurrPid
);
684 case LOAD_DLL_DEBUG_EVENT
:
685 if (DEBUG_CurrThread
== NULL
) {
686 DEBUG_Printf(DBG_CHN_ERR
, "Unknown thread\n");
689 DEBUG_ProcessGetStringIndirect(buffer
, sizeof(buffer
),
690 DEBUG_CurrThread
->process
->handle
,
691 de
->u
.LoadDll
.lpImageName
);
693 /* FIXME unicode: de->u.LoadDll.fUnicode */
694 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: loads DLL %s @%08lx (%ld<%ld>)\n",
695 de
->dwProcessId
, de
->dwThreadId
,
696 buffer
, (unsigned long)de
->u
.LoadDll
.lpBaseOfDll
,
697 de
->u
.LoadDll
.dwDebugInfoFileOffset
,
698 de
->u
.LoadDll
.nDebugInfoSize
);
700 DEBUG_LoadModule32(buffer
, de
->u
.LoadDll
.hFile
, (DWORD
)de
->u
.LoadDll
.lpBaseOfDll
);
701 if (DBG_IVAR(BreakOnDllLoad
)) {
702 DEBUG_Printf(DBG_CHN_MESG
, "Stopping on DLL %s loading at %08lx\n",
703 buffer
, (unsigned long)de
->u
.LoadDll
.lpBaseOfDll
);
704 ret
= DEBUG_Parser();
708 case UNLOAD_DLL_DEBUG_EVENT
:
709 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: unload DLL @%08lx\n", de
->dwProcessId
, de
->dwThreadId
,
710 (unsigned long)de
->u
.UnloadDll
.lpBaseOfDll
);
713 case OUTPUT_DEBUG_STRING_EVENT
:
714 if (DEBUG_CurrThread
== NULL
) {
715 DEBUG_Printf(DBG_CHN_ERR
, "Unknown thread\n");
719 DEBUG_ProcessGetString(buffer
, sizeof(buffer
),
720 DEBUG_CurrThread
->process
->handle
,
721 de
->u
.DebugString
.lpDebugStringData
);
723 /* fixme unicode de->u.DebugString.fUnicode ? */
724 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: output debug string (%s)\n",
725 de
->dwProcessId
, de
->dwThreadId
, buffer
);
729 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: rip error=%ld type=%ld\n",
730 de
->dwProcessId
, de
->dwThreadId
, de
->u
.RipInfo
.dwError
,
731 de
->u
.RipInfo
.dwType
);
735 DEBUG_Printf(DBG_CHN_TRACE
, "%08lx:%08lx: unknown event (%ld)\n",
736 de
->dwProcessId
, de
->dwThreadId
, de
->dwDebugEventCode
);
739 } __EXCEPT(wine_dbg
) {
747 static DWORD
DEBUG_MainLoop(void)
753 DEBUG_Printf(DBG_CHN_MESG
, " on pid %lx\n", DEBUG_CurrPid
);
755 for (ret
= TRUE
; ret
; ) {
756 /* wait until we get at least one loaded process */
757 while (!DEBUG_ProcessList
&& (ret
= DEBUG_Parser()));
760 while (ret
&& DEBUG_ProcessList
&& WaitForDebugEvent(&de
, INFINITE
)) {
761 ret
= DEBUG_HandleDebugEvent(&de
, &cont
);
762 ContinueDebugEvent(de
.dwProcessId
, de
.dwThreadId
, cont
);
766 DEBUG_Printf(DBG_CHN_MESG
, "WineDbg terminated on pid %lx\n", DEBUG_CurrPid
);
771 static BOOL
DEBUG_Start(LPSTR cmdLine
)
773 PROCESS_INFORMATION info
;
774 STARTUPINFOA startup
;
776 memset(&startup
, 0, sizeof(startup
));
777 startup
.cb
= sizeof(startup
);
778 startup
.dwFlags
= STARTF_USESHOWWINDOW
;
779 startup
.wShowWindow
= SW_SHOWNORMAL
;
781 if (!CreateProcess(NULL
, cmdLine
, NULL
, NULL
,
782 FALSE
, DEBUG_PROCESS
, NULL
, NULL
, &startup
, &info
)) {
783 DEBUG_Printf(DBG_CHN_MESG
, "Couldn't start process '%s'\n", cmdLine
);
786 DEBUG_CurrPid
= info
.dwProcessId
;
787 if (!(DEBUG_CurrProcess
= DEBUG_AddProcess(DEBUG_CurrPid
, 0))) return FALSE
;
792 void DEBUG_Run(const char* args
)
794 DBG_MODULE
* wmod
= DEBUG_GetProcessMainModule(DEBUG_CurrProcess
);
795 const char* pgm
= (wmod
) ? wmod
->module_name
: "none";
798 DEBUG_Printf(DBG_CHN_MESG
, "Run (%s) with '%s'\n", pgm
, args
);
800 if (!DEBUG_LastCmdLine
) {
801 DEBUG_Printf(DBG_CHN_MESG
, "Cannot find previously used command line.\n");
804 DEBUG_Start(DEBUG_LastCmdLine
);
808 int DEBUG_main(int argc
, char** argv
)
813 /* Initialize the debugger heap. */
814 dbg_heap
= HeapCreate(HEAP_NO_SERIALIZE
, 0x1000, 0x8000000); /* 128MB */
817 /* Initialize the type handling stuff. */
819 DEBUG_InitCVDataTypes();
821 /* Initialize internal vars (types must be initialized before) */
822 if (!DEBUG_IntVarsRW(TRUE
)) return -1;
824 /* keep it as a guiexe for now, so that Wine won't touch the Unix stdin,
825 * stdout and stderr streams
827 if (DBG_IVAR(UseXTerm
)) {
830 /* This is a hack: it forces creation of an xterm, not done by default */
831 pos
.X
= 0; pos
.Y
= 1;
832 SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE
), pos
);
835 DEBUG_Printf(DBG_CHN_MESG
, "Starting WineDbg... ");
841 if ((pid
= atoi(argv
[1])) != 0 && (hEvent
= atoi(argv
[2])) != 0) {
842 BOOL ret
= DEBUG_Attach(pid
, TRUE
);
847 DEBUG_Printf(DBG_CHN_ERR
, "Can't attach process %ld: %ld\n",
848 DEBUG_CurrPid
, GetLastError());
855 if (DEBUG_CurrPid
== 0 && argc
> 1) {
859 if (!(cmdLine
= DBG_alloc(len
= 1))) goto oom_leave
;
862 for (i
= 1; i
< argc
; i
++) {
863 len
+= strlen(argv
[i
]) + 1;
864 if (!(cmdLine
= DBG_realloc(cmdLine
, len
))) goto oom_leave
;
865 strcat(cmdLine
, argv
[i
]);
866 cmdLine
[len
- 2] = ' ';
867 cmdLine
[len
- 1] = '\0';
870 if (!DEBUG_Start(cmdLine
)) {
871 DEBUG_Printf(DBG_CHN_MESG
, "Couldn't start process '%s'\n", cmdLine
);
874 DBG_free(DEBUG_LastCmdLine
);
875 DEBUG_LastCmdLine
= cmdLine
;
878 retv
= DEBUG_MainLoop();
880 /* saves modified variables */
881 DEBUG_IntVarsRW(FALSE
);
886 DEBUG_Printf(DBG_CHN_MESG
, "Out of memory\n");