X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/2e3c0670f37a0c37487fc75c73956290dc086c50..814f0122ea0074dfb67398a79067c01267bc0b40:/src/mc/mc_object_info.h diff --git a/src/mc/mc_object_info.h b/src/mc/mc_object_info.h index f3b9cd4647..bb5814b375 100644 --- a/src/mc/mc_object_info.h +++ b/src/mc/mc_object_info.h @@ -12,6 +12,7 @@ #define MC_OBJECT_INFO_H #include +#include #include #include @@ -20,6 +21,7 @@ #include "mc_forward.h" #include "mc_location.h" #include "mc_process.h" +#include "../smpi/private.h" SG_BEGIN_DECL(); @@ -51,14 +53,15 @@ void dw_variable_free_voidp(void *t); // ***** Object info -enum mc_object_info_flags { - MC_OBJECT_INFO_NONE = 0, - MC_OBJECT_INFO_EXECUTABLE = 1 -}; +/** Bit field of options */ +typedef int mc_object_info_flags; +#define MC_OBJECT_INFO_NONE 0 +#define MC_OBJECT_INFO_EXECUTABLE 1 struct s_mc_object_info { - enum mc_object_info_flags flags; + mc_object_info_flags flags; char* file_name; + const void* start, *end; char *start_exec, *end_exec; // Executable segment char *start_rw, *end_rw; // Read-write segment char *start_ro, *end_ro; // read-only segment @@ -79,6 +82,12 @@ bool MC_object_info_executable(mc_object_info_t info) return info->flags & MC_OBJECT_INFO_EXECUTABLE; } +static inline __attribute__ ((always_inline)) +bool MC_object_info_is_privatized(mc_object_info_t info) +{ + return info && MC_object_info_executable(info) && smpi_privatize_global_variables; +} + /** Find the DWARF offset for this ELF object * * An offset is applied to address found in DWARF: @@ -99,7 +108,7 @@ mc_object_info_t MC_new_object_info(void); mc_object_info_t MC_find_object_info(memory_map_t maps, const char* name, int executable); void MC_free_object_info(mc_object_info_t* p); -dw_frame_t MC_file_object_info_find_function(mc_object_info_t info, void *ip); +dw_frame_t MC_file_object_info_find_function(mc_object_info_t info, const void *ip); dw_variable_t MC_file_object_info_find_variable_by_name(mc_object_info_t info, const char* name); void MC_post_process_object_info(mc_process_t process, mc_object_info_t info);