X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/5b0f10320bc41d518a6a15e71182f2a14bbf03ad..100b1380c49e7e88e1faf2b7314515acf4f635fd:/src/xbt/backtrace_windows.c diff --git a/src/xbt/backtrace_windows.c b/src/xbt/backtrace_windows.c index 4b536e8f86..0ad381d47c 100644 --- a/src/xbt/backtrace_windows.c +++ b/src/xbt/backtrace_windows.c @@ -1,119 +1,146 @@ -/* $Id$ */ - /* backtrace_windows - backtrace displaying on windows platform */ /* This file is included by ex.c on need (windows x86) */ -/* Copyright (c) 2007 The SimGrid team */ -/* All rights reserved. */ +/* Copyright (c) 2008, 2009, 2010. The SimGrid Team. + * All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -/* +/* * Win32 (x86) implementation backtrace, backtrace_symbols: * support for application self-debugging. */ -#include +#if defined(_XBT_BORLAND_COMPILER) || defined(_XBT_VISUALC_COMPILER) +/* native windows build */ +# include +#else +/* gcc-based cross-compiling */ +# include "xbt/wine_dbghelp.h" +#endif -/* Pointer function to SymInitialize() */ -BOOL(WINAPI * fun_initialize) (HANDLE, PSTR, BOOL); +/* SymInitialize() */ +typedef BOOL(WINAPI * fun_initialize_t) (HANDLE, PSTR, BOOL); +static fun_initialize_t fun_initialize; -/* Pointer function to SymCleanup() */ -static BOOL(WINAPI * fun_cleanup) (HANDLE hProcess); +/* SymCleanup() */ +typedef BOOL(WINAPI * fun_cleanup_t) (HANDLE hProcess); +static fun_cleanup_t fun_cleanup; -/* Pointer function to SymFunctionTableAccess() */ -static PVOID(WINAPI * fun_function_table_access) (HANDLE, DWORD); +/* SymFunctionTableAccess() */ +typedef PVOID(WINAPI * fun_function_table_access_t) (HANDLE, DWORD); +static fun_function_table_access_t fun_function_table_access; -/* Pointer function to SymGetLineFromAddr() */ -static BOOL(WINAPI * fun_get_line_from_addr) (HANDLE, DWORD, - PDWORD, - PIMAGEHLP_LINE); +/* SymGetLineFromAddr() */ +typedef BOOL(WINAPI * fun_get_line_from_addr_t) (HANDLE, DWORD, + PDWORD, PIMAGEHLP_LINE); +static fun_get_line_from_addr_t fun_get_line_from_addr; -/* Pointer function to SymGetModuleBase() */ -static DWORD(WINAPI * fun_get_module_base) (HANDLE, DWORD); +/* SymGetModuleBase() */ +typedef DWORD(WINAPI * fun_get_module_base_t) (HANDLE, DWORD); +static fun_get_module_base_t fun_get_module_base; -/* Pointer function to SymGetOptions() */ -static DWORD(WINAPI * fun_get_options) (VOID); +/* SymGetOptions() */ +typedef DWORD(WINAPI * fun_get_options_t) (VOID); +static fun_get_options_t fun_get_options; -/* Pointer function to SymGetSymFromAddr() */ -static BOOL(WINAPI * fun_get_sym_from_addr) (HANDLE, DWORD, PDWORD, - OUT PIMAGEHLP_SYMBOL); +/* SymSetOptions() */ +typedef DWORD(WINAPI * fun_set_options_t) (DWORD); +static fun_set_options_t fun_set_options; -/* Pointer function to SymSetOptions() */ -static DWORD(WINAPI * fun_set_options) (DWORD); +/* Pointer function to SymGetSymFromAddr() */ +typedef BOOL(WINAPI * fun_get_sym_from_addr_t) (HANDLE, DWORD, PDWORD, + OUT PIMAGEHLP_SYMBOL); +static fun_get_sym_from_addr_t fun_get_sym_from_addr; /* Pointer function to StackWalk() */ -static BOOL(WINAPI * xbt_pfn_stack_walk) (DWORD, HANDLE, HANDLE, - LPSTACKFRAME, PVOID, - PREAD_PROCESS_MEMORY_ROUTINE, - PFUNCTION_TABLE_ACCESS_ROUTINE, - PGET_MODULE_BASE_ROUTINE, - PTRANSLATE_ADDRESS_ROUTINE); - -static HINSTANCE instance = NULL; +typedef BOOL(WINAPI * fun_stack_walk_t) (DWORD, HANDLE, HANDLE, + LPSTACKFRAME, PVOID, + PREAD_PROCESS_MEMORY_ROUTINE, + PFUNCTION_TABLE_ACCESS_ROUTINE, + PGET_MODULE_BASE_ROUTINE, + PTRANSLATE_ADDRESS_ROUTINE); +static fun_stack_walk_t fun_stack_walk; + +static HINSTANCE hlp_dbg_instance = NULL; static HANDLE process_handle = NULL; -/* Module creation/destruction: nothing to do on linux */ -void xbt_backtrace_init(void) { +/* Module creation/destruction: initialize our tables */ +void xbt_backtrace_preinit(void) +{ process_handle = GetCurrentProcess(); - if (instance) { + if (hlp_dbg_instance) { /* debug help is already loaded */ return; } /* load the library */ - instance = LoadLibraryA("Dbghelp.dll"); + hlp_dbg_instance = LoadLibraryA("Dbghelp.dll"); - if (!instance) + if (!hlp_dbg_instance) return; - + /* get the pointers to debug help library exported functions */ - fun_initialize = GetProcAddress(instance, "SymInitialize"); - fun_cleanup = GetProcAddress(instance, "SymCleanup"); - fun_function_table_access = GetProcAddress(instance, "SymFunctionTableAccess"); - fun_get_line_from_addr = GetProcAddress(instance, "SymGetLineFromAddr"); - fun_get_module_base = GetProcAddress(instance, "SymGetModuleBase"); - fun_get_options = GetProcAddress(instance, "SymGetOptions"); - fun_get_sym_from_addr = GetProcAddress(instance, "SymGetSymFromAddr"); - fun_set_options = GetProcAddress(instance, "SymSetOptions"); - fun_stack_walk = GetProcAddress(instance, "StackWalk"); + fun_initialize = + (fun_initialize_t) GetProcAddress(hlp_dbg_instance, "SymInitialize"); + fun_cleanup = + (fun_cleanup_t) GetProcAddress(hlp_dbg_instance, "SymCleanup"); + fun_function_table_access = + (fun_function_table_access_t) GetProcAddress(hlp_dbg_instance, + "SymFunctionTableAccess"); + fun_get_line_from_addr = + (fun_get_line_from_addr_t) GetProcAddress(hlp_dbg_instance, + "SymGetLineFromAddr"); + fun_get_module_base = + (fun_get_module_base_t) GetProcAddress(hlp_dbg_instance, + "SymGetModuleBase"); + fun_get_options = + (fun_get_options_t) GetProcAddress(hlp_dbg_instance, + "SymGetOptions"); + fun_get_sym_from_addr = + (fun_get_sym_from_addr_t) GetProcAddress(hlp_dbg_instance, + "SymGetSymFromAddr"); + fun_set_options = + (fun_set_options_t) GetProcAddress(hlp_dbg_instance, + "SymSetOptions"); + fun_stack_walk = + (fun_stack_walk_t) GetProcAddress(hlp_dbg_instance, "StackWalk"); /* Check that everything worked well */ if (!fun_initialize || !fun_cleanup || - !fun_function_table_access || + !fun_function_table_access || !fun_get_line_from_addr || !fun_get_module_base || !fun_get_options || - !fun_get_sym_from_addr || - !fun_set_options || - !fun_stack_walk - ) { - FreeLibrary(instance); - instance = NULL; + !fun_get_sym_from_addr || !fun_set_options || !fun_stack_walk) { + FreeLibrary(hlp_dbg_instance); + hlp_dbg_instance = NULL; return; } - (*fun_set_options) ((*fun_get_options) () | - SYMOPT_LOAD_LINES | SYMOPT_DEFERRED_LOADS); + fun_set_options(fun_get_options() | + SYMOPT_LOAD_LINES | SYMOPT_DEFERRED_LOADS); - if (!(*fun_initialize) (process_handle, 0, 1)) { - FreeLibrary(instance); - instance = NULL; + if (!fun_initialize(process_handle, 0, 1)) { + FreeLibrary(hlp_dbg_instance); + hlp_dbg_instance = NULL; } } -void xbt_backtrace_exit(void) { - if (!instance) + +void xbt_backtrace_postexit(void) +{ + if (!hlp_dbg_instance) return; - if ((*fun_cleanup) (process_handle)) - FreeLibrary(instance); + if (fun_cleanup(process_handle)) + FreeLibrary(hlp_dbg_instance); - instance = NULL; + hlp_dbg_instance = NULL; } /* @@ -141,17 +168,27 @@ int backtrace(void **buffer, int size); */ char **backtrace_symbols(void *const *buffer, int size); +void xbt_backtrace_current(xbt_ex_t * e) +{ + e->used = backtrace((void **) e->bt, XBT_BACKTRACE_SIZE); +} + + void xbt_ex_setup_backtrace(xbt_ex_t * e) { int i; - char **backtrace_syms = backtrace_symbols(e->bt, e->used); + char **backtrace_syms; - e->used = backtrace((void **) e->bt, XBT_BACKTRACE_SIZE); + xbt_assert(e, "Backtrace not setup yet, cannot set it up for display"); + + if (!e->used) + return; + + backtrace_syms = backtrace_symbols(e->bt, e->used); e->bt_strings = NULL; /* parse the output and build a new backtrace */ e->bt_strings = xbt_new(char *, e->used); - for (i = 0; i < e->used; i++) e->bt_strings[i] = backtrace_syms[i]; @@ -167,9 +204,8 @@ int backtrace(void **buffer, int size) IMAGEHLP_SYMBOL *pSym; unsigned long offset = 0; IMAGEHLP_LINE line_info = { 0 }; - byte - __buffer[(sizeof(SYMBOL_INFO) + MAX_SYM_NAME * sizeof(TCHAR) + - sizeof(ULONG64) - 1) / sizeof(ULONG64)]; + byte __buffer[(sizeof(SYMBOL_INFO) + MAX_SYM_NAME * sizeof(TCHAR) + + sizeof(ULONG64) - 1) / sizeof(ULONG64)]; CONTEXT context = { CONTEXT_FULL }; GetThreadContext(GetCurrentThread(), &context); @@ -177,13 +213,12 @@ int backtrace(void **buffer, int size) /* ebp points on stack base */ /* esp points on stack pointer, ie on last stacked element (current element) */ _asm call $ + 5 - _asm pop eax - _asm mov context.Eip, eax - _asm mov eax, esp - _asm mov context.Esp, eax - _asm mov context.Ebp, ebp - - if ((NULL == dbg_hlp) || (size <= 0) || (NULL == buffer)) { + _asm pop eax + _asm mov context.Eip, eax + _asm mov eax, esp + _asm mov context.Esp, eax + _asm mov context.Ebp, ebp + if ((NULL == hlp_dbg_instance) || (size <= 0) || (NULL == buffer)) { errno = EINVAL; return 0; } @@ -215,18 +250,21 @@ int backtrace(void **buffer, int size) stack_frame->AddrStack.Mode = AddrModeFlat; if ((*fun_stack_walk) (IMAGE_FILE_MACHINE_I386, - process_handle, - GetCurrentThread(), - stack_frame, - &context, - NULL, - fun_function_table_access, - fun_get_module_base, NULL) + process_handle, + GetCurrentThread(), + stack_frame, + &context, + NULL, + fun_function_table_access, + fun_get_module_base, NULL) && !first) { if (stack_frame->AddrReturn.Offset) { - if ((*fun_get_sym_from_addr) (process_handle, stack_frame->AddrPC.Offset, &offset, pSym)) { - if ((*fun_get_line_from_addr) (process_handle, stack_frame->AddrPC.Offset, &offset, &line_info)) + if ((*fun_get_sym_from_addr) + (process_handle, stack_frame->AddrPC.Offset, &offset, pSym)) { + if ((*fun_get_line_from_addr) + (process_handle, stack_frame->AddrPC.Offset, &offset, + &line_info)) buffer[pos++] = (void *) stack_frame; } } else { @@ -256,11 +294,10 @@ char **backtrace_symbols(void *const *buffer, int size) unsigned long offset = 0; IMAGEHLP_LINE line_info = { 0 }; IMAGEHLP_MODULE module = { 0 }; - byte - __buffer[(sizeof(SYMBOL_INFO) + MAX_SYM_NAME * sizeof(TCHAR) + - sizeof(ULONG64) - 1) / sizeof(ULONG64)]; + byte __buffer[(sizeof(SYMBOL_INFO) + MAX_SYM_NAME * sizeof(TCHAR) + + sizeof(ULONG64) - 1) / sizeof(ULONG64)]; - if ((NULL == dbg_hlp) || (size <= 0) || (NULL == buffer)) { + if ((NULL == hlp_dbg_instance) || (size <= 0) || (NULL == buffer)) { errno = EINVAL; return NULL; } @@ -281,11 +318,14 @@ char **backtrace_symbols(void *const *buffer, int size) if (NULL != stack_frame) { - if ((*fun_get_sym_from_addr) (process_handle, stack_frame->AddrPC.Offset, &offset, pSym)) { - if ((*fun_get_line_from_addr) (process_handle, stack_frame->AddrPC.Offset, &offset, &line_info)) { + if (fun_get_sym_from_addr + (process_handle, stack_frame->AddrPC.Offset, &offset, pSym)) { + if (fun_get_line_from_addr + (process_handle, stack_frame->AddrPC.Offset, &offset, + &line_info)) { strings[pos] = - bprintf("** In %s() at %s:%d", pSym->Name, line_info.FileName, - line_info.LineNumber); + bprintf("** In %s() at %s:%d", pSym->Name, + line_info.FileName, (int) line_info.LineNumber); } else { strings[pos] = bprintf("** In %s()", pSym->Name); }