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->file_name = nullptr;
  74   this->start = nullptr;
  75   this->end = nullptr;
  76   this->start_exec = nullptr;
  77   this->end_exec = nullptr;
  78   this->start_rw = nullptr;
  79   this->end_rw = nullptr;
  80   this->start_ro = nullptr;
  81   this->end_ro = nullptr;
  82   this->functions_index = nullptr;
  83 }
  84
  85 ObjectInformation::~ObjectInformation()
  86 {
  87   xbt_free(this->file_name);
  88   xbt_dynar_free(&this->functions_index);
  89 }
  90
  91 /** Find the DWARF offset for this ELF object
  92  *
  93  *  An offset is applied to address found in DWARF:
  94  *
  95  *  <ul>
  96  *    <li>for an executable obejct, addresses are virtual address
  97  *        (there is no offset) i.e. \f$\text{virtual address} = \{dwarf address}\f$;</li>
  98  *    <li>for a shared object, the addreses are offset from the begining
  99  *        of the shared object (the base address of the mapped shared
 100  *        object must be used as offset
 101  *        i.e. \f$\text{virtual address} = \text{shared object base address}
 102  *             + \text{dwarf address}\f$.</li>
 103  *
 104  */
 105 void *ObjectInformation::base_address() const
 106 {
 107   if (this->executable())
 108     return nullptr;
 109
 110   void *result = this->start_exec;
 111   if (this->start_rw != NULL && result > (void *) this->start_rw)
 112     result = this->start_rw;
 113   if (this->start_ro != NULL && result > (void *) this->start_ro)
 114     result = this->start_ro;
 115   return result;
 116 }
 117
 118 mc_frame_t ObjectInformation::find_function(const void *ip) const
 119 {
 120   xbt_dynar_t dynar = this->functions_index;
 121   mc_function_index_item_t base =
 122       (mc_function_index_item_t) xbt_dynar_get_ptr(dynar, 0);
 123   int i = 0;
 124   int j = xbt_dynar_length(dynar) - 1;
 125   while (j >= i) {
 126     int k = i + ((j - i) / 2);
 127     if (ip < base[k].low_pc) {
 128       j = k - 1;
 129     } else if (ip >= base[k].high_pc) {
 130       i = k + 1;
 131     } else {
 132       return base[k].function;
 133     }
 134   }
 135   return nullptr;
 136 }
 137
 138 simgrid::mc::Variable* ObjectInformation::find_variable(const char* name) const
 139 {
 140   for (simgrid::mc::Variable& variable : this->global_variables)
 141     if(variable.name == name)
 142       return &variable;
 143   return nullptr;
 144 }
 145
 146 }
 147 }