Built a linked list of disassembled instructions.

git-svn-id: svn://svn.gna.org/svn/chrysalide/trunk@186 abbe820e-26c8-41b2-8c08-b7b2b41f8b0a

1 files changed, 88 insertions, 0 deletions

diff --git a/src/arch/instruction.c b/src/arch/instruction.c
index 3bbd15c..b642219 100644
--- a/src/arch/instruction.c
+++ b/src/arch/instruction.c
@@ -89,6 +89,8 @@ static void g_arch_instruction_init(GArchInstruction *instr)
     parent->add_text = (add_text_fc)g_arch_instruction_add_text;
     parent->export_buffer = (export_buffer_fc)g_arch_instruction_to_buffer;
 
+    DL_LIST_ITEM_INIT(&instr->flow);
+
 }
 
 
@@ -459,3 +461,89 @@ bool g_arch_instruction_is_return(const GArchInstruction *instr)
     return instr->is_return(instr);
 
 }
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                      TRAITEMENT DES INSTRUCTIONS PAR ENSEMBLE                      */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : list  = liste d'instructions à compléter, ou NULL.           *
+*                instr = nouvelle instruction à intégrer à l'ensemble.        *
+*                                                                             *
+*  Description : Ajoute une instruction à un ensemble existant.               *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void g_arch_instruction_add_to_list(GArchInstruction **list, GArchInstruction *instr)
+{
+    ainstr_list_add_tail(instr, list);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : list = liste d'instructions à consulter.                     *
+*              : iter = position actuelle dans la liste.                      *
+*                max  = adresse marquant la limite (exclue) du parcours.      *
+*                                                                             *
+*  Description : Fournit l'élement suivant un autre pour un parcours.         *
+*                                                                             *
+*  Retour      : Elément suivant ou NULL si aucun.                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GArchInstruction *g_arch_instruction_get_next_iter(GArchInstruction *list, const GArchInstruction *iter, vmpa_t max)
+{
+    GArchInstruction *result;               /* Elément suivant à renvoyer  */
+
+    result = ainstr_list_next_iter(iter, list);
+
+    if (result != NULL && result->address >= max)
+        result = NULL;
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : list   = liste de lignes à parcourir.                        *
+*                addr   = position en mémoire ou physique à chercher.         *
+*                strict = définit la considération à porter à l'adresse.      *
+*                                                                             *
+*  Description : Recherche une instruction d'après son adresse.               *
+*                                                                             *
+*  Retour      : Instruction trouvée à l'adresse donnée, NULL si aucune.      *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GArchInstruction *g_arch_instruction_find_by_address(GArchInstruction *list, vmpa_t addr, bool strict)
+{
+    GArchInstruction *result;               /* Trouvaille à retourner      */
+
+    ainstr_list_for_each(result, list)
+    {
+        if (strict && result->offset == addr) break;
+
+        else if (!strict && result->offset < addr
+                 && addr < (result->offset + result->length)) break;
+
+    }
+
+    return result;
+
+}