X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f8cf41c8401043b29a756dc6a3efed702b31433c..100b1380c49e7e88e1faf2b7314515acf4f635fd:/src/xbt/backtrace_windows.c

diff --git a/src/xbt/backtrace_windows.c b/src/xbt/backtrace_windows.c
index 154c31232b..0ad381d47c 100644
--- a/src/xbt/backtrace_windows.c
+++ b/src/xbt/backtrace_windows.c
@@ -1,163 +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 <dbghelp.h>
+#if defined(_XBT_BORLAND_COMPILER) || defined(_XBT_VISUALC_COMPILER)
+/* native windows build */
+#  include <dbghelp.h>
+#else
+/* gcc-based cross-compiling */
+#  include "xbt/wine_dbghelp.h"
+#endif
 
 
-/* Pointer function to SymInitialize() */
-typedef BOOL(WINAPI * xbt_pfn_sym_initialize_t) (HANDLE, PSTR, BOOL);
+/* SymInitialize() */
+typedef BOOL(WINAPI * fun_initialize_t) (HANDLE, PSTR, BOOL);
+static fun_initialize_t fun_initialize;
 
-/* Pointer function to SymCleanup() */
-typedef BOOL(WINAPI * xbt_pfn_sym_cleanup_t) (HANDLE hProcess);
+/* SymCleanup() */
+typedef BOOL(WINAPI * fun_cleanup_t) (HANDLE hProcess);
+static fun_cleanup_t fun_cleanup;
 
-/* Pointer function to SymFunctionTableAccess() */
-typedef PVOID(WINAPI * xbt_pfn_sym_function_table_access_t) (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() */
-typedef BOOL(WINAPI * xbt_pfn_sym_get_line_from_addr_t) (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() */
-typedef DWORD(WINAPI * xbt_pfn_sym_get_module_base_t) (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() */
-typedef DWORD(WINAPI * xbt_pfn_sym_get_options_t) (VOID);
+/* SymGetOptions() */
+typedef DWORD(WINAPI * fun_get_options_t) (VOID);
+static fun_get_options_t fun_get_options;
 
-/* Pointer function to SymGetSymFromAddr() */
-typedef BOOL(WINAPI * xbt_pfn_sym_get_sym_from_addr_t) (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() */
-typedef DWORD(WINAPI * xbt_pfn_sym_set_options_t) (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() */
-typedef BOOL(WINAPI * xbt_pfn_stack_walk_t) (DWORD, HANDLE, HANDLE,
-                                             LPSTACKFRAME, PVOID,
-                                             PREAD_PROCESS_MEMORY_ROUTINE,
-                                             PFUNCTION_TABLE_ACCESS_ROUTINE,
-                                             PGET_MODULE_BASE_ROUTINE,
-                                             PTRANSLATE_ADDRESS_ROUTINE);
-
-/* This structure represents the debug_help library used interface */
-typedef struct s_xbt_debug_help {
-  HINSTANCE instance;
-  HANDLE process_handle;
-  xbt_pfn_sym_initialize_t sym_initialize;
-  xbt_pfn_sym_cleanup_t sym_cleanup;
-  xbt_pfn_sym_function_table_access_t sym_function_table_access;
-  xbt_pfn_sym_get_line_from_addr_t sym_get_line_from_addr;
-  xbt_pfn_sym_get_module_base_t sym_get_module_base;
-  xbt_pfn_sym_get_options_t sym_get_options;
-  xbt_pfn_sym_get_sym_from_addr_t sym_get_sym_from_addr;
-  xbt_pfn_sym_set_options_t sym_set_options;
-  xbt_pfn_stack_walk_t stack_walk;
-} s_xbt_debug_hlp_t, *xbt_debug_hlp_t;
-
-
-/* the address to the unique reference to the debug help library interface */
-static xbt_debug_hlp_t dbg_hlp = NULL;
-
-/* Module creation/destruction: nothing to do on linux */
-void xbt_backtrace_init(void) { 
-  HANDLE process_handle = GetCurrentProcess();
-
-  if (dbg_hlp) {
-    /* debug help is already loaded */
-    return;
-  }
+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;
 
-  /* allocation */
-  dbg_hlp = xbt_new0(s_xbt_debug_hlp_t, 1);
+static HINSTANCE hlp_dbg_instance = NULL;
+static HANDLE process_handle = NULL;
 
-  /* load the library */
-  dbg_hlp->instance = LoadLibraryA("Dbghelp.dll");
 
-  if (!dbg_hlp->instance) {
-    free(dbg_hlp);
-    dbg_hlp = NULL;
+/* Module creation/destruction: initialize our tables */
+void xbt_backtrace_preinit(void)
+{
+  process_handle = GetCurrentProcess();
+
+  if (hlp_dbg_instance) {
+    /* debug help is already loaded */
     return;
   }
- 
-  /* get the pointers to debug help library exported functions */
-  dbg_hlp->sym_initialize =
-    (xbt_pfn_sym_initialize_t) GetProcAddress(dbg_hlp->instance, "SymInitialize");
-
-  dbg_hlp->sym_cleanup = 
-    (xbt_pfn_sym_cleanup_t) GetProcAddress(dbg_hlp->instance, "SymCleanup");
-
-  dbg_hlp->sym_function_table_access =
-    (xbt_pfn_sym_function_table_access_t) GetProcAddress(dbg_hlp->instance, "SymFunctionTableAccess");
 
-  dbg_hlp->sym_get_line_from_addr =
-    (xbt_pfn_sym_get_line_from_addr_t) GetProcAddress(dbg_hlp->instance, "SymGetLineFromAddr");
-
-  dbg_hlp->sym_get_module_base =
-    (xbt_pfn_sym_get_module_base_t) GetProcAddress(dbg_hlp->instance, "SymGetModuleBase");
-
-  dbg_hlp->sym_get_options =
-    (xbt_pfn_sym_get_options_t) GetProcAddress(dbg_hlp->instance, "SymGetOptions");
-
-  dbg_hlp->sym_get_sym_from_addr =
-    (xbt_pfn_sym_get_sym_from_addr_t) GetProcAddress(dbg_hlp->instance, "SymGetSymFromAddr");
+  /* load the library */
+  hlp_dbg_instance = LoadLibraryA("Dbghelp.dll");
 
-  dbg_hlp->sym_set_options =
-    (xbt_pfn_sym_set_options_t) GetProcAddress(dbg_hlp->instance, "SymSetOptions");
+  if (!hlp_dbg_instance)
+    return;
 
-  dbg_hlp->stack_walk =
-    (xbt_pfn_stack_walk_t) GetProcAddress(dbg_hlp->instance, "StackWalk");
+  /* get the pointers to debug help library exported functions */
+  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 (!dbg_hlp->sym_initialize ||
-      !dbg_hlp->sym_cleanup ||
-      !dbg_hlp->sym_function_table_access || 
-      !dbg_hlp->sym_get_line_from_addr ||
-      !dbg_hlp->sym_get_module_base ||
-      !dbg_hlp->sym_get_options ||
-      !dbg_hlp->sym_get_sym_from_addr ||
-      !dbg_hlp->sym_set_options ||
-      !dbg_hlp->stack_walk
-      ) {
-    FreeLibrary(dbg_hlp->instance);
-    free(dbg_hlp);
-    dbg_hlp = NULL;
+  if (!fun_initialize ||
+      !fun_cleanup ||
+      !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(hlp_dbg_instance);
+    hlp_dbg_instance = NULL;
     return;
   }
 
-  dbg_hlp->process_handle = process_handle;
-
-  (*(dbg_hlp->sym_set_options)) ((*(dbg_hlp->sym_get_options)) () |
-                                 SYMOPT_LOAD_LINES | SYMOPT_DEFERRED_LOADS);
+  fun_set_options(fun_get_options() |
+                      SYMOPT_LOAD_LINES | SYMOPT_DEFERRED_LOADS);
 
-  if (!(*(dbg_hlp->sym_initialize)) (dbg_hlp->process_handle, 0, 1)) {
-    FreeLibrary(dbg_hlp->instance);
-    free(dbg_hlp);
-    dbg_hlp = NULL;
+  if (!fun_initialize(process_handle, 0, 1)) {
+    FreeLibrary(hlp_dbg_instance);
+    hlp_dbg_instance = NULL;
   }
 }
-void xbt_backtrace_exit(void) { 
-  if (!dbg_hlp)
-    return;
 
-  if ((dbg_hlp->sym_cleanup) (dbg_hlp->process_handle))
-    FreeLibrary(dbg_hlp->instance);
+void xbt_backtrace_postexit(void)
+{
+  if (!hlp_dbg_instance)
+    return;
 
+  if (fun_cleanup(process_handle))
+    FreeLibrary(hlp_dbg_instance);
 
-  free(dbg_hlp);
-  dbg_hlp = NULL;
+  hlp_dbg_instance = NULL;
 }
 
 /*
@@ -185,21 +168,29 @@ 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] = xbt_strdup(backtrace_syms[i]);
-    free(backtrace_syms[i]);
-  }
+  for (i = 0; i < e->used; i++)
+    e->bt_strings[i] = backtrace_syms[i];
 
   free(backtrace_syms);
 }
@@ -213,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);
@@ -223,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;
   }
@@ -260,22 +249,21 @@ int backtrace(void **buffer, int size)
     stack_frame->AddrStack.Offset = context.Esp;
     stack_frame->AddrStack.Mode = AddrModeFlat;
 
-    if ((*(dbg_hlp->stack_walk)) (IMAGE_FILE_MACHINE_I386,
-                                  dbg_hlp->process_handle,
-                                  GetCurrentThread(),
-                                  stack_frame,
-                                  &context,
-                                  NULL,
-                                  dbg_hlp->sym_function_table_access,
-                                  dbg_hlp->sym_get_module_base, NULL)
+    if ((*fun_stack_walk) (IMAGE_FILE_MACHINE_I386,
+                           process_handle,
+                           GetCurrentThread(),
+                           stack_frame,
+                           &context,
+                           NULL,
+                           fun_function_table_access,
+                           fun_get_module_base, NULL)
         && !first) {
       if (stack_frame->AddrReturn.Offset) {
 
-        if ((*(dbg_hlp->sym_get_sym_from_addr))
-            (dbg_hlp->process_handle, stack_frame->AddrPC.Offset, &offset,
-             pSym)) {
-          if ((*(dbg_hlp->sym_get_line_from_addr))
-              (dbg_hlp->process_handle, stack_frame->AddrPC.Offset, &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))
             buffer[pos++] = (void *) stack_frame;
         }
@@ -306,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;
   }
@@ -331,15 +318,14 @@ char **backtrace_symbols(void *const *buffer, int size)
 
     if (NULL != stack_frame) {
 
-      if ((*(dbg_hlp->sym_get_sym_from_addr))
-          (dbg_hlp->process_handle, stack_frame->AddrPC.Offset, &offset,
-           pSym)) {
-        if ((*(dbg_hlp->sym_get_line_from_addr))
-            (dbg_hlp->process_handle, stack_frame->AddrPC.Offset, &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)) {
           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);
         }