Restore most features of core instructions.gtk4

1 files changed, 65 insertions, 61 deletions

diff --git a/src/arch/instruction-int.h b/src/arch/instruction-int.h
index 7dbbe27..d426cea 100644
--- a/src/arch/instruction-int.h
+++ b/src/arch/instruction-int.h
@@ -2,7 +2,7 @@
 /* Chrysalide - Outil d'analyse de fichiers binaires
  * instruction-int.h - prototypes pour la définition générique interne des instructions
  *
- * Copyright (C) 2008-2020 Cyrille Bagard
+ * Copyright (C) 2008-2025 Cyrille Bagard
  *
  *  This file is part of Chrysalide.
  *
@@ -25,18 +25,29 @@
 #define _ARCH_INSTRUCTION_INT_H
 
 
+#include <stdint.h>
+
+
 #include "instruction.h"
-#include "../analysis/storage/storage.h"
 #include "../common/array.h"
-#include "../glibext/objhole.h"
+#include "../glibext/objhole-int.h"
 
 
 
 /* Indique l'encodage d'une instruction de façon détaillée. */
-typedef const char * (* get_instruction_encoding_fc) (const GArchInstruction *);
+typedef char * (* get_instruction_encoding_fc) (const GArchInstruction *);
 
 /* Fournit le nom humain de l'instruction manipulée. */
-typedef const char * (* get_instruction_keyword_fc) (GArchInstruction * );
+typedef char * (* get_instruction_keyword_fc) (const GArchInstruction *);
+
+
+
+#if 0
+
+#include "../analysis/storage/storage.h"
+
+
+
 
 /* Complète un désassemblage accompli pour une instruction. */
 typedef void (* call_instruction_hook_fc) (GArchInstruction *, InstrProcessHook, GArchProcessor *, GProcContext *, GExeFormat *);
@@ -67,80 +78,45 @@ typedef bool (* store_instruction_fc) (GArchInstruction *, GObjectStorage *, pac
 
 
 
-/* Informations glissées dans la structure GObject de GArchOperand */
-typedef struct _instr_extra_data_t
-{
-    itid_t uid;                             /* Identifiant unique du type  */
-
-    ArchInstrFlag flags;                    /* Informations complémentaires*/
-
-} instr_extra_data_t;
+#endif
 
-/* Informations glissées dans la structure GObject de GArchInstruction */
-typedef union _instr_obj_extra_t
-{
-    instr_extra_data_t data;                /* Données embarquées          */
-    lockable_obj_extra_t lockable;          /* Gestion d'accès aux fanions */
 
-} instr_obj_extra_t;
+/* Conservation d'une adresse et de propriétées */
+typedef unsigned long compact_ins_link_t;
 
 
 /* Définition générique d'une instruction d'architecture (instance) */
 struct _GArchInstruction
 {
-    GObject parent;                         /* A laisser en premier        */
+    GThickObject parent;                    /* A laisser en premier        */
 
-#if 1 //__SIZEOF_INT__ == __SIZEOF_LONG__
+    GBinaryPortion *rel_area;               /* Zone de référence           */
+    rel_mrange_t rel_range;                 /* Emplacement compressé       */
 
     /**
-     * L'inclusion des informations suivantes dépend de l'architecture.
-     *
-     * Si la structure GObject possède un trou, on remplit de préférence
-     * ce dernier.
+     * A laisser à la suite de la localisation précédente pour éviter
+     * les espaces vide dans la structure.
      */
+    uint16_t link_count;                    /* Quantité de liens établis   */
 
-    instr_obj_extra_t extra;                /* Externalisation embarquée   */
-
-#endif
-
-    mrange_t range;                         /* Emplacement en mémoire      */
+    compact_ins_link_t *links;              /* Liste de ces liens          */
 
     flat_array_t *operands;                 /* Liste des opérandes         */
 
-    /**
-     * Il existe le besoin indéniable d'un verrou pour les accès aux instructions
-     * liées. Il faut par ailleurs un verrou distinct pour les sources et les
-     * destinations car une même instruction peut boucler sur elle même et la
-     * fonction g_arch_instruction_change_link() pose des verrous sur les
-     * deux extrémités.
-     *
-     * La GLib propose les fonctions g_bit_lock() / g_bit_unlock(), légères mais
-     * sans distinction entre lectures et écritures. Tant pis : la réduction de
-     * l'empreinte mémoire prime !
-     *
-     * Par contre la documentation indique :
-     *
-     * """
-     * Attempting to lock on two different bits within the same integer is not supported.
-     * """
-     *
-     * Donc on doit bien conserver un compteur distinct pour chaque extrémité.
-     * Cela correspond de toute façon à la définition optimisée des tableaux
-     * suivante.
-     */
-
-    flat_array_t *from;                     /* Origines des références     */
-    flat_array_t *to;                       /* Instructions visées         */
-
 };
 
 /* Définition générique d'une instruction d'architecture (classe) */
 struct _GArchInstructionClass
 {
-    GObjectClass parent;                    /* A laisser en premier        */
+    GThickObjectClass parent;               /* A laisser en premier        */
 
     get_instruction_encoding_fc get_encoding; /* Obtention de l'encodage   */
     get_instruction_keyword_fc get_keyword; /* Texte humain équivalent     */
+
+#if 0
+
+    //get_instruction_encoding_fc get_encoding; /* Obtention de l'encodage   */
+    //get_instruction_keyword_fc get_keyword; /* Texte humain équivalent     */
     call_instruction_hook_fc call_hook;     /* Décrochages éventuels       */
     build_instruction_tooltip_fc build_tooltip; /* Construction d'une bulle*/
     get_instruction_desc_fc get_desc;       /* Description assez complète  */
@@ -155,22 +131,50 @@ struct _GArchInstructionClass
 
     //get_instruction_rw_regs_fc get_rw_regs; /* Liste des registres liés    */
 
+#endif
+
 };
 
 
+/* Met en place une instruction d'architecture. */
+bool g_arch_instruction_create(GArchInstruction *, itid_t);
+
+
+
 /**
  * Accès aux informations éventuellement déportées.
  */
 
-#if 1 //__SIZEOF_INT__ == __SIZEOF_LONG__
 
-#   define GET_ARCH_INSTR_EXTRA(ins) (instr_extra_data_t *)&ins->extra
+#define ARCH_INSTRUCTION_EXTRA_DATA                         \
+                                                            \
+    unsigned int reserved : GOBJECT_RESERVED_EXTRA_BITS;    \
+                                                            \
+    /**                                                     \
+     * itid_t                                               \
+     */                                                     \
+    unsigned int tid : 16;                                  \
+                                                            \
+    /**                                                     \
+     * ArchOperandFlag                                      \
+     */                                                     \
+    unsigned int flags : 8;
 
-#else
 
-#   define GET_ARCH_INSTR_EXTRA(ins) GET_GOBJECT_EXTRA(G_OBJECT(ins), instr_extra_data_t)
+/* Informations glissées dans la structure GObject de GArchOperand */
+typedef struct _instruction_extra_data_t
+{
+    ARCH_INSTRUCTION_EXTRA_DATA;            /* Socle commun                */
+
+} instruction_extra_data_t;
+
+
+#define GET_ARCH_INSTR_EXTRA(op) \
+    GET_GOBJECT_EXTRA(op, instruction_extra_data_t)
+
+#define SET_ARCH_INSTR_EXTRA(op, data) \
+    SET_GOBJECT_EXTRA(op, instruction_extra_data_t, data)
 
-#endif
 
 
 /**