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 // Type
  18
  19 Type::Type()
  20 {
  21   this->type = 0;
  22   this->id = 0;
  23   this->byte_size = 0;
  24   this->element_count = 0;
  25   this->is_pointer_type = 0;
  26   this->subtype = nullptr;
  27   this->full_type = nullptr;
  28 }
  29
  30 // Type
  31
  32 Variable::Variable()
  33 {
  34   this->dwarf_offset = 0;
  35   this->global = 0;
  36   this->type = nullptr;
  37   this->location_list = {0, nullptr};
  38   this->address = nullptr;
  39   this->start_scope = 0;
  40   this->object_info = nullptr;
  41 }
  42
  43 Variable::~Variable()
  44 {
  45   if (this->location_list.locations)
  46     mc_dwarf_location_list_clear(&this->location_list);
  47 }
  48
  49 // ObjectInformations
  50
  51 dw_frame_t ObjectInformation::find_function(const void *ip) const
  52 {
  53   xbt_dynar_t dynar = this->functions_index;
  54   mc_function_index_item_t base =
  55       (mc_function_index_item_t) xbt_dynar_get_ptr(dynar, 0);
  56   int i = 0;
  57   int j = xbt_dynar_length(dynar) - 1;
  58   while (j >= i) {
  59     int k = i + ((j - i) / 2);
  60     if (ip < base[k].low_pc) {
  61       j = k - 1;
  62     } else if (ip >= base[k].high_pc) {
  63       i = k + 1;
  64     } else {
  65       return base[k].function;
  66     }
  67   }
  68   return nullptr;
  69 }
  70
  71 mc_variable_t ObjectInformation::find_variable(const char* name) const
  72 {
  73   unsigned int cursor = 0;
  74   mc_variable_t variable;
  75   xbt_dynar_foreach(this->global_variables, cursor, variable)
  76     if(variable->name == name)
  77       return variable;
  78   return nullptr;
  79 }
  80
  81 }
  82 }