Provided some debug helpers as plugin samples.

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

6 files changed, 7 insertions, 53 deletions

diff --git a/src/analysis/block-int.h b/src/analysis/block-int.h
index 249aa57..419a8b0 100644
--- a/src/analysis/block-int.h
+++ b/src/analysis/block-int.h
@@ -32,7 +32,7 @@
 /* Recherche le bloc contenant une adresse donnée. */
 typedef GInstrBlock * (* find_by_addr_fc) (const GInstrBlock *, vmpa_t, bool);
 
-/* Parcours tous les blocs d'instructions dans un ordre donné. */
+/* Parcourt tous les blocs d'instructions dans un ordre donné. */
 typedef bool (* visit_all_blocks_fc) (GInstrBlock *, instr_block_visitor_cb, void *);
 
 /* Etablit la liste de tous les blocs présents. */
diff --git a/src/analysis/block.c b/src/analysis/block.c
index d6f3df3..50d5644 100644
--- a/src/analysis/block.c
+++ b/src/analysis/block.c
@@ -164,7 +164,7 @@ GInstrBlock *g_instr_block_find_by_addr(const GInstrBlock *block, vmpa_t addr, b
 *                callback = ensemble de blocs à parcourir.                    *
 *                data     = donnée utilisateur à associer au parcours.        *
 *                                                                             *
-*  Description : Parcours tous les blocs d'instructions dans un ordre donné.  *
+*  Description : Parcourt tous les blocs d'instructions dans un ordre donné.  *
 *                                                                             *
 *  Retour      : true si le parcours a été jusqu'à son terme, false sinon.    *
 *                                                                             *
diff --git a/src/analysis/block.h b/src/analysis/block.h
index 223649f..7786ce5 100644
--- a/src/analysis/block.h
+++ b/src/analysis/block.h
@@ -68,7 +68,7 @@ GType g_instr_block_get_type(void);
 /* Recherche le bloc contenant une adresse donnée. */
 GInstrBlock *g_instr_block_find_by_addr(const GInstrBlock *, vmpa_t, bool);
 
-/* Parcours tous les blocs d'instructions dans un ordre donné. */
+/* Parcourt tous les blocs d'instructions dans un ordre donné. */
 bool g_instr_block_visit(GInstrBlock *, instr_block_visitor_cb, void *);
 
 /* Etablit la liste de tous les blocs présents. */
diff --git a/src/analysis/blocks/flow.c b/src/analysis/blocks/flow.c
index 6f56f9d..49b9c6b 100644
--- a/src/analysis/blocks/flow.c
+++ b/src/analysis/blocks/flow.c
@@ -68,7 +68,7 @@ static void g_flow_block_finalize(GFlowBlock *);
 /* Recherche le bloc contenant une adresse donnée. */
 static GInstrBlock *g_flow_block_find_by_addr(const GFlowBlock *, vmpa_t, bool);
 
-/* Parcours le bloc d'instructions dans un ordre donné. */
+/* Parcourt le bloc d'instructions dans un ordre donné. */
 static bool g_flow_block_visit(GFlowBlock *, instr_block_visitor_cb, void *);
 
 /* Etablit la liste de tous les blocs présents. */
@@ -275,7 +275,7 @@ static GInstrBlock *g_flow_block_find_by_addr(const GFlowBlock *block, vmpa_t ad
 *                callback = ensemble de blocs à parcourir.                    *
 *                data     = donnée utilisateur à associer au parcours.        *
 *                                                                             *
-*  Description : Parcours le bloc d'instructions dans un ordre donné.         *
+*  Description : Parcourt le bloc d'instructions dans un ordre donné.         *
 *                                                                             *
 *  Retour      : true si le parcours a été jusqu'à son terme, false sinon.    *
 *                                                                             *
diff --git a/src/analysis/blocks/virtual.c b/src/analysis/blocks/virtual.c
index 584e57d..42492e9 100644
--- a/src/analysis/blocks/virtual.c
+++ b/src/analysis/blocks/virtual.c
@@ -73,7 +73,7 @@ static void g_virtual_block_finalize(GVirtualBlock *);
 /* Recherche le bloc contenant une adresse donnée. */
 static GInstrBlock *g_virtual_block_find_by_addr(const GVirtualBlock *, vmpa_t, bool);
 
-/* Parcours le bloc d'instructions dans un ordre donné. */
+/* Parcourt le bloc d'instructions dans un ordre donné. */
 static bool g_virtual_block_visit(GVirtualBlock *, instr_block_visitor_cb, void *);
 
 /* Etablit la liste de tous les blocs présents. */
@@ -252,7 +252,7 @@ static GInstrBlock *g_virtual_block_find_by_addr(const GVirtualBlock *block, vmp
 *                callback = ensemble de blocs à parcourir.                    *
 *                data     = donnée utilisateur à associer au parcours.        *
 *                                                                             *
-*  Description : Parcours le bloc d'instructions dans un ordre donné.         *
+*  Description : Parcourt le bloc d'instructions dans un ordre donné.         *
 *                                                                             *
 *  Retour      : true si le parcours a été jusqu'à son terme, false sinon.    *
 *                                                                             *
diff --git a/src/analysis/disass/macro.c b/src/analysis/disass/macro.c
index 60d99da..0fef9a0 100644
--- a/src/analysis/disass/macro.c
+++ b/src/analysis/disass/macro.c
@@ -587,45 +587,6 @@ static GInstrBlock *build_instruction_block(GArchInstruction *instrs, vmpa_t sta
 }
 
 
-static bool print_blocks(GInstrBlock *blk, BlockVisitOrder order, int *pad)
-{
-    int i;
-    vmpa_t start, end;
-    GInstrBlock *links;
-
-    if (order != BVO_OUT)
-        for (i = 0; i < *pad; i++)
-            printf("   ");
-
-    if (G_IS_FLOW_BLOCK(blk))
-    {
-        g_flow_block_get_boundary_addresses(G_FLOW_BLOCK(blk), &start, &end);
-        links = g_instr_block_get_links_block(blk);
-
-        if (links != NULL)
-            printf(" - flow %p : 0x%08lx -> 0x%08lx (links = %p)\n", blk, start, end, links);
-        else
-            printf(" - flow %p : 0x%08lx -> 0x%08lx\n", blk, start, end);
-
-    }
-    else
-    {
-        if (order != BVO_OUT)
-        {
-            printf(" - virtual %p\n", blk);
-            *pad += 1;
-        }
-        else *pad -= 1;
-
-    }
-
-    fflush(NULL);
-
-    return true;
-
-}
-
-
 /******************************************************************************
 *                                                                             *
 *  Paramètres  : list      = ensemble d'instructions à relier.                *
@@ -654,16 +615,9 @@ void group_routines_instructions(GArchInstruction *list, GBinRoutine **routines,
         start = g_binary_routine_get_address(routines[i]);
         end = start + g_binary_routine_get_size(routines[i]);
 
-
-        //printf("==== %s ====\n", g_binary_routine_to_string(routines[i]));
-
-
         block = build_instruction_block(list, start, end, VMPA_MAX);
         g_binary_routine_set_basic_blocks(routines[i], block);
 
-
-        //g_instr_block_visit(block, (instr_block_visitor_cb)print_blocks, (int []){ 0 });
-
         gtk_extended_status_bar_update_activity(statusbar, id, (i + 1) * 1.0 / count);
 
     }