Prepare a new way to store objects.

9 files changed, 1 insertions, 1760 deletions

diff --git a/src/analysis/storage/Makefile.am b/src/analysis/storage/Makefile.am
index 3eb287b..dad7411 100644
--- a/src/analysis/storage/Makefile.am
+++ b/src/analysis/storage/Makefile.am
@@ -6,12 +6,7 @@ libanalysisstorage_la_SOURCES =				\
 	cache-int.h								\
 	cache.h cache.c							\
 	container-int.h							\
-	container.h container.c					\
-	serialize-int.h							\
-	serialize.h serialize.c					\
-	storage-int.h							\
-	storage.h storage.c						\
-	tpmem.h tpmem.c
+	container.h container.c
 
 libanalysisstorage_la_CFLAGS = $(TOOLKIT_CFLAGS) $(LIBXML_CFLAGS)
 
diff --git a/src/analysis/storage/serialize-int.h b/src/analysis/storage/serialize-int.h
deleted file mode 100644
index de8d3e3..0000000
--- a/src/analysis/storage/serialize-int.h
+++ /dev/null
@@ -1,58 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * serialize-int.h - définitions internes propres aux objets entreposables dans un cache
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#ifndef _ANALYSIS_STORAGE_SERIALIZE_INT_H
-#define _ANALYSIS_STORAGE_SERIALIZE_INT_H
-
-
-#include "serialize.h"
-
-
-#include "storage.h"
-
-
-
-/* Charge un objet depuis une mémoire tampon. */
-typedef bool (* load_serializable_object_cb) (GSerializableObject *, GObjectStorage *, packed_buffer_t *);
-
-/* Sauvegarde un objet dans une mémoire tampon. */
-typedef bool (* store_serializable_object_cb) (const GSerializableObject *, GObjectStorage *, packed_buffer_t *);
-
-
-/* Intermédiaire pour la mise en cache d'objet (interface) */
-struct _GSerializableObjectIface
-{
-    GTypeInterface base_iface;              /* A laisser en premier        */
-
-    load_serializable_object_cb load;       /* Chargement                  */
-    store_serializable_object_cb store;     /* Enregistrement              */
-
-};
-
-
-/* Redéfinition */
-typedef GSerializableObjectIface GSerializableObjectInterface;
-
-
-
-#endif  /* _ANALYSIS_STORAGE_SERIALIZE_INT_H */
diff --git a/src/analysis/storage/serialize.c b/src/analysis/storage/serialize.c
deleted file mode 100644
index d1b0502..0000000
--- a/src/analysis/storage/serialize.c
+++ /dev/null
@@ -1,111 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * serialize.h - objets entreposables dans un cache
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#include "serialize.h"
-
-
-#include "serialize-int.h"
-
-
-
-/* Procède à l'initialisation de l'interface de mise en cache. */
-static void g_serializable_object_default_init(GSerializableObjectInterface *);
-
-
-
-/* Détermine le type d'une interface pour la mise en cache d'objet. */
-G_DEFINE_INTERFACE(GSerializableObject, g_serializable_object, G_TYPE_OBJECT)
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : iface = interface GLib à initialiser.                        *
-*                                                                             *
-*  Description : Procède à l'initialisation de l'interface de mise en cache.  *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_serializable_object_default_init(GSerializableObjectInterface *iface)
-{
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : object  = élément GLib à constuire.                          *
-*                storage = conservateur de données à manipuler ou NULL.       *
-*                pbuf    = zone tampon à lire.                                *
-*                                                                             *
-*  Description : Charge un objet depuis une mémoire tampon.                   *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_serializable_object_load(GSerializableObject *object, GObjectStorage *storage, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    GSerializableObjectIface *iface;        /* Interface utilisée          */
-
-    iface = G_SERIALIZABLE_OBJECT_GET_IFACE(object);
-
-    result = iface->load(object, storage, pbuf);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : object  = élément GLib à consulter.                          *
-*                storage = conservateur de données à manipuler ou NULL.       *
-*                pbuf    = zone tampon à remplir.                             *
-*                                                                             *
-*  Description : Sauvegarde un objet dans une mémoire tampon.                 *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_serializable_object_store(const GSerializableObject *object, GObjectStorage *storage, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    GSerializableObjectIface *iface;        /* Interface utilisée          */
-
-    iface = G_SERIALIZABLE_OBJECT_GET_IFACE(object);
-
-    result = iface->store(object, storage, pbuf);
-
-    return result;
-
-}
diff --git a/src/analysis/storage/serialize.h b/src/analysis/storage/serialize.h
deleted file mode 100644
index 93a4496..0000000
--- a/src/analysis/storage/serialize.h
+++ /dev/null
@@ -1,64 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * serialize.h - prototypes pour les objets entreposables dans un cache
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#ifndef _ANALYSIS_STORAGE_SERIALIZE_H
-#define _ANALYSIS_STORAGE_SERIALIZE_H
-
-
-#include <glib-object.h>
-
-
-#include "../../common/packed.h"
-
-
-
-#define G_TYPE_SERIALIZABLE_OBJECT             g_serializable_object_get_type()
-#define G_SERIALIZABLE_OBJECT(obj)             (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_SERIALIZABLE_OBJECT, GSerializableObject))
-#define G_SERIALIZABLE_OBJECT_CLASS(vtable)    (G_TYPE_CHECK_CLASS_CAST((vtable), G_TYPE_SERIALIZABLE_OBJECT, GSerializableObjectIface))
-#define G_IS_SERIALIZABLE_OBJECT(obj)          (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_SERIALIZABLE_OBJECT))
-#define G_IS_SERIALIZABLE_OBJECT_CLASS(vtable) (G_TYPE_CHECK_CLASS_TYPE((vtable), G_TYPE_SERIALIZABLE_OBJECT))
-#define G_SERIALIZABLE_OBJECT_GET_IFACE(inst)  (G_TYPE_INSTANCE_GET_INTERFACE((inst), G_TYPE_SERIALIZABLE_OBJECT, GSerializableObjectIface))
-
-
-/* Intermédiaire pour la mise en cache d'objet (coquille vide) */
-typedef struct _GSerializableObject GSerializableObject;
-
-/* Intermédiaire pour la mise en cache d'objet (interface) */
-typedef struct _GSerializableObjectIface GSerializableObjectIface;
-
-
-/* Détermine le type d'une interface pour la mise en cache d'objet. */
-GType g_serializable_object_get_type(void) G_GNUC_CONST;
-
-/* storage.h : définition d'une conservation d'objets construits */
-typedef struct _GObjectStorage GObjectStorage;
-
-/* Charge un objet depuis une mémoire tampon. */
-bool g_serializable_object_load(GSerializableObject *, GObjectStorage *, packed_buffer_t *);
-
-/* Sauvegarde un objet dans une mémoire tampon. */
-bool g_serializable_object_store(const GSerializableObject *, GObjectStorage *, packed_buffer_t *);
-
-
-
-#endif  /* _ANALYSIS_STORAGE_SERIALIZE_H */
diff --git a/src/analysis/storage/storage-int.h b/src/analysis/storage/storage-int.h
deleted file mode 100644
index 4883aa8..0000000
--- a/src/analysis/storage/storage-int.h
+++ /dev/null
@@ -1,66 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * storage.h - prototypes internes pour la conservation sur disque d'objets construits
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#ifndef _ANALYSIS_STORAGE_STORAGE_INT_H
-#define _ANALYSIS_STORAGE_STORAGE_INT_H
-
-
-#include "storage.h"
-
-
-
-/* Gestion d'enregistrements spécifiques */
-typedef struct _storage_backend_t
-{
-    char *name;                             /* Désignation du groupe       */
-
-    char *filename;                         /* Nom du fichier associé      */
-    int fd;                                 /* Flux d'accès correspondant  */
-
-} storage_backend_t;
-
-/* Définition d'une conservation d'objets construits (instance) */
-struct _GObjectStorage
-{
-    GObject parent;                         /* A laisser en premier        */
-
-    GTypeMemory *tpmem;                     /* Mémorisation de types       */
-
-    char *hash;                             /* Empreinte du contenu        */
-
-    storage_backend_t *backends;            /* Gestionnaires existants     */
-    size_t count;                           /* Quantité de gestionnaires   */
-    GMutex mutex;                           /* Contrôle d'accès à la liste */
-
-};
-
-/* Définition d'une conservation d'objets construits (classe) */
-struct _GObjectStorageClass
-{
-    GObjectClass parent;                    /* A laisser en premier        */
-
-};
-
-
-
-#endif  /* _ANALYSIS_STORAGE_STORAGE_INT_H */
diff --git a/src/analysis/storage/storage.c b/src/analysis/storage/storage.c
deleted file mode 100644
index 610a0f6..0000000
--- a/src/analysis/storage/storage.c
+++ /dev/null
@@ -1,867 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * storage.c - conservation hors mémoire d'objets choisis
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#include "storage.h"
-
-
-#include <assert.h>
-#include <malloc.h>
-#include <string.h>
-#include <unistd.h>
-#include <stdarg.h>
-
-
-#include "storage-int.h"
-#include "../db/misc/rlestr.h"
-#include "../../common/io.h"
-#include "../../common/leb128.h"
-#include "../../common/pathname.h"
-#include "../../core/logs.h"
-
-
-
-#define STORAGE_MAGIC "CSTR"
-#define STORAGE_NUMBER "\x00\x01"
-
-
-/* Initialise la classe des conservations d'objets en place. */
-static void g_object_storage_class_init(GObjectStorageClass *);
-
-/* Initialise une instance de conservation d'objets en place. */
-static void g_object_storage_init(GObjectStorage *);
-
-/* Supprime toutes les références externes. */
-static void g_object_storage_dispose(GObjectStorage *);
-
-/* Procède à la libération totale de la mémoire. */
-static void g_object_storage_finalize(GObjectStorage *);
-
-/* Retrouve l'encadrement pour un nouveau groupe d'objets. */
-static storage_backend_t *g_object_storage_find_backend(GObjectStorage *, const char *);
-
-/* Ajoute le support d'un nouveau groupe d'objets construits. */
-static bool g_object_storage_add_backend(GObjectStorage *, const char *, storage_backend_t **);
-
-/* Extrait d'un tampon des enregistrements spécifiques. */
-static bool g_object_storage_load_backend(GObjectStorage *, packed_buffer_t *);
-
-/* Place dans un tampon les données liées à des enregistrements. */
-static bool pack_storage_backend(const storage_backend_t *, packed_buffer_t *);
-
-
-
-/* Indique le type défini pour une conservation d'objets construits. */
-G_DEFINE_TYPE(GObjectStorage, g_object_storage, G_TYPE_OBJECT);
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : klass = classe à initialiser.                                *
-*                                                                             *
-*  Description : Initialise la classe des conservations d'objets en place.    *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_object_storage_class_init(GObjectStorageClass *klass)
-{
-    GObjectClass *object;                   /* Autre version de la classe  */
-
-    object = G_OBJECT_CLASS(klass);
-
-    object->dispose = (GObjectFinalizeFunc/* ! */)g_object_storage_dispose;
-    object->finalize = (GObjectFinalizeFunc)g_object_storage_finalize;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = instance à initialiser.                            *
-*                                                                             *
-*  Description : Initialise une instance de conservation d'objets en place.   *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_object_storage_init(GObjectStorage *storage)
-{
-    storage->tpmem = g_type_memory_new();
-
-    storage->hash = NULL;
-
-    storage->backends = NULL;
-    storage->count = 0;
-    g_mutex_init(&storage->mutex);
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = instance d'objet GLib à traiter.                   *
-*                                                                             *
-*  Description : Supprime toutes les références externes.                     *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_object_storage_dispose(GObjectStorage *storage)
-{
-    g_clear_object(&storage->tpmem);
-
-    G_OBJECT_CLASS(g_object_storage_parent_class)->dispose(G_OBJECT(storage));
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = instance d'objet GLib à traiter.                   *
-*                                                                             *
-*  Description : Procède à la libération totale de la mémoire.                *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_object_storage_finalize(GObjectStorage *storage)
-{
-    size_t i;                               /* Boucle de parcours          */
-    storage_backend_t *backend;             /* Gestionnaire à manipuler    */
-    int ret;                                /* Bilan d'un appel            */
-
-    g_mutex_lock(&storage->mutex);
-
-    for (i = 0; i < storage->count; i++)
-    {
-        backend = &storage->backends[i];
-
-        if (backend->fd != -1)
-            close(backend->fd);
-        else
-            assert(false);
-
-        ret = access(backend->filename, W_OK);
-        if (ret == 0)
-        {
-            ret = unlink(backend->filename);
-            if (ret != 0) LOG_ERROR_N("unlink");
-        }
-
-        free(backend->name);
-
-        free(backend->filename);
-
-    }
-
-    if (storage->backends != NULL)
-        free(storage->backends);
-
-    g_mutex_unlock(&storage->mutex);
-
-    g_mutex_clear(&storage->mutex);
-
-    if (storage->hash != NULL)
-        free(storage->hash);
-
-    G_OBJECT_CLASS(g_object_storage_parent_class)->finalize(G_OBJECT(storage));
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : loaded = contenu binaire à associer.                         *
-*                                                                             *
-*  Description : Crée le support d'une conservation d'objets en place.        *
-*                                                                             *
-*  Retour      : Mécanismes mis en place.                                     *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-GObjectStorage *g_object_storage_new(const char *hash)
-{
-    GObjectStorage *result;                 /* Structure à retourner       */
-
-    result = g_object_new(G_TYPE_OBJECT_STORAGE, NULL);
-
-    result->hash = strdup(hash);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : pbuf = zone tampon à lire.                                   *
-*                                                                             *
-*  Description : Charge le support d'une conservation d'objets en place.      *
-*                                                                             *
-*  Retour      : Gestionnaire de conservations construit ou NULL si erreur.   *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-GObjectStorage *g_object_storage_load(packed_buffer_t *pbuf)
-{
-    GObjectStorage *result;                 /* Structure à retourner       */
-    char header[6];                         /* Entête attendue des données */
-    bool status;                            /* Bilan d'une extraction      */
-    rle_string str;                         /* Chaîne à conserver          */
-    uleb128_t count;                        /* Nombre de groupes à charger */
-    uleb128_t i;                            /* Boucle de parcours          */
-
-    result = NULL;
-
-    status = extract_packed_buffer(pbuf, header, 6, false);
-    if (!status) goto quick_exit;
-
-    if (strncmp(header, STORAGE_MAGIC STORAGE_NUMBER, 6) != 0)
-        goto quick_exit;
-
-    setup_empty_rle_string(&str);
-
-    status = unpack_rle_string(&str, pbuf);
-    if (!status) goto quick_exit;
-
-    if (get_rle_string(&str) == NULL)
-    {
-        exit_rle_string(&str);
-        goto quick_exit;
-    }
-
-    result = g_object_new(G_TYPE_OBJECT_STORAGE, NULL);
-
-    result->hash = strdup(get_rle_string(&str));
-
-    exit_rle_string(&str);
-
-    status = g_type_memory_load_types(result->tpmem, pbuf);
-    if (!status) goto exit_while_loading;
-
-    status = unpack_uleb128(&count, pbuf);
-
-    for (i = 0; i < count && status; i++)
-        status = g_object_storage_load_backend(result, pbuf);
-
- exit_while_loading:
-
-    if (!status)
-    {
-        g_object_unref(G_OBJECT(result));
-        result = NULL;
-    }
-
- quick_exit:
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire de conservations à manipuler.         *
-*                pbuf    = zone tampon à remplir. [OUT]                       *
-*                                                                             *
-*  Description : Sauvegarde le support d'une conservation d'objets en place.  *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_object_storage_store(GObjectStorage *storage, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    rle_string str;                         /* Chaîne à conserver          */
-    size_t i;                               /* Boucle de parcours          */
-
-    result = extend_packed_buffer(pbuf, STORAGE_MAGIC STORAGE_NUMBER, 6, false);
-
-    if (result)
-    {
-        init_static_rle_string(&str, storage->hash);
-
-        result = pack_rle_string(&str, pbuf);
-
-        exit_rle_string(&str);
-
-    }
-
-    g_mutex_lock(&storage->mutex);
-
-    if (result)
-        result = g_type_memory_store_types(storage->tpmem, pbuf);
-
-    if (result)
-        result = pack_uleb128((uleb128_t []){ storage->count }, pbuf);
-
-    for (i = 0; i < storage->count && result; i++)
-        result = pack_storage_backend(&storage->backends[i], pbuf);
-
-    g_mutex_unlock(&storage->mutex);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire de conservations à compléter.         *
-*                name    = désignation d'un nouveau groupe d'objets.          *
-*                                                                             *
-*  Description : Retrouve l'encadrement pour un nouveau groupe d'objets.      *
-*                                                                             *
-*  Retour      : Informations liées à un groupe ou NULL en cas d'échec.       *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static storage_backend_t *g_object_storage_find_backend(GObjectStorage *storage, const char *name)
-{
-    storage_backend_t *result;              /* Encadrement à retourner     */
-    size_t i;                               /* Boucle de parcours          */
-
-    assert(!g_mutex_trylock(&storage->mutex));
-
-    for (i = 0; i < storage->count; i++)
-        if (strcmp(storage->backends[i].name, name) == 0)
-            break;
-
-    if (i == storage->count)
-        result = NULL;
-    else
-        result = &storage->backends[i];
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire de conservations à compléter.         *
-*                name    = désignation d'un nouveau groupe d'objets.          *
-*                backend = support mis en place pour les enregistrements.     *
-*                                                                             *
-*  Description : Ajoute le support d'un nouveau groupe d'objets construits.   *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static bool g_object_storage_add_backend(GObjectStorage *storage, const char *name, storage_backend_t **backend)
-{
-    bool result;                            /* Bilan à retourner           */
-    char *prefix;                           /* Début de nom de fichier     */
-    char *filename;                         /* Chemin d'accès aux données  */
-    int fd;                                 /* Descripteur de flux ouvert  */
-
-    result = false;
-
-    *backend = NULL;
-
-    assert(!g_mutex_trylock(&storage->mutex));
-
-    if (g_object_storage_find_backend(storage, name) != NULL)
-        goto exit;
-
-    /* Préparatifs */
-
-    asprintf(&prefix, "%s-%s", storage->hash, name);
-
-    fd = make_tmp_file(prefix, "cache", &filename);
-
-    free(prefix);
-
-    if (fd == -1)
-        goto exit;
-
-    /* Inscription en bonne et due forme */
-
-    storage->backends = realloc(storage->backends, ++storage->count * sizeof(storage_backend_t));
-
-    *backend = &storage->backends[storage->count - 1];
-
-    (*backend)->name = strdup(name);
-
-    (*backend)->filename = filename;
-    (*backend)->fd = fd;
-
-    result = true;
-
- exit:
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire de conservations à compléter.         *
-*                pbuf    = zone tampon à lire.                                *
-*                                                                             *
-*  Description : Extrait d'un tampon des enregistrements spécifiques.         *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static bool g_object_storage_load_backend(GObjectStorage *storage, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    rle_string str;                         /* Chaîne à conserver          */
-    bool status;                            /* Bilan de lecture de contenu */
-    storage_backend_t *backend;             /* Informations à intégrer     */
-    uleb128_t length;                       /* Taille des données à charger*/
-    off_t moved;                            /* Nouvelle position établie   */
-
-    result = false;
-
-    g_mutex_lock(&storage->mutex);
-
-    /* Récupération du nom et création du support */
-
-    setup_empty_rle_string(&str);
-
-    status = unpack_rle_string(&str, pbuf);
-    if (!status) goto exit;
-
-    if (get_rle_string(&str) == NULL)
-    {
-        exit_rle_string(&str);
-        goto exit;
-    }
-
-    status = g_object_storage_add_backend(storage, get_rle_string(&str), &backend);
-
-    exit_rle_string(&str);
-
-    if (!status) goto exit;
-
-    /* Récupération du contenu */
-
-    status = unpack_uleb128(&length, pbuf);
-    if (!status) goto exit;
-
-    status = safe_write(backend->fd, pbuf->data + pbuf->pos, length);
-    if (!status) goto exit;
-
-    advance_packed_buffer(pbuf, length);
-
-    moved = lseek(backend->fd, 0, SEEK_SET);
-    if (moved == ((off_t)-1))
-    {
-        LOG_ERROR_N("lseek");
-        goto exit;
-    }
-
-    result = true;
-
- exit:
-
-    g_mutex_unlock(&storage->mutex);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : backend = stockage des enregistrements spécifiques.          *
-*                pbuf    = zone tampon à remplir. [OUT]                       *
-*                                                                             *
-*  Description : Place dans un tampon les données liées à des enregistrements.*
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static bool pack_storage_backend(const storage_backend_t *backend, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    rle_string str;                         /* Chaîne à conserver          */
-    bool status;                            /* Bilan de lecture de contenu */
-    off_t current;                          /* Position courante           */
-    off_t moved;                            /* Nouvelle position établie   */
-    void *data;                             /* Données à transférer        */
-
-    result = false;
-
-    /* Inscription du nom */
-
-    init_static_rle_string(&str, backend->name);
-
-    status = pack_rle_string(&str, pbuf);
-
-    exit_rle_string(&str);
-
-    if (!status) goto exit;
-
-    /* Inscription du contenu */
-
-    current = lseek(backend->fd, 0, SEEK_CUR);
-    if (current == ((off_t)-1))
-    {
-        LOG_ERROR_N("lseek");
-        goto exit;
-    }
-
-    moved = lseek(backend->fd, 0, SEEK_SET);
-    if (moved == ((off_t)-1))
-    {
-        LOG_ERROR_N("lseek");
-        goto exit;
-    }
-
-    data = malloc(current);
-    if (data == NULL)
-    {
-        LOG_ERROR_N("malloc");
-        goto restore;
-    }
-
-    status = safe_read(backend->fd, data, current);
-    if (!status) goto free_mem;
-
-    status = pack_uleb128((uleb128_t []){ current }, pbuf);
-    if (!status) goto free_mem;
-
-    status = extend_packed_buffer(pbuf, data, current, false);
-
- free_mem:
-
-    free(data);
-
- restore:
-
-    moved = lseek(backend->fd, current, SEEK_SET);
-    if (moved == ((off_t)-1))
-    {
-        LOG_ERROR_N("lseek");
-        goto exit;
-    }
-
-    result = status;
-
- exit:
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire à manipuler.                          *
-*                name    = désignation d'un nouveau groupe d'objets.          *
-*                pos     = tête de lecture avant écriture.                    *
-*                                                                             *
-*  Description : Charge un objet à partir de données rassemblées.             *
-*                                                                             *
-*  Retour      : Objet restauré en mémoire ou NULL en cas d'échec.            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-GSerializableObject *g_object_storage_load_object(GObjectStorage *storage, const char *name, off64_t pos)
-{
-    GSerializableObject *result;            /* Instance à retourner        */
-    bool status;                            /* Bilan d'une opération       */
-    storage_backend_t *backend;             /* Informations à consulter    */
-    packed_buffer_t pbuf;                   /* Tampon des données à lire   */
-    off64_t new;                            /* Nouvelle position de lecture*/
-
-    result = NULL;
-
-    /* Chargement */
-
-    status = false;
-
-    g_mutex_lock(&storage->mutex);
-
-    backend = g_object_storage_find_backend(storage, name);
-
-    if (backend != NULL)
-    {
-        new = lseek64(backend->fd, pos, SEEK_SET);
-
-        if (new == pos)
-        {
-            init_packed_buffer(&pbuf);
-            status = read_packed_buffer(&pbuf, backend->fd);
-        }
-
-    }
-
-    g_mutex_unlock(&storage->mutex);
-
-    if (!status)
-        goto exit;
-
-    /* Phase de conversion */
-
-    result = G_SERIALIZABLE_OBJECT(g_type_memory_create_object(storage->tpmem, &pbuf));
-
-    if (result)
-    {
-        status = g_serializable_object_load(result, storage, &pbuf);
-
-        if (!status)
-            g_clear_object(&result);
-
-    }
-
-    exit_packed_buffer(&pbuf);
-
- exit:
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire à manipuler.                          *
-*                name    = désignation d'un nouveau groupe d'objets.          *
-*                pbuf    = zone tampon à parcourir.                           *
-*                                                                             *
-*  Description : Charge un objet interne à partir de données rassemblées.     *
-*                                                                             *
-*  Retour      : Objet restauré en mémoire ou NULL en cas d'échec.            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-GSerializableObject *g_object_storage_unpack_object(GObjectStorage *storage, const char *name, packed_buffer_t *pbuf)
-{
-    GSerializableObject *result;            /* Instance à retourner        */
-    uint64_t pos;                           /* Localisation des données    */
-    bool status;                            /* Bilan d'une opération       */
-
-    result = NULL;
-
-    status = extract_packed_buffer(pbuf, &pos, sizeof(uint64_t), true);
-
-    if (status)
-        result = g_object_storage_load_object(storage, name, pos);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage  = gestionnaire à manipuler.                         *
-*                name     = désignation d'un nouveau groupe d'objets.         *
-*                pbuf     = zone tampon à parcourir.                          *
-*                expected = type d'objet attendu.                             *
-*                ...      = élément restauré ou NULL en cas d'échec. [OUT]    *
-*                                                                             *
-*  Description : Charge un objet interne à partir de données rassemblées.     *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_object_storage_unpack_object_2(GObjectStorage *storage, const char *name, packed_buffer_t *pbuf, GType expected, ...)
-{
-    bool result;                            /* Bilan d'une opération       */
-    uint64_t pos;                           /* Localisation des données    */
-    GSerializableObject *instance;          /* Objet rechargé à valider    */
-    va_list ap;                             /* Liste d'arguments variables */
-    void **object;                          /* Lieu d'enregistrement final */
-
-    result = extract_packed_buffer(pbuf, &pos, sizeof(uint64_t), true);
-
-    if (result)
-    {
-        if (pos == 0)
-            *object = NULL;
-
-        else
-        {
-            instance = g_object_storage_load_object(storage, name, pos);
-
-            result = G_TYPE_CHECK_INSTANCE_TYPE(instance, expected);
-
-            if (result)
-            {
-                va_start(ap, expected);
-
-                object = va_arg(ap, void **);
-
-                *object = instance;
-
-                va_end(ap);
-
-            }
-
-            else
-                g_clear_object(&instance);
-
-        }
-
-    }
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire à manipuler.                          *
-*                name    = désignation d'un nouveau groupe d'objets.          *
-*                object  = objet sérialisable à traiter.                      *
-*                pos     = tête de lecture avant écriture. [OUT]              *
-*                                                                             *
-*  Description : Sauvegarde un object sous forme de données rassemblées.      *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_object_storage_store_object(GObjectStorage *storage, const char *name, const GSerializableObject *object, off64_t *pos)
-{
-    bool result;                            /* Bilan à retourner           */
-    packed_buffer_t pbuf;                   /* Tampon des données à écrire */
-    storage_backend_t *backend;             /* Informations à consulter    */
-    off64_t tmp;                            /* Conservation éphémère       */
-
-    /* Phase de conversion */
-
-    init_packed_buffer(&pbuf);
-
-    result = g_type_memory_store_object_gtype(storage->tpmem, G_OBJECT(object), &pbuf);
-    if (!result) goto exit;
-
-    result = g_serializable_object_store(object, storage, &pbuf);
-    if (!result) goto exit;
-
-    /* Enregistrement */
-
-    result = false;
-
-    g_mutex_lock(&storage->mutex);
-
-    backend = g_object_storage_find_backend(storage, name);
-
-    if (backend == NULL)
-        g_object_storage_add_backend(storage, name, &backend);
-
-    if (backend != NULL)
-    {
-        if (pos == NULL)
-            pos = &tmp;
-
-        *pos = lseek64(backend->fd, 0, SEEK_CUR);
-
-        if (*pos != (off64_t)-1)
-            result = write_packed_buffer(&pbuf, backend->fd);
-
-    }
-
-    g_mutex_unlock(&storage->mutex);
-
-    /* Sortie propre */
-
- exit:
-
-    exit_packed_buffer(&pbuf);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : storage = gestionnaire à manipuler.                          *
-*                name    = désignation d'un nouveau groupe d'objets.          *
-*                pbuf    = zone tampon à remplir.                             *
-*                                                                             *
-*  Description : Sauvegarde un object interne sous forme de données.          *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_object_storage_pack_object(GObjectStorage *storage, const char *name, const GSerializableObject *object, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    off64_t pos;                            /* Localisation des données    */
-
-    if (object == NULL)
-        result = extend_packed_buffer(pbuf, (uint64_t []){ 0 }, sizeof(uint64_t), true);
-
-    else
-    {
-        result = g_object_storage_store_object(storage, name, object, &pos);
-
-        if (result)
-            result = extend_packed_buffer(pbuf, (uint64_t []){ pos }, sizeof(uint64_t), true);
-
-    }
-
-    return result;
-
-}
diff --git a/src/analysis/storage/storage.h b/src/analysis/storage/storage.h
deleted file mode 100644
index cc0caad..0000000
--- a/src/analysis/storage/storage.h
+++ /dev/null
@@ -1,89 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * storage.h - prototypes pour la conservation sur disque d'objets construits
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#ifndef _ANALYSIS_STORAGE_STORAGE_H
-#define _ANALYSIS_STORAGE_STORAGE_H
-
-
-#include <glib-object.h>
-#include <stdbool.h>
-
-
-#include "serialize.h"
-#include "tpmem.h"
-
-
-
-#define G_TYPE_OBJECT_STORAGE            g_object_storage_get_type()
-#define G_OBJECT_STORAGE(obj)            (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_OBJECT_STORAGE, GObjectStorage))
-#define G_IS_OBJECT_STORAGE(obj)         (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_OBJECT_STORAGE))
-#define G_OBJECT_STORAGE_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_OBJECT_STORAGE, GObjectStorageClass))
-#define G_IS_OBJECT_STORAGE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_OBJECT_STORAGE))
-#define G_OBJECT_STORAGE_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_OBJECT_STORAGE, GObjectStorageClass))
-
-
-/* Définition d'une conservation d'objets construits (instance) */
-typedef struct _GObjectStorage GObjectStorage;
-
-/* Définition d'une conservation d'objets construits (classe) */
-typedef struct _GObjectStorageClass GObjectStorageClass;
-
-
-/* Indique le type défini pour une conservation d'objets construits. */
-GType g_object_storage_get_type(void);
-
-/* Crée le support d'une conservation d'objets en place. */
-GObjectStorage *g_object_storage_new(const char *);
-
-#define get_storage_linked_format(s)                            \
-    ({                                                          \
-        void*__result;                                          \
-        __result = g_object_get_data(G_OBJECT(s), "format");    \
-        g_object_ref(G_OBJECT(__result));                       \
-        __result;                                               \
-    })
-
-/* Charge le support d'une conservation d'objets en place. */
-GObjectStorage *g_object_storage_load(packed_buffer_t *);
-
-/* Sauvegarde le support d'une conservation d'objets en place. */
-bool g_object_storage_store(GObjectStorage *, packed_buffer_t *);
-
-/* Charge un objet à partir de données rassemblées. */
-GSerializableObject *g_object_storage_load_object(GObjectStorage *, const char *, off64_t);
-
-/* Charge un objet interne à partir de données rassemblées. */
-GSerializableObject *g_object_storage_unpack_object(GObjectStorage *, const char *, packed_buffer_t *);
-
-/* Sauvegarde un object sous forme de données rassemblées. */
-bool g_object_storage_store_object(GObjectStorage *, const char *, const GSerializableObject *, off64_t *);
-
-/* Charge un objet interne à partir de données rassemblées. */
-bool g_object_storage_unpack_object_2(GObjectStorage *, const char *, packed_buffer_t *, GType, ...);
-
-/* Sauvegarde un object interne sous forme de données. */
-bool g_object_storage_pack_object(GObjectStorage *, const char *, const GSerializableObject *, packed_buffer_t *);
-
-
-
-#endif  /* _ANALYSIS_STORAGE_STORAGE_H */
diff --git a/src/analysis/storage/tpmem.c b/src/analysis/storage/tpmem.c
deleted file mode 100644
index 0703aeb..0000000
--- a/src/analysis/storage/tpmem.c
+++ /dev/null
@@ -1,429 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * tpmem.c - mémorisation des types d'objets mis en cache
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#include "tpmem.h"
-
-
-#include <assert.h>
-#include <stdint.h>
-
-
-#include "../db/misc/rlestr.h"
-#include "../../arch/operands/target.h"
-#include "../../core/logs.h"
-
-
-
-/* Conservation d'une référence sur un type */
-typedef struct _gtype_ref_info_t
-{
-    GType gtype;                            /* Type pour la GLib           */
-    gpointer gclass;                        /* Lien vers sa classe         */
-
-    /**
-     * La GLib n'est pas très claire sur la taille de GType :
-     *
-     *    #if     GLIB_SIZEOF_SIZE_T != GLIB_SIZEOF_LONG || !defined __cplusplus
-     *    typedef gsize                           GType;
-     *    #else   // for historic reasons, C++ links against gulong GTypes
-     *    typedef gulong                          GType;
-     *    #endif
-     *
-     * Et :
-     *
-     *    typedef unsigned $glib_size_type_define gsize;
-     *
-     * On prend donc le parti de conserver ces types sous forme de valeurs 64 bits
-     * lors des enregistrements.
-     */
-
-} gtype_ref_info_t;
-
-/* Définition d'une mémoire de types d'objets (instance) */
-struct _GTypeMemory
-{
-    GObject parent;                         /* A laisser en premier        */
-
-    gtype_ref_info_t *gtypes;               /* Types des objets reconnus   */
-    size_t count;                           /* Quantité de ces objets      */
-    GMutex mutex;                           /* Contrôle d'accès à la liste */
-
-};
-
-/* Définition d'une mémoire de types d'objets (classe) */
-struct _GTypeMemoryClass
-{
-    GObjectClass parent;                    /* A laisser en premier        */
-
-};
-
-
-/* Initialise la classe des mémoires de types d'objets. */
-static void g_type_memory_class_init(GTypeMemoryClass *);
-
-/* Initialise une instance de mémoire de types d'objets. */
-static void g_type_memory_init(GTypeMemory *);
-
-/* Supprime toutes les références externes. */
-static void g_type_memory_dispose(GTypeMemory *);
-
-/* Procède à la libération totale de la mémoire. */
-static void g_type_memory_finalize(GTypeMemory *);
-
-
-
-/* Indique le type défini pour une mémoire de types d'objets. */
-G_DEFINE_TYPE(GTypeMemory, g_type_memory, G_TYPE_OBJECT);
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : klass = classe à initialiser.                                *
-*                                                                             *
-*  Description : Initialise la classe des mémoires de types d'objets.         *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_type_memory_class_init(GTypeMemoryClass *klass)
-{
-    GObjectClass *object;                   /* Autre version de la classe  */
-
-    object = G_OBJECT_CLASS(klass);
-
-    object->dispose = (GObjectFinalizeFunc/* ! */)g_type_memory_dispose;
-    object->finalize = (GObjectFinalizeFunc)g_type_memory_finalize;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = instance à initialiser.                              *
-*                                                                             *
-*  Description : Initialise une instance de mémoire de types d'objets.        *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_type_memory_init(GTypeMemory *tpmem)
-{
-    tpmem->gtypes = NULL;
-    tpmem->count = 0;
-    g_mutex_init(&tpmem->mutex);
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = instance d'objet GLib à traiter.                     *
-*                                                                             *
-*  Description : Supprime toutes les références externes.                     *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_type_memory_dispose(GTypeMemory *tpmem)
-{
-    uint64_t i;                             /* Boucle de parcours          */
-
-    g_mutex_lock(&tpmem->mutex);
-
-    for (i = 0; i < tpmem->count; i++)
-        if (tpmem->gtypes[i].gclass != NULL)
-            g_type_class_unref(tpmem->gtypes[i].gclass);
-
-    g_mutex_unlock(&tpmem->mutex);
-
-    g_mutex_clear(&tpmem->mutex);
-
-    G_OBJECT_CLASS(g_type_memory_parent_class)->dispose(G_OBJECT(tpmem));
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = instance d'objet GLib à traiter.                     *
-*                                                                             *
-*  Description : Procède à la libération totale de la mémoire.                *
-*                                                                             *
-*  Retour      : -                                                            *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-static void g_type_memory_finalize(GTypeMemory *tpmem)
-{
-    if (tpmem->gtypes != NULL)
-        free(tpmem->gtypes);
-
-    G_OBJECT_CLASS(g_type_memory_parent_class)->finalize(G_OBJECT(tpmem));
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : -                                                            *
-*                                                                             *
-*  Description : Crée une mémoire pour types d'objets.                        *
-*                                                                             *
-*  Retour      : Instance mise en place.                                      *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-GTypeMemory *g_type_memory_new(void)
-{
-    GTypeMemory *result;                    /* Structure à retourner       */
-
-    result = g_object_new(G_TYPE_TYPE_MEMORY, NULL);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = mémoire à compléter.                                 *
-*                pbuf  = zone tampon à lire.                                  *
-*                                                                             *
-*  Description : Apprend tous les types mémorisés dans un tampon.             *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_type_memory_load_types(GTypeMemory *tpmem, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à enregistrer         */
-    uleb128_t count;                        /* Nombre d'éléments détectés  */
-    uleb128_t i;                            /* Boucle de parcours          */
-    rle_string str;                         /* Chaîne à charger            */
-
-    result = unpack_uleb128(&count, pbuf);
-
-    if (result)
-    {
-        g_mutex_lock(&tpmem->mutex);
-
-        tpmem->count = count;
-
-        assert(tpmem->gtypes == NULL);
-        tpmem->gtypes = calloc(count, sizeof(gtype_ref_info_t));
-
-        setup_empty_rle_string(&str);
-
-        for (i = 0; i < tpmem->count && result; i++)
-        {
-            result = unpack_rle_string(&str, pbuf);
-            if (!result) break;
-
-            if (get_rle_string(&str) == NULL)
-            {
-                exit_rle_string(&str);
-                break;
-            }
-
-            tpmem->gtypes[i].gtype = g_type_from_name(get_rle_string(&str));
-            result = (tpmem->gtypes[i].gtype != 0);
-
-            if (!result)
-                log_variadic_message(LMT_ERROR, "Unknown type: '%s'", get_rle_string(&str));
-
-            else
-                tpmem->gtypes[i].gclass = g_type_class_ref(tpmem->gtypes[i].gtype);
-
-            exit_rle_string(&str);
-
-        }
-
-    }
-
-    g_mutex_unlock(&tpmem->mutex);
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = mémoire à manipuler.                                 *
-*                pbuf  = zone tampon à venir lire.                            *
-*                                                                             *
-*  Description : Crée une nouvelle instance d'objet à partir de son type.     *
-*                                                                             *
-*  Retour      : Instance issue de l'opération ou NULL.                       *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-GObject *g_type_memory_create_object(GTypeMemory *tpmem, packed_buffer_t *pbuf)
-{
-    GObject *result;                        /* Nouvelle instance à renvoyer*/
-    uleb128_t index;                        /* Indice du point d'insertion */
-    bool status;                            /* Bilan d'une récupération    */
-
-    result = NULL;
-
-    status = unpack_uleb128(&index, pbuf);
-
-    if (status)
-    {
-        g_mutex_lock(&tpmem->mutex);
-
-        if (index < tpmem->count)
-            result = g_object_new(tpmem->gtypes[index].gtype, NULL);
-
-        g_mutex_unlock(&tpmem->mutex);
-
-    }
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = mémoire à manipuler.                                 *
-*                obj   = instance dont le type est à mémoriser.               *
-*                pbuf  = zone tampon à remplir. [OUT]                         *
-*                                                                             *
-*  Description : Sauvegarde le type d'un objet instancié.                     *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_type_memory_store_object_gtype(GTypeMemory *tpmem, GObject *obj, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à retourner           */
-    GType gtype;                            /* Type à enregistrer          */
-    size_t index;                           /* Indice du point d'insertion */
-
-    gtype = G_TYPE_FROM_INSTANCE(obj);
-
-    /**
-     * Pour quelques explications sur l'esquive suivante, se rapporter aux
-     * commentaires de g_target_operand_unserialize().
-     *
-     * Dans la situation présente, on ne doit pas enregistrer le type dans le tampon,
-     * car l'opérande va relancer l'opération entière (avec un opérande temporaire),
-     * ce qui conduirait à l'enregistrement de deux types successifs dans les données.
-     */
-
-    if (gtype == G_TYPE_TARGET_OPERAND)
-        result = true;
-
-    else
-    {
-        g_mutex_lock(&tpmem->mutex);
-
-        for (index = 0; index < tpmem->count; index++)
-            if (tpmem->gtypes[index].gtype == gtype)
-                break;
-
-        if (index == tpmem->count)
-        {
-            tpmem->gtypes = realloc(tpmem->gtypes, ++tpmem->count * sizeof(gtype_ref_info_t));
-
-            assert(tpmem->count > 0);
-
-            tpmem->gtypes[index].gtype = gtype;
-            tpmem->gtypes[index].gclass = g_type_class_ref(gtype);
-
-        }
-
-        g_mutex_unlock(&tpmem->mutex);
-
-        result = pack_uleb128((uleb128_t []){ index }, pbuf);
-
-    }
-
-    return result;
-
-}
-
-
-/******************************************************************************
-*                                                                             *
-*  Paramètres  : tpmem = mémoire à consulter.                                 *
-*                pbuf  = zone tampon à remplir. [OUT]                         *
-*                                                                             *
-*  Description : Enregistre tous les types mémorisés dans un tampon.          *
-*                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
-*                                                                             *
-*  Remarques   : -                                                            *
-*                                                                             *
-******************************************************************************/
-
-bool g_type_memory_store_types(GTypeMemory *tpmem, packed_buffer_t *pbuf)
-{
-    bool result;                            /* Bilan à enregistrer         */
-    uint64_t i;                             /* Boucle de parcours          */
-    const gchar *name;                      /* Désignation d'un type       */
-    rle_string str;                         /* Chaîne à conserver          */
-
-    g_mutex_lock(&tpmem->mutex);
-
-    result = pack_uleb128((uleb128_t []){ tpmem->count }, pbuf);
-
-    for (i = 0; i < tpmem->count && result; i++)
-    {
-        name = g_type_name(tpmem->gtypes[i].gtype);
-
-        init_static_rle_string(&str, name);
-
-        result = pack_rle_string(&str, pbuf);
-
-        exit_rle_string(&str);
-
-    }
-
-    g_mutex_unlock(&tpmem->mutex);
-
-    return result;
-
-}
diff --git a/src/analysis/storage/tpmem.h b/src/analysis/storage/tpmem.h
deleted file mode 100644
index 34cbde6..0000000
--- a/src/analysis/storage/tpmem.h
+++ /dev/null
@@ -1,70 +0,0 @@
-
-/* Chrysalide - Outil d'analyse de fichiers binaires
- * tpmem.h - prototypes pour la mémorisation des types d'objets mis en cache
- *
- * Copyright (C) 2020 Cyrille Bagard
- *
- *  This file is part of Chrysalide.
- *
- *  Chrysalide is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 3 of the License, or
- *  (at your option) any later version.
- *
- *  Chrysalide is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#ifndef _ANALYSIS_STORAGE_TPMEM_H
-#define _ANALYSIS_STORAGE_TPMEM_H
-
-
-#include <glib-object.h>
-
-
-#include "../../common/packed.h"
-
-
-
-#define G_TYPE_TYPE_MEMORY            g_type_memory_get_type()
-#define G_TYPE_MEMORY(obj)            (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_TYPE_MEMORY, GTypeMemory))
-#define G_IS_TYPE_MEMORY(obj)         (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_TYPE_MEMORY))
-#define G_TYPE_MEMORY_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_TYPE_MEMORY, GTypeMemoryClass))
-#define G_IS_TYPE_MEMORY_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_TYPE_MEMORY))
-#define G_TYPE_MEMORY_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_TYPE_MEMORY, GTypeMemoryClass))
-
-
-/* Définition d'une mémoire de types d'objets (instance) */
-typedef struct _GTypeMemory GTypeMemory;
-
-/* Définition d'une mémoire de types d'objets (classe) */
-typedef struct _GTypeMemoryClass GTypeMemoryClass;
-
-
-/* Indique le type défini pour une mémoire de types d'objets. */
-GType g_type_memory_get_type(void);
-
-/* Crée une mémoire pour types d'objets. */
-GTypeMemory *g_type_memory_new(void);
-
-/* Apprend tous les types mémorisés dans un tampon. */
-bool g_type_memory_load_types(GTypeMemory *, packed_buffer_t *);
-
-/* Crée une nouvelle instance d'objet à partir de son type. */
-GObject *g_type_memory_create_object(GTypeMemory *, packed_buffer_t *);
-
-/* Sauvegarde le type d'un objet instancié. */
-bool g_type_memory_store_object_gtype(GTypeMemory *, GObject *, packed_buffer_t *);
-
-/* Enregistre tous les types mémorisés dans un tampon. */
-bool g_type_memory_store_types(GTypeMemory *, packed_buffer_t *);
-
-
-
-#endif  /* _ANALYSIS_STORAGE_TPMEM_H */