vbscript: Added support for title and type arguments of MsgBox.
[wine.git] / programs / winedbg / tgt_minidump.c
blobe3a823aeb2d7a11f31ebba1d2500e2dbd94a2d75
1 /*
2 * Wine debugger - minidump handling
4 * Copyright 2005 Eric Pouech
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #define NONAMELESSUNION
22 #define NONAMELESSSTRUCT
24 #include "config.h"
25 #include "wine/port.h"
27 #include <stdlib.h>
28 #include <stdio.h>
29 #include <string.h>
30 #include <stdarg.h>
32 #include "debugger.h"
33 #include "wingdi.h"
34 #include "winuser.h"
35 #include "tlhelp32.h"
36 #include "wine/debug.h"
37 #include "wine/exception.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(winedbg);
41 static struct be_process_io be_process_minidump_io;
43 /* we need this function on 32bit hosts to ensure we zero out the higher DWORD
44 * stored in the minidump file (sometimes it's not cleared, or the conversion from
45 * 32bit to 64bit wide integers is done as signed, which is wrong)
46 * So we clamp on 32bit CPUs (as stored in minidump information) all addresses to
47 * keep only the lower 32 bits.
48 * FIXME: as of today, since we don't support a backend CPU which is different from
49 * CPU this process is running on, casting to (DWORD_PTR) will do just fine.
51 static inline DWORD64 get_addr64(DWORD64 addr)
53 return (DWORD_PTR)addr;
56 void minidump_write(const char* file, const EXCEPTION_RECORD* rec)
58 HANDLE hFile;
59 MINIDUMP_EXCEPTION_INFORMATION mei;
60 EXCEPTION_POINTERS ep;
62 hFile = CreateFileA(file, GENERIC_READ|GENERIC_WRITE, 0, NULL, CREATE_ALWAYS,
63 FILE_ATTRIBUTE_NORMAL, NULL);
65 if (hFile == INVALID_HANDLE_VALUE) return;
67 if (rec)
69 mei.ThreadId = dbg_curr_thread->tid;
70 mei.ExceptionPointers = &ep;
71 ep.ExceptionRecord = (EXCEPTION_RECORD*)rec;
72 ep.ContextRecord = &dbg_context;
73 mei.ClientPointers = FALSE;
75 MiniDumpWriteDump(dbg_curr_process->handle, dbg_curr_process->pid,
76 hFile, MiniDumpNormal/*|MiniDumpWithDataSegs*/,
77 rec ? &mei : NULL, NULL, NULL);
78 CloseHandle(hFile);
81 #define Wine_ElfModuleListStream 0xFFF0
83 struct tgt_process_minidump_data
85 void* mapping;
86 HANDLE hFile;
87 HANDLE hMap;
90 static inline struct tgt_process_minidump_data* private_data(struct dbg_process* pcs)
92 return pcs->pio_data;
95 static BOOL tgt_process_minidump_read(HANDLE hProcess, const void* addr,
96 void* buffer, SIZE_T len, SIZE_T* rlen)
98 void* stream;
100 if (!private_data(dbg_curr_process)->mapping) return FALSE;
101 if (MiniDumpReadDumpStream(private_data(dbg_curr_process)->mapping,
102 MemoryListStream, NULL, &stream, NULL))
104 MINIDUMP_MEMORY_LIST* mml = stream;
105 MINIDUMP_MEMORY_DESCRIPTOR* mmd = mml->MemoryRanges;
106 int i, found = -1;
107 SIZE_T ilen, prev_len = 0;
109 /* There's no reason that memory ranges inside a minidump do not overlap.
110 * So be smart when looking for a given memory range (either grab a
111 * range that covers the whole requested area, or if none, the range that
112 * has the largest overlap with requested area)
114 for (i = 0; i < mml->NumberOfMemoryRanges; i++, mmd++)
116 if (get_addr64(mmd->StartOfMemoryRange) <= (DWORD_PTR)addr &&
117 (DWORD_PTR)addr < get_addr64(mmd->StartOfMemoryRange) + mmd->Memory.DataSize)
119 ilen = min(len,
120 get_addr64(mmd->StartOfMemoryRange) + mmd->Memory.DataSize - (DWORD_PTR)addr);
121 if (ilen == len) /* whole range is matched */
123 found = i;
124 prev_len = ilen;
125 break;
127 if (found == -1 || ilen > prev_len) /* partial match, keep largest one */
129 found = i;
130 prev_len = ilen;
134 if (found != -1)
136 mmd = &mml->MemoryRanges[found];
137 memcpy(buffer,
138 (char*)private_data(dbg_curr_process)->mapping + mmd->Memory.Rva + (DWORD_PTR)addr - get_addr64(mmd->StartOfMemoryRange),
139 prev_len);
140 if (rlen) *rlen = prev_len;
141 return TRUE;
144 /* FIXME: this is a dirty hack to let the last frame in a bt to work
145 * However, we need to check who's to blame, this code or the current
146 * dbghelp!StackWalk implementation
148 if ((DWORD_PTR)addr < 32)
150 memset(buffer, 0, len);
151 if (rlen) *rlen = len;
152 return TRUE;
154 return FALSE;
157 static BOOL tgt_process_minidump_write(HANDLE hProcess, void* addr,
158 const void* buffer, SIZE_T len, SIZE_T* wlen)
160 return FALSE;
163 static BOOL CALLBACK validate_file(PCWSTR name, void* user)
165 return FALSE; /* get the first file we find !! */
168 static BOOL is_pe_module_embedded(struct tgt_process_minidump_data* data,
169 MINIDUMP_MODULE* pe_mm)
171 MINIDUMP_MODULE_LIST* mml;
173 if (MiniDumpReadDumpStream(data->mapping, Wine_ElfModuleListStream, NULL,
174 (void**)&mml, NULL))
176 MINIDUMP_MODULE* mm;
177 unsigned i;
179 for (i = 0, mm = mml->Modules; i < mml->NumberOfModules; i++, mm++)
181 if (get_addr64(mm->BaseOfImage) <= get_addr64(pe_mm->BaseOfImage) &&
182 get_addr64(mm->BaseOfImage) + mm->SizeOfImage >= get_addr64(pe_mm->BaseOfImage) + pe_mm->SizeOfImage)
183 return TRUE;
186 return FALSE;
189 static enum dbg_start minidump_do_reload(struct tgt_process_minidump_data* data)
191 void* stream;
192 DWORD pid = 1; /* by default */
193 HANDLE hProc = (HANDLE)0x900DBAAD;
194 int i;
195 MINIDUMP_MODULE_LIST* mml;
196 MINIDUMP_MODULE* mm;
197 MINIDUMP_STRING* mds;
198 MINIDUMP_DIRECTORY* dir;
199 WCHAR exec_name[1024];
200 WCHAR nameW[1024];
201 unsigned len;
202 static const WCHAR default_exec_name[] = {'<','m','i','n','i','d','u','m','p','-','e','x','e','c','>',0};
204 /* fetch PID */
205 if (MiniDumpReadDumpStream(data->mapping, MiscInfoStream, NULL, &stream, NULL))
207 MINIDUMP_MISC_INFO* mmi = stream;
208 if (mmi->Flags1 & MINIDUMP_MISC1_PROCESS_ID)
209 pid = mmi->ProcessId;
212 /* fetch executable name (it's normally the first one in module list) */
213 lstrcpyW(exec_name, default_exec_name);
214 if (MiniDumpReadDumpStream(data->mapping, ModuleListStream, NULL, &stream, NULL))
216 mml = stream;
217 if (mml->NumberOfModules)
219 WCHAR* ptr;
221 mm = mml->Modules;
222 mds = (MINIDUMP_STRING*)((char*)data->mapping + mm->ModuleNameRva);
223 len = mds->Length / 2;
224 memcpy(exec_name, mds->Buffer, mds->Length);
225 exec_name[len] = 0;
226 for (ptr = exec_name + len - 1; ptr >= exec_name; ptr--)
228 if (*ptr == '/' || *ptr == '\\')
230 memmove(exec_name, ptr + 1, (lstrlenW(ptr + 1) + 1) * sizeof(WCHAR));
231 break;
237 if (MiniDumpReadDumpStream(data->mapping, SystemInfoStream, &dir, &stream, NULL))
239 MINIDUMP_SYSTEM_INFO* msi = stream;
240 const char *str;
241 char tmp[128];
243 dbg_printf("WineDbg starting on minidump on pid %04x\n", pid);
244 switch (msi->ProcessorArchitecture)
246 case PROCESSOR_ARCHITECTURE_UNKNOWN:
247 str = "Unknown";
248 break;
249 case PROCESSOR_ARCHITECTURE_INTEL:
250 strcpy(tmp, "Intel ");
251 switch (msi->ProcessorLevel)
253 case 3: str = "80386"; break;
254 case 4: str = "80486"; break;
255 case 5: str = "Pentium"; break;
256 case 6: str = "Pentium Pro/II or AMD Athlon"; break;
257 case 15: str = "Pentium 4 or AMD Athlon64"; break;
258 default: str = "???"; break;
260 strcat(tmp, str);
261 if (msi->ProcessorLevel == 3 || msi->ProcessorLevel == 4)
263 if (HIBYTE(msi->ProcessorRevision) == 0xFF)
264 sprintf(tmp + strlen(tmp), " (%c%d)",
265 'A' + ((msi->ProcessorRevision>>4)&0xf)-0x0a,
266 ((msi->ProcessorRevision&0xf)));
267 else
268 sprintf(tmp + strlen(tmp), " (%c%d)",
269 'A' + HIBYTE(msi->ProcessorRevision),
270 LOBYTE(msi->ProcessorRevision));
272 else sprintf(tmp + strlen(tmp), " (%d.%d)",
273 HIBYTE(msi->ProcessorRevision),
274 LOBYTE(msi->ProcessorRevision));
275 str = tmp;
276 break;
277 case PROCESSOR_ARCHITECTURE_MIPS:
278 str = "Mips";
279 break;
280 case PROCESSOR_ARCHITECTURE_ALPHA:
281 str = "Alpha";
282 break;
283 case PROCESSOR_ARCHITECTURE_PPC:
284 str = "PowerPC";
285 break;
286 case PROCESSOR_ARCHITECTURE_AMD64:
287 str = "X86_64";
288 break;
289 case PROCESSOR_ARCHITECTURE_ARM:
290 str = "ARM";
291 break;
292 case PROCESSOR_ARCHITECTURE_MSIL:
293 str = "MSIL";
294 break;
295 case PROCESSOR_ARCHITECTURE_NEUTRAL:
296 str = "Neutral";
297 break;
298 default:
299 str = "???";
300 break;
302 dbg_printf(" %s was running on #%d %s CPU%s",
303 dbg_W2A(exec_name, -1), msi->u.s.NumberOfProcessors, str,
304 msi->u.s.NumberOfProcessors < 2 ? "" : "s");
305 switch (msi->MajorVersion)
307 case 3:
308 switch (msi->MinorVersion)
310 case 51: str = "NT 3.51"; break;
311 default: str = "3-????"; break;
313 break;
314 case 4:
315 switch (msi->MinorVersion)
317 case 0: str = (msi->PlatformId == VER_PLATFORM_WIN32_NT) ? "NT 4.0" : "95"; break;
318 case 10: str = "98"; break;
319 case 90: str = "ME"; break;
320 default: str = "4-????"; break;
322 break;
323 case 5:
324 switch (msi->MinorVersion)
326 case 0: str = "2000"; break;
327 case 1: str = "XP"; break;
328 case 2:
329 if (msi->u.s.ProductType == 1) str = "XP";
330 else if (msi->u.s.ProductType == 3) str = "Server 2003";
331 else str = "5-????";
332 break;
333 default: str = "5-????"; break;
335 break;
336 case 6:
337 switch (msi->MinorVersion)
339 case 0:
340 if (msi->u.s.ProductType == 1) str = "Vista";
341 else if (msi->u.s.ProductType == 3) str = "Server 2008";
342 else str = "6-????";
343 break;
344 case 1:
345 if (msi->u.s.ProductType == 1) str = "Win7";
346 else if (msi->u.s.ProductType == 3) str = "Server 2008";
347 else str = "6-????";
348 break;
349 case 2: str = "Win8"; break;
350 default: str = "6-????"; break;
352 break;
353 default: str = "???"; break;
355 dbg_printf(" on Windows %s (%u)\n", str, msi->BuildNumber);
356 /* FIXME CSD: msi->CSDVersionRva */
358 if (sizeof(MINIDUMP_SYSTEM_INFO) + 4 > dir->Location.DataSize &&
359 msi->CSDVersionRva >= dir->Location.Rva + sizeof(MINIDUMP_SYSTEM_INFO) + 4)
361 const char* code = (const char*)stream + sizeof(MINIDUMP_SYSTEM_INFO);
362 const DWORD* wes;
364 if (code[0] == 'W' && code[1] == 'I' && code[2] == 'N' && code[3] == 'E' &&
365 *(wes = (const DWORD*)(code += 4)) >= 3)
367 /* assume we have wine extensions */
368 dbg_printf(" [on %s, on top of %s (%s)]\n",
369 code + wes[1], code + wes[2], code + wes[3]);
374 dbg_curr_process = dbg_add_process(&be_process_minidump_io, pid, hProc);
375 dbg_curr_pid = pid;
376 dbg_curr_process->pio_data = data;
377 dbg_set_process_name(dbg_curr_process, exec_name);
379 dbg_init(hProc, NULL, FALSE);
381 if (MiniDumpReadDumpStream(data->mapping, ThreadListStream, NULL, &stream, NULL))
383 MINIDUMP_THREAD_LIST* mtl = stream;
384 ULONG i;
386 for (i = 0; i < mtl->NumberOfThreads; i++)
388 dbg_add_thread(dbg_curr_process, mtl->Threads[i].ThreadId, NULL,
389 (void*)(DWORD_PTR)get_addr64(mtl->Threads[i].Teb));
392 /* first load ELF modules, then do the PE ones */
393 if (MiniDumpReadDumpStream(data->mapping, Wine_ElfModuleListStream, NULL,
394 &stream, NULL))
396 WCHAR buffer[MAX_PATH];
398 mml = stream;
399 for (i = 0, mm = mml->Modules; i < mml->NumberOfModules; i++, mm++)
401 mds = (MINIDUMP_STRING*)((char*)data->mapping + mm->ModuleNameRva);
402 memcpy(nameW, mds->Buffer, mds->Length);
403 nameW[mds->Length / sizeof(WCHAR)] = 0;
404 if (SymFindFileInPathW(hProc, NULL, nameW, (void*)(DWORD_PTR)mm->CheckSum,
405 0, 0, SSRVOPT_DWORD, buffer, validate_file, NULL))
406 dbg_load_module(hProc, NULL, buffer, get_addr64(mm->BaseOfImage),
407 mm->SizeOfImage);
408 else
409 SymLoadModuleExW(hProc, NULL, nameW, NULL, get_addr64(mm->BaseOfImage),
410 mm->SizeOfImage, NULL, SLMFLAG_VIRTUAL);
413 if (MiniDumpReadDumpStream(data->mapping, ModuleListStream, NULL, &stream, NULL))
415 WCHAR buffer[MAX_PATH];
417 mml = stream;
418 for (i = 0, mm = mml->Modules; i < mml->NumberOfModules; i++, mm++)
420 mds = (MINIDUMP_STRING*)((char*)data->mapping + mm->ModuleNameRva);
421 memcpy(nameW, mds->Buffer, mds->Length);
422 nameW[mds->Length / sizeof(WCHAR)] = 0;
423 if (SymFindFileInPathW(hProc, NULL, nameW, (void*)(DWORD_PTR)mm->TimeDateStamp,
424 mm->SizeOfImage, 0, SSRVOPT_DWORD, buffer, validate_file, NULL))
425 dbg_load_module(hProc, NULL, buffer, get_addr64(mm->BaseOfImage),
426 mm->SizeOfImage);
427 else if (is_pe_module_embedded(data, mm))
428 dbg_load_module(hProc, NULL, nameW, get_addr64(mm->BaseOfImage),
429 mm->SizeOfImage);
430 else
431 SymLoadModuleExW(hProc, NULL, nameW, NULL, get_addr64(mm->BaseOfImage),
432 mm->SizeOfImage, NULL, SLMFLAG_VIRTUAL);
435 if (MiniDumpReadDumpStream(data->mapping, ExceptionStream, NULL, &stream, NULL))
437 MINIDUMP_EXCEPTION_STREAM* mes = stream;
439 if ((dbg_curr_thread = dbg_get_thread(dbg_curr_process, mes->ThreadId)))
441 ADDRESS64 addr;
443 dbg_curr_tid = mes->ThreadId;
444 dbg_curr_thread->in_exception = TRUE;
445 dbg_curr_thread->excpt_record.ExceptionCode = mes->ExceptionRecord.ExceptionCode;
446 dbg_curr_thread->excpt_record.ExceptionFlags = mes->ExceptionRecord.ExceptionFlags;
447 dbg_curr_thread->excpt_record.ExceptionRecord = (void*)(DWORD_PTR)get_addr64(mes->ExceptionRecord.ExceptionRecord);
448 dbg_curr_thread->excpt_record.ExceptionAddress = (void*)(DWORD_PTR)get_addr64(mes->ExceptionRecord.ExceptionAddress);
449 dbg_curr_thread->excpt_record.NumberParameters = mes->ExceptionRecord.NumberParameters;
450 for (i = 0; i < dbg_curr_thread->excpt_record.NumberParameters; i++)
452 dbg_curr_thread->excpt_record.ExceptionInformation[i] = mes->ExceptionRecord.ExceptionInformation[i];
454 memcpy(&dbg_context, (char*)data->mapping + mes->ThreadContext.Rva,
455 min(sizeof(dbg_context), mes->ThreadContext.DataSize));
456 memory_get_current_pc(&addr);
457 stack_fetch_frames(&dbg_context);
458 be_cpu->print_context(dbg_curr_thread->handle, &dbg_context, 0);
459 stack_info(-1);
460 be_cpu->print_segment_info(dbg_curr_thread->handle, &dbg_context);
461 stack_backtrace(mes->ThreadId);
462 source_list_from_addr(&addr, 0);
465 return start_ok;
468 static void cleanup(struct tgt_process_minidump_data* data)
470 if (data->mapping) UnmapViewOfFile(data->mapping);
471 if (data->hMap) CloseHandle(data->hMap);
472 if (data->hFile != INVALID_HANDLE_VALUE) CloseHandle(data->hFile);
473 HeapFree(GetProcessHeap(), 0, data);
476 static struct be_process_io be_process_minidump_io;
478 enum dbg_start minidump_reload(int argc, char* argv[])
480 struct tgt_process_minidump_data* data;
481 enum dbg_start ret = start_error_parse;
483 /* try the form <myself> minidump-file */
484 if (argc != 1) return start_error_parse;
486 WINE_TRACE("Processing Minidump file %s\n", argv[0]);
488 data = HeapAlloc(GetProcessHeap(), 0, sizeof(struct tgt_process_minidump_data));
489 if (!data) return start_error_init;
490 data->mapping = NULL;
491 data->hMap = NULL;
492 data->hFile = INVALID_HANDLE_VALUE;
494 if ((data->hFile = CreateFileA(argv[0], GENERIC_READ, FILE_SHARE_READ, NULL,
495 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL)) != INVALID_HANDLE_VALUE &&
496 ((data->hMap = CreateFileMappingA(data->hFile, NULL, PAGE_READONLY, 0, 0, NULL)) != 0) &&
497 ((data->mapping = MapViewOfFile(data->hMap, FILE_MAP_READ, 0, 0, 0)) != NULL))
499 __TRY
501 if (((MINIDUMP_HEADER*)data->mapping)->Signature == MINIDUMP_SIGNATURE)
503 ret = minidump_do_reload(data);
506 __EXCEPT_PAGE_FAULT
508 dbg_printf("Unexpected fault while reading minidump %s\n", argv[0]);
509 dbg_curr_pid = 0;
511 __ENDTRY;
513 if (ret != start_ok) cleanup(data);
514 return ret;
517 static BOOL tgt_process_minidump_close_process(struct dbg_process* pcs, BOOL kill)
519 struct tgt_process_minidump_data* data = private_data(pcs);
521 cleanup(data);
522 pcs->pio_data = NULL;
523 SymCleanup(pcs->handle);
524 dbg_del_process(pcs);
525 return TRUE;
528 static BOOL tgt_process_minidump_get_selector(HANDLE hThread, DWORD sel, LDT_ENTRY* le)
530 /* so far, pretend all selectors are valid, and mapped to a 32bit flat address space */
531 memset(le, 0, sizeof(*le));
532 le->HighWord.Bits.Default_Big = 1;
533 return TRUE;
536 static struct be_process_io be_process_minidump_io =
538 tgt_process_minidump_close_process,
539 tgt_process_minidump_read,
540 tgt_process_minidump_write,
541 tgt_process_minidump_get_selector,