+ /* Get node type */
+ node_type = xbt_dynar_get_as(split, xbt_dynar_length(split) - 1, char *);
+
+ if(strcmp(node_type, "(DW_TAG_subprogram)") == 0){ /* New frame */
+
+ dw_frame_t frame = NULL;
+
+ strtok(xbt_dynar_get_as(split, 0, char *), "<");
+ subprogram_start = strdup(strtok(NULL, "<"));
+ xbt_str_rtrim(subprogram_start, ">:");
+
+ read = getline(&line, &n, fp);
+
+ while(read != -1){
+
+ if(n == 0){
+ read = getline(&line, &n, fp);
+ continue;
+ }
+
+ /* Wipeout the new line character */
+ line[read - 1] = '\0';
+
+ if(strlen(line) == 0){
+ read = getline(&line, &n, fp);
+ continue;
+ }
+
+ xbt_dynar_free(&split);
+ xbt_str_rtrim(line, NULL);
+ xbt_str_strip_spaces(line);
+ split = xbt_str_split(line, " ");
+
+ node_type = xbt_dynar_get_as(split, 1, char *);
+
+ if(strncmp(node_type, "DW_AT_", 6) != 0)
+ break;
+
+ if(strcmp(node_type, "DW_AT_sibling") == 0){
+
+ subprogram_end = strdup(xbt_dynar_get_as(split, 3, char*));
+ xbt_str_ltrim(subprogram_end, "<0x");
+ xbt_str_rtrim(subprogram_end, ">");
+
+ }else if(strcmp(node_type, "DW_AT_abstract_origin:") == 0){ /* Frame already in dict */
+
+ new_frame = 0;
+ abstract_origin = strdup(xbt_dynar_get_as(split, 2, char*));
+ xbt_str_ltrim(abstract_origin, "<0x");
+ xbt_str_rtrim(abstract_origin, ">");
+ subprogram_name = (char *)xbt_dict_get_or_null(subprograms_origin, abstract_origin);
+ frame = xbt_dict_get_or_null(*all_variables, subprogram_name);
+
+ }else if(strcmp(node_type, "DW_AT_name") == 0){
+
+ new_frame = 1;
+ free(current_frame);
+ frame = xbt_new0(s_dw_frame_t, 1);
+ frame->name = strdup(xbt_dynar_get_as(split, xbt_dynar_length(split) - 1, char *));
+ frame->variables = xbt_dict_new_homogeneous(NULL);
+ frame->frame_base = xbt_new0(s_dw_location_t, 1);
+ current_frame = strdup(frame->name);
+
+ xbt_dict_set(subprograms_origin, subprogram_start, frame->name, NULL);
+
+ }else if(strcmp(node_type, "DW_AT_frame_base") == 0){
+
+ location_type = xbt_dynar_get_as(split, xbt_dynar_length(split) - 1, char *);
+
+ if(strcmp(location_type, "list)") == 0){ /* Search location in location list */
+
+ frame->frame_base = get_location(location_list, xbt_dynar_get_as(split, 3, char *));
+
+ }else{
+
+ xbt_str_strip_spaces(line);
+ split2 = xbt_str_split(line, "(");
+ xbt_dynar_remove_at(split2, 0, NULL);
+ loc_expr = xbt_str_join(split2, " ");
+ xbt_str_rtrim(loc_expr, ")");
+ frame->frame_base = get_location(NULL, loc_expr);
+ xbt_dynar_free(&split2);
+
+ }
+
+ }else if(strcmp(node_type, "DW_AT_low_pc") == 0){
+
+ if(frame != NULL)
+ frame->low_pc = (void *)strtoul(xbt_dynar_get_as(split, 3, char *), NULL, 16);
+
+ }else if(strcmp(node_type, "DW_AT_high_pc") == 0){
+
+ if(frame != NULL)
+ frame->high_pc = (void *)strtoul(xbt_dynar_get_as(split, 3, char *), NULL, 16);
+
+ }else if(strcmp(node_type, "DW_AT_MIPS_linkage_name:") == 0){
+
+ free(frame->name);
+ free(current_frame);
+ frame->name = strdup(xbt_dynar_get_as(split, xbt_dynar_length(split) - 1, char *));
+ current_frame = strdup(frame->name);
+ xbt_dict_set(subprograms_origin, subprogram_start, frame->name, NULL);
+
+ }
+
+ read = getline(&line, &n, fp);
+
+ }
+
+ if(new_frame == 1){
+ frame->start = strtoul(subprogram_start, NULL, 16);
+ if(subprogram_end != NULL)
+ frame->end = strtoul(subprogram_end, NULL, 16);
+ xbt_dict_set(*all_variables, frame->name, frame, NULL);
+ }
+
+ free(subprogram_start);
+ if(subprogram_end != NULL){
+ free(subprogram_end);
+ subprogram_end = NULL;
+ }
+
+
+ }else if(strcmp(node_type, "(DW_TAG_variable)") == 0){ /* New variable */
+
+ dw_local_variable_t var = NULL;
+
+ strtok(xbt_dynar_get_as(split, 0, char *), "<");
+ origin = strdup(strtok(NULL, "<"));
+ xbt_str_rtrim(origin, ">:");
+
+ read = getline(&line, &n, fp);
+
+ while(read != -1){
+
+ if(n == 0){
+ read = getline(&line, &n, fp);
+ continue;
+ }
+
+ /* Wipeout the new line character */
+ line[read - 1] = '\0';
+
+ if(strlen(line) == 0){
+ read = getline(&line, &n, fp);
+ continue;
+ }
+
+ xbt_dynar_free(&split);
+ xbt_str_rtrim(line, NULL);
+ xbt_str_strip_spaces(line);
+ split = xbt_str_split(line, " ");
+
+ node_type = xbt_dynar_get_as(split, 1, char *);
+
+ if(strncmp(node_type, "DW_AT_", 6) != 0)
+ break;
+
+ if(strcmp(node_type, "DW_AT_name") == 0){
+
+ new_variable = 1;
+ var = xbt_new0(s_dw_local_variable_t, 1);
+ var->name = strdup(xbt_dynar_get_as(split, xbt_dynar_length(split) - 1, char *));
+
+ xbt_dict_set(variables_origin, origin, var->name, NULL);
+
+ }else if(strcmp(node_type, "DW_AT_abstract_origin:") == 0){
+
+ new_variable = 0;
+ abstract_origin = xbt_dynar_get_as(split, 2, char *);
+ xbt_str_ltrim(abstract_origin, "<0x");
+ xbt_str_rtrim(abstract_origin, ">");
+
+ variable_name = (char *)xbt_dict_get_or_null(variables_origin, abstract_origin);
+ variable_frame = get_frame_by_offset(*all_variables, strtoul(abstract_origin, NULL, 16));
+ var = xbt_dict_get_or_null(variable_frame->variables, variable_name);
+
+ }else if(strcmp(node_type, "DW_AT_location") == 0){
+
+ if(valid_variable == 1 && var != NULL){
+
+ var->location = xbt_new0(s_dw_location_t, 1);
+
+ location_type = xbt_dynar_get_as(split, xbt_dynar_length(split) - 1, char *);
+
+ if(strcmp(location_type, "list)") == 0){ /* Search location in location list */
+
+ var->location = get_location(location_list, xbt_dynar_get_as(split, 3, char *));
+
+ }else{
+
+ xbt_str_strip_spaces(line);
+ split2 = xbt_str_split(line, "(");
+ xbt_dynar_remove_at(split2, 0, NULL);
+ loc_expr = xbt_str_join(split2, " ");
+ xbt_str_rtrim(loc_expr, ")");
+ var->location = get_location(NULL, loc_expr);
+ xbt_dynar_free(&split2);
+
+ }
+
+ }
+
+ }else if(strcmp(node_type, "DW_AT_external") == 0){
+
+ valid_variable = 0;
+
+ }
+
+ read = getline(&line, &n, fp);
+
+ }
+
+ if(new_variable == 1 && valid_variable == 1){
+
+ variable_frame = xbt_dict_get_or_null(*all_variables, current_frame);
+ xbt_dict_set(variable_frame->variables, var->name, var, NULL);
+ }
+
+ valid_variable = 1;
+ new_variable = 0;
+
+ }else if(strcmp(node_type, "(DW_TAG_inlined_subroutine)") == 0){
+
+ strtok(xbt_dynar_get_as(split, 0, char *), "<");
+ origin = strdup(strtok(NULL, "<"));
+ xbt_str_rtrim(origin, ">:");
+
+ read = getline(&line, &n, fp);
+
+ while(read != -1){
+
+ /* Wipeout the new line character */
+ line[read - 1] = '\0';
+
+ if(n == 0){
+ read = getline(&line, &n, fp);
+ continue;
+ }
+
+ if(strlen(line) == 0){
+ read = getline(&line, &n, fp);
+ continue;
+ }
+
+ xbt_dynar_free(&split);
+ xbt_str_rtrim(line, NULL);
+ xbt_str_strip_spaces(line);
+ split = xbt_str_split(line, " ");
+
+ if(strncmp(xbt_dynar_get_as(split, 1, char *), "DW_AT_", 6) != 0)
+ break;
+
+ node_type = xbt_dynar_get_as(split, 1, char *);
+
+ if(strcmp(node_type, "DW_AT_abstract_origin:") == 0){
+
+ origin = xbt_dynar_get_as(split, 2, char *);
+ xbt_str_ltrim(origin, "<0x");
+ xbt_str_rtrim(origin, ">");
+
+ subprogram_name = (char *)xbt_dict_get_or_null(subprograms_origin, origin);
+ subroutine_frame = xbt_dict_get_or_null(*all_variables, subprogram_name);
+
+ }else if(strcmp(node_type, "DW_AT_low_pc") == 0){
+
+ subroutine_frame->low_pc = (void *)strtoul(xbt_dynar_get_as(split, 3, char *), NULL, 16);
+
+ }else if(strcmp(node_type, "DW_AT_high_pc") == 0){
+
+ subroutine_frame->high_pc = (void *)strtoul(xbt_dynar_get_as(split, 3, char *), NULL, 16);
+ }
+
+ read = getline(&line, &n, fp);
+
+ }
+
+ }else{