[mc] Process nested scopes DWARF informations

[simgrid.git] / src / mc / mc_global.c

diff --git a/src/mc/mc_global.c b/src/mc/mc_global.c
index 0eeddef..c63ea21 100644 (file)
--- a/src/mc/mc_global.c
+++ b/src/mc/mc_global.c
@@ -159,6 +159,7 @@ void mc_frame_free(dw_frame_t frame){
   xbt_free(frame->name);
   mc_dwarf_location_list_clear(&(frame->frame_base));
   xbt_dynar_free(&(frame->variables));
+  xbt_dynar_free(&(frame->scopes));
   xbt_free(frame);
 }
 
@@ -193,7 +194,7 @@ mc_object_info_t MC_new_object_info(void) {
   mc_object_info_t res = xbt_new0(s_mc_object_info_t, 1);
   res->subprograms = xbt_dict_new_homogeneous((void (*)(void*))mc_frame_free);
   res->global_variables = xbt_dynar_new(sizeof(dw_variable_t), dw_variable_free_voidp);
-  res->types = xbt_dict_new_homogeneous(NULL);
+  res->types = xbt_dict_new_homogeneous((void (*)(void*))dw_type_free);
   res->full_types_by_name = xbt_dict_new_homogeneous(NULL);
   return res;
 }