1 /* Copyright (c) 2004-2015. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
11 #include <xbt/asserts.h>
12 #include <xbt/sysdep.h>
14 #include <libunwind.h>
16 #include "src/mc/mc_dwarf.hpp"
17 #include "src/mc/ObjectInformation.hpp"
18 #include "src/mc/LocationList.hpp"
23 /** Resolve a location expression */
25 simgrid::dwarf::DwarfExpression const& expression,
26 simgrid::mc::ObjectInformation* object_info,
28 void *frame_pointer_address,
29 simgrid::mc::AddressSpace* address_space, int process_index)
31 simgrid::dwarf::ExpressionContext context;
32 context.frame_base = frame_pointer_address;
34 context.address_space = address_space;
35 context.object_info = object_info;
36 context.process_index = process_index;
38 if (!expression.empty()
39 && expression[0].atom >= DW_OP_reg0
40 && expression[0].atom <= DW_OP_reg31) {
41 int dwarf_register = expression[0].atom - DW_OP_reg0;
43 "Missing frame context for register operation DW_OP_reg%i",
45 return Location(dwarf_register_to_libunwind(dwarf_register));
48 simgrid::dwarf::ExpressionStack stack;
49 simgrid::dwarf::execute(expression, context, stack);
50 return Location((void*) stack.top());
53 // TODO, move this in a method of LocationList
54 static simgrid::dwarf::DwarfExpression const* find_expression(
55 simgrid::dwarf::LocationList const& locations, unw_word_t ip)
57 for (simgrid::dwarf::LocationListEntry const& entry : locations)
58 if (entry.valid_for_ip(ip))
59 return &entry.expression();
64 simgrid::dwarf::LocationList const& locations,
65 simgrid::mc::ObjectInformation* object_info,
67 void *frame_pointer_address,
68 simgrid::mc::AddressSpace* address_space,
72 if (c && unw_get_reg(c, UNW_REG_IP, &ip))
73 xbt_die("Could not resolve IP");
74 simgrid::dwarf::DwarfExpression const* expression =
75 find_expression(locations, ip);
77 xbt_die("Could not resolve location");
78 return simgrid::dwarf::resolve(
79 *expression, object_info, c,
80 frame_pointer_address, address_space, process_index);
83 LocationList location_list(
84 simgrid::mc::ObjectInformation& info,
85 Dwarf_Attribute& attr)
87 LocationList locations;
88 std::ptrdiff_t offset = 0;
91 Dwarf_Addr base, start, end;
95 offset = dwarf_getlocations(
96 &attr, offset, &base, &start, &end, &ops, &len);
100 else if (offset == -1)
101 xbt_die("Error while loading location list");
103 std::uint64_t base_address = (std::uint64_t) info.base_address();
105 LocationListEntry::range_type range;
107 // If start == 0, this is not a location list:
108 range = { 0, UINT64_MAX };
110 range = { base_address + start, base_address + end };
112 locations.push_back({ DwarfExpression(ops, ops+len), range });
115 return std::move(locations);