summaryrefslogtreecommitdiff
path: root/src/format/dwarf
diff options
context:
space:
mode:
authorCyrille Bagard <nocbos@gmail.com>2008-08-24 12:44:56 (GMT)
committerCyrille Bagard <nocbos@gmail.com>2008-08-24 12:44:56 (GMT)
commit7af746b641de4a8d6d99ceb2bfd7f77af824bbcf (patch)
tree0cc875d7ec3029667fdd540bc140b932e9a98497 /src/format/dwarf
parentb17cecbb96055914ac3c085030ebd5ff0bc1d370 (diff)
Registered found debug functions and handled the void type.
git-svn-id: svn://svn.gna.org/svn/chrysalide/trunk@20 abbe820e-26c8-41b2-8c08-b7b2b41f8b0a
Diffstat (limited to 'src/format/dwarf')
-rw-r--r--src/format/dwarf/abbrev.c70
-rw-r--r--src/format/dwarf/abbrev.h6
-rw-r--r--src/format/dwarf/dwarf-int.h2
-rw-r--r--src/format/dwarf/info.c510
4 files changed, 269 insertions, 319 deletions
diff --git a/src/format/dwarf/abbrev.c b/src/format/dwarf/abbrev.c
index ba6cfb0..3cb2c4a 100644
--- a/src/format/dwarf/abbrev.c
+++ b/src/format/dwarf/abbrev.c
@@ -305,29 +305,6 @@ const dw_abbrev *_find_dwarf_abbreviations(const dw_abbrev *abbrev, uint8_t *ind
}
-const dw_abbrev *find_dwarf_abbreviations_old(dwarf_format *format, const off_t *offset, uint8_t index)
-{
- const dw_abbrev *result; /* Structure à retourner */
- size_t i; /* Boucle de parcours */
-
- if (index == 0) return NULL;
-
- result = NULL;
-
- for (i = 0; i < format->abbrevs_count; i++)
- if (format->abbrevs[i]->offset == *offset) break;
-
- if (i < format->abbrevs_count)
- {
- index--;
- result = _find_dwarf_abbreviations(format->abbrevs[i], &index);
- }
-
- return result;
-
-}
-
-
/******************************************************************************
* *
* Paramètres : format = informations de débogage à consulter. *
@@ -376,6 +353,34 @@ const dw_abbrev *find_dwarf_abbreviations(dwarf_format *format, const off_t *off
/******************************************************************************
* *
+* Paramètres : abbrev = informations à parcourir. *
+* attrib = attribut visé par la lecture. *
+* *
+* Description : Indique la présence ou l'absence d'un attribut donné. *
+* *
+* Retour : true si l'attribut est présent, false sinon. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+bool test_dwarf_abbrev_attribute(const dw_abbrev *abbrev, DwarfAttrib attrib)
+{
+ bool result; /* Bilan à retourner */
+ size_t i; /* Boucle de parcours */
+
+ result = false;
+
+ for (i = 0; i < abbrev->attribs_count && !result; i++)
+ result = (abbrev->attribs[i].attrib == attrib);
+
+ return result;
+
+}
+
+
+/******************************************************************************
+* *
* Paramètres : format = informations de débogage à compléter. *
* pos = tête de lecture à mettre à jour. [OUT] *
* form = format des données à lire. *
@@ -748,12 +753,31 @@ bool skip_dwarf_abbrev(dwarf_format *format, off_t *pos, const dw_abbrev *abbrev
{
bool result; /* Bilan à revoyer */
size_t i; /* Boucle de parcours */
+ uint64_t index; /* Code de padding */
result = true;
+ /* Ecartement du corps */
+
for (i = 0; i < abbrev->attribs_count && result; i++)
result = _read_dwarf_abbrev_attribute(format, pos, abbrev->attribs[i].form, NULL);
+ /* Ecartement du padding */
+
+ do
+ {
+ if (!read_uleb128(format, pos, &index, false))
+ {
+ printf("error skipping padding...\n");
+ return false;
+ }
+
+ if (index == 0)
+ read_uleb128(format, pos, &index, true);
+
+ }
+ while (index == 0);
+
return result;
}
diff --git a/src/format/dwarf/abbrev.h b/src/format/dwarf/abbrev.h
index cbc394e..6f00608 100644
--- a/src/format/dwarf/abbrev.h
+++ b/src/format/dwarf/abbrev.h
@@ -40,11 +40,11 @@ bool load_dwarf_abbreviations(dwarf_format *);
void unload_dwarf_abbreviations(dwarf_format *);
/* Recherche une abréviation DWARF donnée. */
-const dw_abbrev *find_dwarf_abbreviations_old(dwarf_format *, const off_t *, uint8_t);
-
-/* Recherche une abréviation DWARF donnée. */
const dw_abbrev *find_dwarf_abbreviations(dwarf_format *, const off_t *, off_t *);
+/* Indique la présence ou l'absence d'un attribut donné. */
+bool test_dwarf_abbrev_attribute(const dw_abbrev *, DwarfAttrib);
+
/* Lit la valeur d'un attribut DWARF. */
bool read_dwarf_abbrev_attribute(dwarf_format *, off_t *, bool, const dw_abbrev *, DwarfAttrib, ...);
diff --git a/src/format/dwarf/dwarf-int.h b/src/format/dwarf/dwarf-int.h
index 4863bfe..2b27256 100644
--- a/src/format/dwarf/dwarf-int.h
+++ b/src/format/dwarf/dwarf-int.h
@@ -92,7 +92,7 @@ struct _dwarf_format
dw_abbrev **abbrevs; /* Liste des abréviations */
size_t abbrevs_count; /* Nombre de ces abréviations */
- dw_dbg_function dbg_functions; /* Liste de fonctions trouvées */
+ dw_dbg_function **dbg_functions; /* Liste de fonctions trouvées */
size_t dbg_fc_count; /* Nombre de ces fonctions */
};
diff --git a/src/format/dwarf/info.c b/src/format/dwarf/info.c
index a45b556..75d11b6 100644
--- a/src/format/dwarf/info.c
+++ b/src/format/dwarf/info.c
@@ -46,12 +46,17 @@ typedef struct _compil_unit
+#define _(str) str
+
/* Procède à la lecture d'une unité de compilation. */
bool read_dwarf_compilation_unit(dwarf_format *, off_t *, compil_unit *);
+/* Récupère toutes les déclarations DWARF utiles trouvées. */
+bool parse_dwarf_compilation_unit(dwarf_format *, off_t *, const compil_unit *);
+
/* Enregistre toutes les déclarations de fonction trouvées. */
-bool look_for_dwarf_subprograms(dwarf_format *, off_t *, const compil_unit *);
+dw_dbg_function *look_for_dwarf_subprograms(dwarf_format *, const dw_abbrev *, off_t *, const compil_unit *);
/* Obtient la description humaine d'un type. */
char *resolve_dwarf_function_type(dwarf_format *, const dw_abbrev *, const off_t *, const compil_unit *);
@@ -119,12 +124,16 @@ bool load_dwarf_information(dwarf_format *format)
result = read_dwarf_compilation_unit(format, &offset, &cu);
if (result)
- look_for_dwarf_subprograms(format, &offset, &cu);
-
- //break;
+ parse_dwarf_compilation_unit(format, &offset, &cu);
}
+
+ printf("##############\nRegistered functions:\n");
+
+ for (i = 0; i < format->dbg_fc_count; i++)
+ printf(" > [0x%08llx] %s\n", format->dbg_functions[i]->low_pc, format->dbg_functions[i]->prototype);
+
return result;
}
@@ -166,69 +175,28 @@ void unload_dwarf_information(dwarf_format *format)
bool read_dwarf_compilation_unit(dwarf_format *format, off_t *pos, compil_unit *cu)
{
- bool result; /* Bilan à retourner */
off_t ulength; /* Taille de l'unité */
uint16_t version; /* Version du format DWARF */
- off_t abbrev_pos; /* Position dans les abréviat° */
- uint8_t memsize; /* Taille des adresses mémoire */
-
- off_t oldpos;
-
- uint8_t index;
-
-
-
- result = true;
-
cu->startpos = *pos;
- if (read_unit_length(format, pos, &ulength))
- printf("Unit Length :: %d (0x%x)\n", ulength, ulength);
-
- else printf("error ul\n");
+ if (!read_unit_length(format, pos, &ulength))
+ return false;
cu->endpos = *pos + ulength;
- oldpos = *pos;
-
- if (read_uhalf(format, pos, &version))
- printf("version :: %hd\n", version);
-
- else printf("error version\n");
+ if (!read_uhalf(format, pos, &version))
+ return false;
if (version > 3) return false;
- if (read_abbrev_offset(format, pos, &abbrev_pos))
- printf("abbrev offset :: %d\n", abbrev_pos);
-
- else printf("error abbrev offset\n");
-
- if (read_address_size(format, pos, &memsize))
- printf("mem size :: %hhd\n", memsize);
-
- else printf("error memsize\n");
-
+ if (!read_abbrev_offset(format, pos, &cu->offset))
+ return false;
- cu->offset = abbrev_pos;
- cu->ptrsize = memsize;
+ if (!read_address_size(format, pos, &cu->ptrsize))
+ return false;
-
- printf(" =+> Next :: 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx\n",
- DBG_FORMAT(format)->content[*pos],
- DBG_FORMAT(format)->content[*pos + 1],
- DBG_FORMAT(format)->content[*pos + 2],
- DBG_FORMAT(format)->content[*pos + 3],
- DBG_FORMAT(format)->content[*pos + 4]);
-
-
-
- /*
- *pos = oldpos + ulength;
- */
-
-
- return result;
+ return true;
}
@@ -239,7 +207,7 @@ bool read_dwarf_compilation_unit(dwarf_format *format, off_t *pos, compil_unit *
* pos = tête de lecture à mettre à jour. [OUT] *
* cu = unité de compilation courante. *
* *
-* Description : Enregistre toutes les déclarations de fonction trouvées. *
+* Description : Récupère toutes les déclarations DWARF utiles trouvées. *
* *
* Retour : true en cas de succès de la lecture, false sinon. *
* *
@@ -247,43 +215,17 @@ bool read_dwarf_compilation_unit(dwarf_format *format, off_t *pos, compil_unit *
* *
******************************************************************************/
-bool look_for_dwarf_subprograms(dwarf_format *format, off_t *pos, const compil_unit *cu)
+bool parse_dwarf_compilation_unit(dwarf_format *format, off_t *pos, const compil_unit *cu)
{
bool result; /* Bilan à retourner */
- uint8_t index; /* Indice de l'abbréviation */
-
- result = true;
-
-
- off_t oldpos;
- off_t oldpos2;
-
- const dw_abbrev *abbrev;
- const dw_abbrev *subabbrev;
- const dw_abbrev *subabbrev2;
-
-
- char *name;
- uint64_t low_pc;
- uint64_t high_pc;
-
- uint32_t type_pos;
- char *retstr;
+ const dw_abbrev *abbrev; /* Abréviation rencontrée */
+ dw_dbg_function *function; /* Nouvelle fonction lue */
- uint64_t tempo;
- size_t i; /* Boucle de parcours */
-
- char *prototype = NULL;
- size_t proto_len = 0;
-
-
-
- bool first_arg; /* Marque le 1er argument */
- bool is_pointer; /* Mémorise le type 'pointeur' */
+ result = true;
- while (*pos < cu->endpos)
+ while (*pos < cu->endpos && result)
{
@@ -295,21 +237,12 @@ bool look_for_dwarf_subprograms(dwarf_format *format, off_t *pos, const compil_u
DBG_FORMAT(format)->content[*pos + 4]);
- if (read_address_size/*leb128*/(format, pos, &index))
- printf("abbrev index :: %hhd\n", index);
- else printf("abbrev index error\n");
-
- /* Contraintes d'alignement... */
- if (index == 0) continue;
-
-
- abbrev = find_dwarf_abbreviations_old(format, &cu->offset, index);
-
-
+ abbrev = find_dwarf_abbreviations(format, &cu->offset, pos);
+ if (abbrev == NULL)
+ break;
- //abbrev = find_dwarf_abbreviations(format, &cu->offset, pos);
printf(" --> %p\n", abbrev);
@@ -317,286 +250,280 @@ bool look_for_dwarf_subprograms(dwarf_format *format, off_t *pos, const compil_u
printf(" == 0x%02x (matched ? %d)\n", abbrev->tag, abbrev->tag == DWT_SUBPROGRAM);
- oldpos = *pos;
- if (abbrev->tag == DWT_SUBPROGRAM)
+ switch (abbrev->tag)
{
+ case DWT_SUBPROGRAM:
+ function = look_for_dwarf_subprograms(format, abbrev, pos, cu);
+ if (function != NULL)
+ {
+ format->dbg_functions = (dw_dbg_function **)realloc(format->dbg_functions, ++format->dbg_fc_count * sizeof(dw_dbg_function *));
+ format->dbg_functions[format->dbg_fc_count - 1] = function;
+ }
+ else result = false;
- if (read_dwarf_abbrev_attribute(format, &oldpos, false, abbrev, DWA_NAME, &name))
- printf(" ## Name :: %s\n", name);
- else printf(" error: no name\n");
-
-
- if (read_dwarf_abbrev_attribute(format, &oldpos, false, abbrev, DWA_LOW_PC, &low_pc))
- printf(" ## LOW PC :: 0x%08x\n", low_pc);
- else printf(" error: no low pc\n");
-
-
- if (read_dwarf_abbrev_attribute(format, &oldpos, false, abbrev, DWA_HIGH_PC, &high_pc))
- printf(" ## HIGH PC :: 0x%08x\n", high_pc);
- else printf(" error: no high pc\n");
-
-
-
- /* Type de la fonction */
-
- if (read_dwarf_abbrev_attribute(format, &oldpos, false, abbrev, DWA_TYPE, &type_pos))
- printf(" ## type :: 0x%08x\n", type_pos);
- else printf(" error: no type\n");
-
-
- oldpos = cu->startpos + type_pos;
-
-
-
-
- subabbrev2 = find_dwarf_abbreviations(format, &cu->offset, &oldpos);
-
- retstr = resolve_dwarf_function_type(format, subabbrev2, &oldpos, cu);
-
- if (retstr == NULL)
- {
- proto_len += 3;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, "???");
-
- is_pointer = false;
-
- }
- else
- {
- proto_len += strlen(retstr);
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, retstr);
-
- is_pointer = (retstr[strlen(retstr) - 1] == '*');
-
- free(retstr);
-
- }
-
+ break;
+ default:
+ break;
+ }
- /* On saute l'abréviation de la déclaration de fonction... */
- oldpos = *pos;
- if (!read_uleb128(format, &oldpos, &tempo, true))
- printf("error skipping index\n");
- if (!skip_dwarf_abbrev(format, &oldpos, abbrev))
- printf("error skipping\n");
- do
- {
- if (!read_uleb128(format, &oldpos, &tempo, false))
- printf("error skipping padding...\n");
- if (tempo == 0)
- read_uleb128(format, &oldpos, &tempo, true);
- }
- while (tempo == 0);
- /* Lecture des différents arguments */
- proto_len += (!is_pointer ? 1 : 0) + strlen(name) + 1;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- if (!is_pointer) strcat(prototype, " ");
- strcat(prototype, name);
- strcat(prototype, "(");
- first_arg = true;
-
- while (1)
- {
- subabbrev = find_dwarf_abbreviations(format, &cu->offset, &oldpos);
- printf("subabbrev == %p\n", subabbrev);
-
- switch (subabbrev->tag)
- {
- case DWT_UNSPECIFIED_PARAMETERS:
- /* Virgule de séparation */
- if (first_arg) first_arg = false;
- else
- {
- proto_len += 2;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, ", ");
- }
+ if (!skip_dwarf_abbrev(format, pos, abbrev))
+ printf("error skipping :(\n");
- /* Marque de l'absence de type */
- proto_len += 3;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, "...");
+ }
- break;
- case DWT_FORMAL_PARAMETER:
+ printf(" =+> Next :: 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx\n",
+ DBG_FORMAT(format)->content[*pos],
+ DBG_FORMAT(format)->content[*pos + 1],
+ DBG_FORMAT(format)->content[*pos + 2],
+ DBG_FORMAT(format)->content[*pos + 3],
+ DBG_FORMAT(format)->content[*pos + 4]);
- oldpos2 = oldpos;
+ return result;
+}
- if (read_dwarf_abbrev_attribute(format, &oldpos2, true, subabbrev, DWA_TYPE, &type_pos))
- printf(" ## type :: 0x%08x\n", type_pos);
- else printf(" error: no type\n");
+/******************************************************************************
+* *
+* Paramètres : format = informations de débogage à compléter. *
+* abbrev = abréviation trouvée à traiter. *
+* pos = tête de lecture à mettre à jour. [OUT] *
+* cu = unité de compilation courante. *
+* *
+* Description : Enregistre toutes les déclarations de fonction trouvées. *
+* *
+* Retour : Fonction chargée en mémoire ou NULL en cas d'échec. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
- oldpos2 = cu->startpos + type_pos;
+dw_dbg_function *look_for_dwarf_subprograms(dwarf_format *format, const dw_abbrev *abbrev, off_t *pos, const compil_unit *cu)
+{
+ dw_dbg_function *result; /* Structure à retourner */
+ uint32_t type_pos; /* Décallage p/r au pt courant */
+ off_t subpos; /* Sous-position de lecture #1 */
+ const dw_abbrev *subabbrev; /* Abréviation fille à lire */
+ char *retstr; /* Elément du prototype */
+ char *prototype; /* Stockage temporaire */
+ size_t proto_len; /* Taille du prototype */
+ bool is_pointer; /* Mémorise le type 'pointeur' */
+ uint64_t index; /* Index de la fonction */
+ bool first_arg; /* Marque le 1er argument */
+ off_t subpos2; /* Sous-position de lecture #2 */
+ const dw_abbrev *subabbrev2; /* Abréviation fille à lire #2 */
+ result = (dw_dbg_function *)calloc(1, sizeof(dw_dbg_function));
+ /* Récupération des informations de base */
+ if (!read_dwarf_abbrev_attribute(format, pos, false, abbrev, DWA_NAME, &result->name))
+ goto lfds_error;
- printf(" =+> Next arg :: 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx\n",
- DBG_FORMAT(format)->content[oldpos2],
- DBG_FORMAT(format)->content[oldpos2 + 1],
- DBG_FORMAT(format)->content[oldpos2 + 2],
- DBG_FORMAT(format)->content[oldpos2 + 3],
- DBG_FORMAT(format)->content[oldpos2 + 4]);
+ if (!read_dwarf_abbrev_attribute(format, pos, false, abbrev, DWA_LOW_PC, &result->low_pc))
+ goto lfds_error;
+ if (!read_dwarf_abbrev_attribute(format, pos, false, abbrev, DWA_HIGH_PC, &result->high_pc))
+ goto lfds_error;
+ /* Type de la fonction */
+ if (test_dwarf_abbrev_attribute(abbrev, DWA_TYPE))
+ {
+ if (!read_dwarf_abbrev_attribute(format, pos, false, abbrev, DWA_TYPE, &type_pos))
+ goto lfds_error;
- subabbrev2 = find_dwarf_abbreviations(format, &cu->offset, &oldpos2);
- printf("subabbrev2 == %p\n", subabbrev2);
+ subpos = cu->startpos + type_pos;
+ subabbrev = find_dwarf_abbreviations(format, &cu->offset, &subpos);
+ retstr = resolve_dwarf_function_type(format, subabbrev, &subpos, cu);
+ }
+ else retstr = strdup("void");
- retstr = resolve_dwarf_function_type(format, subabbrev2, &oldpos2, cu);
- printf(" ----) '%s'\n", retstr);
+ if (retstr == NULL)
+ {
+ proto_len = 3;
+ prototype = (char *)calloc(proto_len + 1, sizeof(char));
+ strcat(prototype, "???");
- /* Virgule de séparation */
+ is_pointer = false;
- if (first_arg) first_arg = false;
- else
- {
- proto_len += 2;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, ", ");
- }
+ }
+ else
+ {
+ proto_len = strlen(retstr);
+ prototype = (char *)calloc(proto_len + 1, sizeof(char));
+ strcat(prototype, retstr);
- /* Type de l'argument */
+ is_pointer = (retstr[strlen(retstr) - 1] == '*');
- if (retstr == NULL)
- {
- proto_len += 3;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, "???");
+ free(retstr);
- is_pointer = false;
+ }
- }
- else
- {
- proto_len += strlen(retstr);
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, retstr);
+ /* On saute l'abréviation de la déclaration de fonction... */
- is_pointer = (retstr[strlen(retstr) - 1] == '*');
+ subpos = *pos;
- free(retstr);
+ if (!read_uleb128(format, &subpos, &index, true))
+ goto lfds_error;
- }
+ if (!skip_dwarf_abbrev(format, &subpos, abbrev))
+ goto lfds_error;
+ /* Lecture des différents arguments */
+ proto_len += (!is_pointer ? 1 : 0) + strlen(result->name) + 1;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ if (!is_pointer) strcat(prototype, " ");
+ strcat(prototype, result->name);
+ strcat(prototype, "(");
- oldpos2 = oldpos;
+ first_arg = true;
- if (read_dwarf_abbrev_attribute(format, &oldpos2, true, subabbrev, DWA_NAME, &retstr))
- printf(" ## Name :: %s\n", retstr);
- else printf(" error: no name\n");
+ while (1)
+ {
+ subabbrev = find_dwarf_abbreviations(format, &cu->offset, &subpos);
+ if (subabbrev == NULL) goto exit_loop;
+ switch (subabbrev->tag)
+ {
+ case DWT_UNSPECIFIED_PARAMETERS:
- if (retstr != NULL)
- {
- proto_len += strlen(retstr) + (!is_pointer ? 1 : 0) + 1;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- if (!is_pointer) strcat(prototype, " ");
- strcat(prototype, retstr);
+ /* Virgule de séparation */
- free(retstr);
+ if (first_arg) first_arg = false;
+ else
+ {
+ proto_len += 2;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ strcat(prototype, ", ");
+ }
- }
+ /* Marque de l'absence de type */
+ proto_len += 3;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ strcat(prototype, "...");
+ break;
+ case DWT_FORMAL_PARAMETER:
+ if (!read_dwarf_abbrev_attribute(format, &subpos, false, subabbrev, DWA_TYPE, &type_pos))
+ goto lfds_error;
+ subpos2 = cu->startpos + type_pos;
+ subabbrev2 = find_dwarf_abbreviations(format, &cu->offset, &subpos2);
- break;
+ retstr = resolve_dwarf_function_type(format, subabbrev2, &subpos2, cu);
- default:
- goto exit_loop;
- break;
+ /* Virgule de séparation */
+ if (first_arg) first_arg = false;
+ else
+ {
+ proto_len += 2;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ strcat(prototype, ", ");
}
- if (!skip_dwarf_abbrev(format, &oldpos, subabbrev))
- printf("error skipping\n");
+ /* Type de l'argument */
- /*
- do
+ if (retstr == NULL)
{
- if (!read_uleb128(format, &oldpos, &tempo, false))
- printf("error skipping padding...\n");
+ proto_len += 3;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ strcat(prototype, "???");
- if (tempo == 0)
- read_uleb128(format, &oldpos, &tempo, true);
+ is_pointer = false;
}
- while (tempo == 0);
- */
+ else
+ {
+ proto_len += strlen(retstr);
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ strcat(prototype, retstr);
- }
+ is_pointer = (retstr[strlen(retstr) - 1] == '*');
- exit_loop:
+ free(retstr);
- proto_len += 1;
- prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
- strcat(prototype, ")");
+ }
- printf(" |\n");
- printf(" | %s\n", prototype);
- printf(" |\n");
+ /* Nom de l'argument */
- prototype = NULL;
- proto_len = 0;
+ if (test_dwarf_abbrev_attribute(abbrev, DWA_NAME))
+ {
+ if (!read_dwarf_abbrev_attribute(format, &subpos, false, subabbrev, DWA_NAME, &retstr))
+ goto lfds_error;
+ }
+ else retstr = strdup(_("[no name]"));
+ if (retstr != NULL)
+ {
+ proto_len += strlen(retstr) + (!is_pointer ? 1 : 0) + 1;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ if (!is_pointer) strcat(prototype, " ");
+ strcat(prototype, retstr);
+ free(retstr);
+ }
+ break;
+ default:
+ goto exit_loop;
+ break;
}
+ if (!skip_dwarf_abbrev(format, &subpos, subabbrev))
+ goto lfds_error;
+ }
- if (!skip_dwarf_abbrev(format, pos, abbrev))
- printf("error skipping :(\n");
+ exit_loop:
+ proto_len += 1;
+ prototype = (char *)realloc(prototype, (proto_len + 1) * sizeof(char));
+ strcat(prototype, ")");
- }
+ result->prototype = prototype;
+ return result;
- printf(" =+> Next :: 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx 0x%02hhx\n",
- DBG_FORMAT(format)->content[*pos],
- DBG_FORMAT(format)->content[*pos + 1],
- DBG_FORMAT(format)->content[*pos + 2],
- DBG_FORMAT(format)->content[*pos + 3],
- DBG_FORMAT(format)->content[*pos + 4]);
+ lfds_error:
+ if (result->name != NULL) free(result->name);
+ if (result->prototype != NULL) free(result->prototype);
+ free(result);
- return result;
+ return NULL;
}
@@ -651,20 +578,19 @@ char *resolve_dwarf_function_type(dwarf_format *format, const dw_abbrev *abbrev,
/* 0x0f */
case DWT_POINTER_TYPE:
- if (read_dwarf_abbrev_attribute(format, &oldpos, true, abbrev, DWA_TYPE, &type_pos))
- printf(" ## sub type :: 0x%08x\n", type_pos);
- else printf(" error: no type\n");
-
- oldpos = cu->startpos + type_pos;
-
-
- subabbrev = find_dwarf_abbreviations(format, &cu->offset, &oldpos);
- printf("subabbrev == %p\n", subabbrev);
+ if (test_dwarf_abbrev_attribute(abbrev, DWA_TYPE))
+ {
+ if (!read_dwarf_abbrev_attribute(format, &oldpos, true, abbrev, DWA_TYPE, &type_pos))
+ return NULL;
+ oldpos = cu->startpos + type_pos;
+ subabbrev = find_dwarf_abbreviations(format, &cu->offset, &oldpos);
+ result = resolve_dwarf_function_type(format, subabbrev, &oldpos, cu);
- result = resolve_dwarf_function_type(format, subabbrev, &oldpos, cu);
+ }
+ else result = strdup("void");
if (result != NULL)
{