A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[mc] Fix issues with register translation code
[simgrid.git]
/
src
/
mc
/
mc_dwarf.c
diff --git
a/src/mc/mc_dwarf.c
b/src/mc/mc_dwarf.c
index
334e55c
..
cc9a8eb
100644
(file)
--- a/
src/mc/mc_dwarf.c
+++ b/
src/mc/mc_dwarf.c
@@
-1,9
+1,11
@@
-/* Copyright (c) 2008-201
3
. The SimGrid Team.
+/* Copyright (c) 2008-201
4
. The SimGrid Team.
* All rights reserved. */
* 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. */
#include <stdlib.h>
/* 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. */
#include <stdlib.h>
+#define DW_LANG_Objc DW_LANG_ObjC /* fix spelling error in older dwarf.h */
#include <dwarf.h>
#include <elfutils/libdw.h>
#include <inttypes.h>
#include <dwarf.h>
#include <elfutils/libdw.h>
#include <inttypes.h>
@@
-14,10
+16,6
@@
#include "mc_private.h"
#include "mc_private.h"
-// Define symbols not present in old version of dwarf.h.
-// Old version of dwarf.h, use DW_LANG_Objc instead of this:
-#define DW_LANG_ObjC 0x0010
-
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_dwarf, mc, "DWARF processing");
/** \brief The default DW_TAG_lower_bound for a given DW_AT_language.
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_dwarf, mc, "DWARF processing");
/** \brief The default DW_TAG_lower_bound for a given DW_AT_language.
@@
-711,7
+709,7
@@
static dw_variable_t MC_die_to_variable(mc_object_info_t info, Dwarf_Die* die, D
if (dwarf_getlocation(&attr_location, &expr, &len)) {
xbt_die(
"Could not read location expression in DW_AT_location of variable <%"PRIx64">%s",
if (dwarf_getlocation(&attr_location, &expr, &len)) {
xbt_die(
"Could not read location expression in DW_AT_location of variable <%"PRIx64">%s",
- (uint
ptr
_t) variable->dwarf_offset, variable->name);
+ (uint
64
_t) variable->dwarf_offset, variable->name);
}
if (len==1 && expr[0].atom == DW_OP_addr) {
}
if (len==1 && expr[0].atom == DW_OP_addr) {
@@
-732,7
+730,7
@@
static dw_variable_t MC_die_to_variable(mc_object_info_t info, Dwarf_Die* die, D
break;
default:
xbt_die("Unexpected form 0x%x (%i), class 0x%x (%i) list for location in <%"PRIx64">%s",
break;
default:
xbt_die("Unexpected form 0x%x (%i), class 0x%x (%i) list for location in <%"PRIx64">%s",
- form, form, klass, klass, (uint
ptr
_t) variable->dwarf_offset, variable->name);
+ form, form, klass, klass, (uint
64
_t) variable->dwarf_offset, variable->name);
}
// Handle start_scope:
}
// Handle start_scope: