src/mc/mc_object_info.cpp

   1 /* Copyright (c) 2014-2015. The SimGrid Team.
   2  * All rights reserved.                                                     */
   3
   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. */
   6
   7 #include <stddef.h>
   8
   9 #include <xbt/dynar.h>
  10
  11 #include "mc_object_info.h"
  12 #include "mc_private.h"
  13
  14 namespace simgrid {
  15 namespace mc {
  16
  17 // Free functions
  18
  19 static void mc_frame_free(void* frame)
  20 {
  21   delete (simgrid::mc::Frame*)frame;
  22 }
  23
  24 static void mc_type_free(void* t)
  25 {
  26   delete (simgrid::mc::Type*)t;
  27 }
  28
  29 // Type
  30
  31 Type::Type()
  32 {
  33   this->type = 0;
  34   this->id = 0;
  35   this->byte_size = 0;
  36   this->element_count = 0;
  37   this->is_pointer_type = 0;
  38   this->type_id = 0;
  39   this->subtype = nullptr;
  40   this->full_type = nullptr;
  41 }
  42
  43 // Type
  44
  45 Variable::Variable()
  46 {
  47   this->dwarf_offset = 0;
  48   this->global = 0;
  49   this->type = nullptr;
  50   this->type_id = 0;
  51   this->address = nullptr;
  52   this->start_scope = 0;
  53   this->object_info = nullptr;
  54 }
  55
  56 // Frame
  57
  58 Frame::Frame()
  59 {
  60   this->tag = 0;
  61   this->low_pc = nullptr;
  62   this->high_pc = nullptr;
  63   this->id = 0;
  64   this->abstract_origin_id = 0;
  65   this->object_info = nullptr;
  66 }
  67
  68 // ObjectInformations
  69
  70 ObjectInformation::ObjectInformation()
  71 {
  72   this->flags = 0;
  73   this->start = nullptr;
  74   this->end = nullptr;
  75   this->start_exec = nullptr;
  76   this->end_exec = nullptr;
  77   this->start_rw = nullptr;
  78   this->end_rw = nullptr;
  79   this->start_ro = nullptr;
  80   this->end_ro = nullptr;
  81   this->functions_index = nullptr;
  82 }
  83
  84 ObjectInformation::~ObjectInformation()
  85 {
  86   xbt_dynar_free(&this->functions_index);
  87 }
  88
  89 /** Find the DWARF offset for this ELF object
  90  *
  91  *  An offset is applied to address found in DWARF:
  92  *
  93  *  <ul>
  94  *    <li>for an executable obejct, addresses are virtual address
  95  *        (there is no offset) i.e. \f$\text{virtual address} = \{dwarf address}\f$;</li>
  96  *    <li>for a shared object, the addreses are offset from the begining
  97  *        of the shared object (the base address of the mapped shared
  98  *        object must be used as offset
  99  *        i.e. \f$\text{virtual address} = \text{shared object base address}
 100  *             + \text{dwarf address}\f$.</li>
 101  *
 102  */
 103 void *ObjectInformation::base_address() const
 104 {
 105   if (this->executable())
 106     return nullptr;
 107
 108   void *result = this->start_exec;
 109   if (this->start_rw != NULL && result > (void *) this->start_rw)
 110     result = this->start_rw;
 111   if (this->start_ro != NULL && result > (void *) this->start_ro)
 112     result = this->start_ro;
 113   return result;
 114 }
 115
 116 mc_frame_t ObjectInformation::find_function(const void *ip) const
 117 {
 118   xbt_dynar_t dynar = this->functions_index;
 119   mc_function_index_item_t base =
 120       (mc_function_index_item_t) xbt_dynar_get_ptr(dynar, 0);
 121   int i = 0;
 122   int j = xbt_dynar_length(dynar) - 1;
 123   while (j >= i) {
 124     int k = i + ((j - i) / 2);
 125     if (ip < base[k].low_pc) {
 126       j = k - 1;
 127     } else if (ip >= base[k].high_pc) {
 128       i = k + 1;
 129     } else {
 130       return base[k].function;
 131     }
 132   }
 133   return nullptr;
 134 }
 135
 136 simgrid::mc::Variable* ObjectInformation::find_variable(const char* name) const
 137 {
 138   for (simgrid::mc::Variable& variable : this->global_variables)
 139     if(variable.name == name)
 140       return &variable;
 141   return nullptr;
 142 }
 143
 144 }
 145 }