Loaded lots of ELF header information as symbols.

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

1 files changed, 932 insertions, 0 deletions

diff --git a/src/format/elf/symbols.c b/src/format/elf/symbols.c
index c480c51..33a8c3f 100644
--- a/src/format/elf/symbols.c
+++ b/src/format/elf/symbols.c
@@ -35,6 +35,8 @@
 #include "helper_x86.h"
 #include "section.h"
 #include "../mangling/demangler.h"
+#include "../../arch/raw.h"
+#include "../../common/extstr.h"
 #include "../../gui/panels/log.h"
 
 
@@ -48,6 +50,23 @@ const char *get_elf_symbol_name(GElfFormat *, const elf_shdr *, const elf_shdr *
 
 
 
+
+
+
+/* ------------------------ CHARGEMENT DE SYMBOLES DU FORMAT ------------------------ */
+
+
+/* Charge tous les symboles de l'en-tête ELF. */
+static bool annotate_elf_header(GElfFormat *);
+
+/* Charge tous les symboles liés aux en-têtes de programme ELF. */
+static bool annotate_elf_program_header_table(GElfFormat *);
+
+/* Charge tous les symboles liés aux en-têtes de section ELF. */
+static bool annotate_elf_section_header_table(GElfFormat *);
+
+
+
 /* -------------------------- DETAIL DES SYMBOLES INTERNES -------------------------- */
 
 
@@ -72,6 +91,8 @@ static bool load_elf_external_symbols(GElfFormat *, const elf_shdr *);
 
 
 
+
+
 /******************************************************************************
 *                                                                             *
 *  Paramètres  : format = description de l'exécutable à compléter.            *
@@ -92,6 +113,16 @@ bool load_elf_symbols(GElfFormat *format)
 
     result = true;
 
+
+
+    annotate_elf_header(format);
+
+    annotate_elf_program_header_table(format);
+
+    annotate_elf_section_header_table(format);
+
+
+
     /* Symboles externes */
 
     if (find_elf_sections_by_type(format, SHT_DYNAMIC, &sections, &count))
@@ -155,6 +186,907 @@ const char *get_elf_symbol_name(GElfFormat *format, const elf_shdr *sym, const e
 
 
 
+
+/* ---------------------------------------------------------------------------------- */
+/*                          CHARGEMENT DE SYMBOLES DU FORMAT                          */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : format = description de l'exécutable à compléter.            *
+*                                                                             *
+*  Description : Charge tous les symboles de l'en-tête ELF.                   *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool annotate_elf_header(GElfFormat *format)
+{
+    const bin_t *content;                   /* Contenu binaire à lire      */
+    off_t length;                           /* Taille totale du contenu    */
+    vmpa2t *pos;                            /* Localisation des symboles   */
+    const char *text;                       /* Texte constant à insérer    */
+    GArchInstruction *instr;                /* Instruction décodée         */
+    GArchOperand *operand;                  /* Opérande à venir modifier   */
+    GDbComment *comment;                    /* Définition de commentaire   */
+    GBinSymbol *symbol;                     /* Symbole à intégrer          */
+
+    content = G_BIN_FORMAT(format)->content;
+    length = G_BIN_FORMAT(format)->length;
+
+    pos = make_vmpa(0, 0x123);
+
+    /* ELFMAG (0) */
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 4, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 1, IOD_CHAR);
+    SET_IMM_DISPLAY(instr, operand, 2, IOD_CHAR);
+    SET_IMM_DISPLAY(instr, operand, 3, IOD_CHAR);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("ELF magic number"));
+
+    /* EI_CLASS (4) */
+
+    switch (format->header.hdr32.e_ident[EI_CLASS])
+    {
+        case EV_NONE:
+            text = _("File class: invalid");
+            break;
+        case ELFCLASS32:
+            text = _("File class: 32-bit objects");
+            break;
+        case ELFCLASS64:
+            text = _("File class: 64-bit objects");
+            break;
+        default:
+            text = _("File class: unknown");
+            break;
+    }
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+    /* EI_DATA (5) */
+
+    switch (format->header.hdr32.e_ident[EI_DATA])
+    {
+        case ELFDATANONE:
+            text = _("Data encoding: invalid");
+            break;
+        case ELFDATA2LSB:
+            text = _("Data encoding: 2's complement, little endian");
+            break;
+        case ELFDATA2MSB:
+            text = _("Data encoding: 2's complement, big endian");
+            break;
+        default:
+            text = _("Data encoding: unknown");
+            break;
+    }
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+    /* EI_VERSION (6) */
+
+    switch (format->header.hdr32.e_ident[EI_VERSION])
+    {
+        case EV_NONE:
+            text = _("File version: invalid");
+            break;
+        case EV_CURRENT:
+            text = _("File version: current");
+            break;
+        default:
+            text = _("File version: unknown");
+            break;
+    }
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+    /* EI_OSABI (7) */
+
+    switch (format->header.hdr32.e_ident[EI_OSABI])
+    {
+        case ELFOSABI_SYSV:
+            text = _("OS ABI: UNIX System V");
+            break;
+        case ELFOSABI_HPUX:
+            text = _("OS ABI: HP-UX");
+            break;
+        case ELFOSABI_NETBSD:
+            text = _("OS ABI: NetBSD");
+            break;
+        case ELFOSABI_GNU:
+            text = _("OS ABI: object uses GNU ELF extensions");
+            break;
+        case ELFOSABI_SOLARIS:
+            text = _("OS ABI: Sun Solaris");
+            break;
+        case ELFOSABI_AIX:
+            text = _("OS ABI: IBM AIX");
+            break;
+        case ELFOSABI_IRIX:
+            text = _("OS ABI: SGI Irix");
+            break;
+        case ELFOSABI_FREEBSD:
+            text = _("OS ABI: FreeBSD");
+            break;
+        case ELFOSABI_TRU64:
+            text = _("OS ABI: Compaq TRU64 UNIX");
+            break;
+        case ELFOSABI_MODESTO:
+            text = _("OS ABI: Novell Modesto");
+            break;
+        case ELFOSABI_OPENBSD:
+            text = _("OS ABI: OpenBSD");
+            break;
+        case ELFOSABI_ARM_AEABI:
+            text = _("OS ABI: ARM EABI");
+            break;
+        case ELFOSABI_ARM:
+            text = _("OS ABI: ARM");
+            break;
+        case ELFOSABI_STANDALONE:
+            text = _("OS ABI: standalone (embedded) application");
+            break;
+        default:
+            text = _("OS ABI: unknown");
+            break;
+    }
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+    /* EI_ABIVERSION (8) */
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("ABI version"));
+
+    /* Padding */
+
+    instr = g_raw_instruction_new_array(content, MDS_8_BITS, 7, pos, length, format->endian);
+
+    g_raw_instruction_mark_as_padding(G_RAW_INSTRUCTION(instr), true);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Padding"));
+
+    /* Champ "e_type" */
+
+    switch (format->header.hdr32.e_ident[EI_DATA])
+    {
+        case ET_NONE:
+            text = _("Object file type: no file type");
+            break;
+        case ET_REL:
+            text = _("Object file type: relocatable file");
+            break;
+        case ET_EXEC:
+            text = _("Object file type: executable file");
+            break;
+        case ET_DYN:
+            text = _("Object file type: shared object file");
+            break;
+        case ET_CORE:
+            text = _("Object file type: core file");
+            break;
+        case ET_LOOS ... ET_HIOS:
+            text = _("Object file type: OS-specific");
+            break;
+        case ET_LOPROC ... ET_HIPROC:
+            text = _("Object file type: processor-specific");
+            break;
+        default:
+            text = _("Object file type: unkown");
+            break;
+    }
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+    /* Champ "e_machine" */
+
+    switch (format->header.hdr32.e_machine)
+    {
+        case EM_NONE:		text = _("Architecture: No machine"); break;
+        case EM_M32:		text = _("Architecture: AT&T WE 32100"); break;
+        case EM_SPARC:		text = _("Architecture: SUN SPARC"); break;
+        case EM_386:		text = _("Architecture: Intel 80386"); break;
+        case EM_68K:		text = _("Architecture: Motorola m68k family"); break;
+        case EM_88K:		text = _("Architecture: Motorola m88k family"); break;
+        case EM_860:		text = _("Architecture: Intel 80860"); break;
+        case EM_MIPS:		text = _("Architecture: MIPS R3000 big-endian"); break;
+        case EM_S370:	    text = _("Architecture: IBM System/370"); break;
+        case EM_MIPS_RS3_LE:text = _("Architecture: MIPS R3000 little-endian"); break;
+        case EM_PARISC:		text = _("Architecture: HPPA"); break;
+        case EM_VPP500:		text = _("Architecture: Fujitsu VPP500"); break;
+        case EM_SPARC32PLUS:text = _("Architecture: Sun's \"v8plus\""); break;
+        case EM_960:		text = _("Architecture: Intel 80960"); break;
+        case EM_PPC:		text = _("Architecture: PowerPC"); break;
+        case EM_PPC64:		text = _("Architecture: PowerPC 64-bit"); break;
+        case EM_S390:		text = _("Architecture: IBM S390"); break;
+        case EM_V800:		text = _("Architecture: NEC V800 series"); break;
+        case EM_FR20:		text = _("Architecture: Fujitsu FR20"); break;
+        case EM_RH32:		text = _("Architecture: TRW RH-32"); break;
+        case EM_RCE:		text = _("Architecture: Motorola RCE"); break;
+        case EM_ARM:		text = _("Architecture: ARM"); break;
+        case EM_FAKE_ALPHA: text = _("Architecture: Digital Alpha"); break;
+        case EM_SH:		    text = _("Architecture: Hitachi SH"); break;
+        case EM_SPARCV9:	text = _("Architecture: SPARC v9 64-bit"); break;
+        case EM_TRICORE:	text = _("Architecture: Siemens Tricore"); break;
+        case EM_ARC:		text = _("Architecture: Argonaut RISC Core"); break;
+        case EM_H8_300:		text = _("Architecture: Hitachi H8/300"); break;
+        case EM_H8_300H:	text = _("Architecture: Hitachi H8/300H"); break;
+        case EM_H8S:		text = _("Architecture: Hitachi H8S"); break;
+        case EM_H8_500:		text = _("Architecture: Hitachi H8/500"); break;
+        case EM_IA_64:		text = _("Architecture: Intel Merced"); break;
+        case EM_MIPS_X:		text = _("Architecture: Stanford MIPS-X"); break;
+        case EM_COLDFIRE:	text = _("Architecture: Motorola Coldfire"); break;
+        case EM_68HC12:		text = _("Architecture: Motorola M68HC12"); break;
+        case EM_MMA:		text = _("Architecture: Fujitsu MMA Multimedia Accelerator"); break;
+        case EM_PCP:		text = _("Architecture: Siemens PCP"); break;
+        case EM_NCPU:		text = _("Architecture: Sony nCPU embeeded RISC"); break;
+        case EM_NDR1:		text = _("Architecture: Denso NDR1 microprocessor"); break;
+        case EM_STARCORE:	text = _("Architecture: Motorola Start*Core processor"); break;
+        case EM_ME16:		text = _("Architecture: Toyota ME16 processor"); break;
+        case EM_ST100:		text = _("Architecture: STMicroelectronic ST100 processor"); break;
+        case EM_TINYJ:		text = _("Architecture: Advanced Logic Corp. Tinyj emb.fam"); break;
+        case EM_X86_64:		text = _("Architecture: AMD x86-64 architecture"); break;
+        case EM_PDSP:		text = _("Architecture: Sony DSP Processor"); break;
+        case EM_FX66:		text = _("Architecture: Siemens FX66 microcontroller"); break;
+        case EM_ST9PLUS:	text = _("Architecture: STMicroelectronics ST9+ 8/16 mc"); break;
+        case EM_ST7:		text = _("Architecture: STmicroelectronics ST7 8 bit mc"); break;
+        case EM_68HC16:		text = _("Architecture: Motorola MC68HC16 microcontroller"); break;
+        case EM_68HC11:		text = _("Architecture: Motorola MC68HC11 microcontroller"); break;
+        case EM_68HC08:		text = _("Architecture: Motorola MC68HC08 microcontroller"); break;
+        case EM_68HC05:		text = _("Architecture: Motorola MC68HC05 microcontroller"); break;
+        case EM_SVX:		text = _("Architecture: Silicon Graphics SVx"); break;
+        case EM_ST19:		text = _("Architecture: STMicroelectronics ST19 8 bit mc"); break;
+        case EM_VAX:		text = _("Architecture: Digital VAX"); break;
+        case EM_CRIS:		text = _("Architecture: Axis Communications 32-bit embedded processor"); break;
+        case EM_JAVELIN:	text = _("Architecture: Infineon Technologies 32-bit embedded processor"); break;
+        case EM_FIREPATH:	text = _("Architecture: Element 14 64-bit DSP Processor"); break;
+        case EM_ZSP:		text = _("Architecture: LSI Logic 16-bit DSP Processor"); break;
+        case EM_MMIX:		text = _("Architecture: Donald Knuth's educational 64-bit processor"); break;
+        case EM_HUANY:		text = _("Architecture: Harvard University machine-independent object files"); break;
+        case EM_PRISM:		text = _("Architecture: SiTera Prism"); break;
+        case EM_AVR:		text = _("Architecture: Atmel AVR 8-bit microcontroller"); break;
+        case EM_FR30:		text = _("Architecture: Fujitsu FR30"); break;
+        case EM_D10V:		text = _("Architecture: Mitsubishi D10V"); break;
+        case EM_D30V:		text = _("Architecture: Mitsubishi D30V"); break;
+        case EM_V850:		text = _("Architecture: NEC v850"); break;
+        case EM_M32R:		text = _("Architecture: Mitsubishi M32R"); break;
+        case EM_MN10300:	text = _("Architecture: Matsushita MN10300"); break;
+        case EM_MN10200:	text = _("Architecture: Matsushita MN10200"); break;
+        case EM_PJ:		    text = _("Architecture: picoJava"); break;
+        case EM_OPENRISC:	text = _("Architecture: OpenRISC 32-bit embedded processor"); break;
+        case EM_ARC_A5:		text = _("Architecture: ARC Cores Tangent-A5"); break;
+        case EM_XTENSA:		text = _("Architecture: Tensilica Xtensa Architecture"); break;
+        case EM_AARCH64:	text = _("Architecture: ARM AARCH64"); break;
+        case EM_TILEPRO:	text = _("Architecture: Tilera TILEPro"); break;
+        case EM_MICROBLAZE:	text = _("Architecture: Xilinx MicroBlaze"); break;
+        case EM_TILEGX:		text = _("Architecture: Tilera TILE-Gx"); break;
+        default:		    text = _("Architecture: unknown"); break;
+    }
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+    /* Champ "e_version" */
+
+    instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Object file version"));
+
+    if (format->header.hdr32.e_ident[EI_CLASS] == ELFCLASS32)
+    {
+        /* Champ "e_entry" */
+
+        instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Entry point virtual address"));
+
+        /* Champ "e_phoff" */
+
+        instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Program header table file offset"));
+
+        /* Champ "e_shoff" */
+
+        instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Section header table file offset"));
+
+    }
+
+    else if (format->header.hdr32.e_ident[EI_CLASS] == ELFCLASS64)
+    {
+        /* Champ "e_entry" */
+
+        instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Entry point virtual address"));
+
+        /* Champ "e_phoff" */
+
+        instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Program header table file offset"));
+
+        /* Champ "e_shoff" */
+
+        instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Section header table file offset"));
+
+    }
+
+    else return false;
+
+    /* Champ "e_flags" */
+
+    instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+    //SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Processor-specific flags"));
+
+    /* Champ "e_ehsize" */
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("ELF header size in bytes"));
+
+    /* Champ "e_phentsize" */
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Program header table entry size"));
+
+    /* Champ "e_phnum" */
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Program header table entry count"));
+
+    /* Champ "e_shentsize" */
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Section header table entry size"));
+
+    /* Champ "e_shnum" */
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Section header table entry count"));
+
+    /* Champ "e_shstrndx" */
+
+    instr = g_raw_instruction_new_array(content, MDS_16_BITS, 1, pos, length, format->endian);
+
+    SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+    ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Section header string table index"));
+
+    return true;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : format = description de l'exécutable à compléter.            *
+*                                                                             *
+*  Description : Charge tous les symboles liés aux en-têtes de programme ELF. *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool annotate_elf_program_header_table(GElfFormat *format)
+{
+    const bin_t *content;                   /* Contenu binaire à lire      */
+    off_t length;                           /* Taille totale du contenu    */
+    off_t offset;                           /* Tête de lecture du bbinaire */
+    vmpa2t *pos;                            /* Localisation des symboles   */
+    uint16_t e_phnum;                       /* Nombre d'éléments 'Program' */
+    uint16_t i;                             /* Boucle de parcours          */
+    elf_phdr phdr;                          /* En-tête de programme ELF    */
+    ImmOperandDisplay disp;                 /* Afficahge de valeur         */
+    const char *text;                       /* Texte constant à insérer    */
+    GArchInstruction *instr;                /* Instruction décodée         */
+    GArchOperand *operand;                  /* Opérande à venir modifier   */
+    GDbComment *comment;                    /* Définition de commentaire   */
+    GBinSymbol *symbol;                     /* Symbole à intégrer          */
+    char *dtext;                            /* Texte dynamique à créer     */
+    bool filled;                            /* Suivi de mise en place      */
+
+    content = G_BIN_FORMAT(format)->content;
+    length = G_BIN_FORMAT(format)->length;
+
+    offset = ELF_HDR(format, format->header, e_phoff);
+
+    pos = make_vmpa(offset, 0x5500);
+
+    e_phnum = ELF_HDR(format, format->header, e_phnum);
+
+    for (i = 0; i < e_phnum; i++)
+    {
+        if (!read_elf_program_header(format, &offset, &phdr))
+            break;
+
+        /* Champ "p_type" */
+
+        disp = IOD_DEC;
+
+        switch (ELF_PHDR(format, phdr, p_type))
+        {
+            case PT_NULL:
+                text = _("Segment type: unused");
+                break;
+            case PT_LOAD:
+                text = _("Segment type: loadable program segment");
+                break;
+            case PT_DYNAMIC:
+                text = _("Segment type: dynamic linking information");
+                break;
+            case PT_INTERP:
+                text = _("Segment type: program interpreter");
+                break;
+            case PT_NOTE:
+                text = _("Segment type: auxiliary information");
+                break;
+            case PT_SHLIB:
+                text = _("Segment type: reserved");
+                break;
+            case PT_PHDR:
+                text = _("Segment type: entry for header table itself");
+                break;
+            case PT_TLS:
+                text = _("Segment type: thread-local storage segment");
+                break;
+            case PT_LOOS ... PT_HIOS:
+                disp = IOD_HEX;
+                switch (ELF_PHDR(format, phdr, p_type))
+                {
+                    case PT_GNU_EH_FRAME:
+                        text = _("Segment type: GCC .eh_frame_hdr segment");
+                        break;
+                    case PT_GNU_STACK:
+                        text = _("Segment type: indicates stack executability");
+                        break;
+                    case PT_GNU_RELRO:
+                        text = _("Segment type: read-only after relocation");
+                        break;
+                    case PT_LOSUNW ... PT_HISUNW:
+                        switch (ELF_PHDR(format, phdr, p_type))
+                        {
+                            case PT_SUNWSTACK:
+                                text = _("Segment type: Sun Stack segment");
+                                break;
+                            default:
+                                text = _("Segment type: Sun specific segment");
+                                break;
+                        }
+                        break;
+                    default:
+                        text = _("Segment type: OS-specific");
+                        break;
+                }
+                break;
+            case PT_LOPROC ... PT_HIPROC:
+                disp = IOD_HEX;
+                text = _("Segment type: processor-specific");
+                break;
+            default:
+                disp = IOD_HEX;
+                text = _("Segment type: unknown");
+                break;
+        }
+
+        instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+        SET_IMM_DISPLAY(instr, operand, 0, disp);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+        if (format->is_32b)
+        {
+            /* Champ "p_offset" */
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment file offset"));
+
+            /* Champ "p_vaddr" */
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment virtual address"));
+
+            /* Champ "p_paddr" */
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment physical address"));
+
+            /* Champ "p_filesz" */
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment size in file"));
+
+            /* Champ "p_memsz" */
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment size in memory"));
+
+            /* Champ "p_flags" */
+
+            dtext = strdup(_("Segment flags: "));
+            filled = false;
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_R)
+            {
+                dtext = stradd(dtext, "R");
+                filled = true;
+            }
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_W)
+            {
+                dtext = stradd(dtext, "W");
+                filled = true;
+            }
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_X)
+            {
+                dtext = stradd(dtext, "X");
+                filled = true;
+            }
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_MASKOS)
+                /* TODO */;
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_MASKPROC)
+                /* TODO */;
+
+            if (!filled)
+                dtext = stradd(dtext, _("none"));
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, dtext);
+
+            free(dtext);
+
+            /* Champ "p_align" */
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment alignment"));
+
+        }
+        else
+        {
+            /* Champ "p_flags" */
+
+            dtext = strdup(_("Segment flags: "));
+            filled = false;
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_R)
+            {
+                dtext = stradd(dtext, "R");
+                filled = true;
+            }
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_W)
+            {
+                dtext = stradd(dtext, "W");
+                filled = true;
+            }
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_X)
+            {
+                dtext = stradd(dtext, "X");
+                filled = true;
+            }
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_MASKOS)
+                /* TODO */;
+
+            if (ELF_PHDR(format, phdr, p_flags) & PF_MASKPROC)
+                /* TODO */;
+
+            if (!filled)
+                dtext = stradd(dtext, _("none"));
+
+            instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, dtext);
+
+            free(dtext);
+
+            /* Champ "p_offset" */
+
+            instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment file offset"));
+
+            /* Champ "p_vaddr" */
+
+            instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment virtual address"));
+
+            /* Champ "p_paddr" */
+
+            instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment physical address"));
+
+            /* Champ "p_filesz" */
+
+            instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment size in file"));
+
+            /* Champ "p_memsz" */
+
+            instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment size in memory"));
+
+            /* Champ "p_align" */
+
+            instr = g_raw_instruction_new_array(content, MDS_64_BITS, 1, pos, length, format->endian);
+
+            ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, _("Segment alignment"));
+
+        }
+
+    }
+
+    return true;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : format = description de l'exécutable à compléter.            *
+*                                                                             *
+*  Description : Charge tous les symboles liés aux en-têtes de section ELF.   *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool annotate_elf_section_header_table(GElfFormat *format)
+{
+    const bin_t *content;                   /* Contenu binaire à lire      */
+    off_t length;                           /* Taille totale du contenu    */
+    off_t offset;                           /* Tête de lecture du bbinaire */
+    vmpa2t *pos;                            /* Localisation des symboles   */
+    uint16_t e_shnum;                       /* Nombre d'éléments 'Program' */
+    uint16_t i;                             /* Boucle de parcours          */
+    elf_shdr shdr;                          /* En-tête de programme ELF    */
+    ImmOperandDisplay disp;                 /* Afficahge de valeur         */
+    const char *text;                       /* Texte constant à insérer    */
+    GArchInstruction *instr;                /* Instruction décodée         */
+    GArchOperand *operand;                  /* Opérande à venir modifier   */
+    GDbComment *comment;                    /* Définition de commentaire   */
+    GBinSymbol *symbol;                     /* Symbole à intégrer          */
+    char *dtext;                            /* Texte dynamique à créer     */
+    bool filled;                            /* Suivi de mise en place      */
+
+    content = G_BIN_FORMAT(format)->content;
+    length = G_BIN_FORMAT(format)->length;
+
+    offset = ELF_HDR(format, format->header, e_shoff);
+
+    pos = make_vmpa(offset, 0x9900);
+
+    e_shnum = ELF_HDR(format, format->header, e_shnum);
+
+    for (i = 0; i < e_shnum; i++)
+    {
+        if (!read_elf_section_header(format, offset, &shdr))
+            break;
+
+        /* Champ "sh_name" */
+
+        text = _("Section name");
+
+        instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+        SET_IMM_DISPLAY(instr, operand, 0, IOD_DEC);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+        /* Champ "sh_type" */
+
+        disp = IOD_DEC;
+
+        switch (ELF_SHDR(format, shdr, sh_type))
+        {
+            case SHT_NULL:
+                text = _("Section type: unused");
+                break;
+            case SHT_PROGBITS:
+                text = _("Section type: program data");
+                break;
+            case SHT_SYMTAB:
+                text = _("Section type: symbol table");
+                break;
+            case SHT_STRTAB:
+                text = _("Section type: string table");
+                break;
+            case SHT_RELA:
+                text = _("Section type: relocation entries with addends");
+                break;
+            case SHT_HASH:
+                text = _("Section type: symbol hash table");
+                break;
+            case SHT_DYNAMIC:
+                text = _("Section type: dynamic linking information");
+                break;
+            case SHT_NOTE:
+                text = _("Section type: notes");
+                break;
+            case SHT_NOBITS:
+                text = _("Section type: program space with no data (bss)");
+                break;
+            case SHT_REL:
+                text = _("Section type: relocation entries, no addends");
+                break;
+            case SHT_SHLIB:
+                text = _("Section type: reserved");
+                break;
+            case SHT_DYNSYM:
+                text = _("Section type: dynamic linker symbol table");
+                break;
+            case SHT_INIT_ARRAY:
+                text = _("Section type: array of constructors");
+                break;
+            case SHT_FINI_ARRAY:
+                text = _("Section type: array of destructors");
+                break;
+            case SHT_PREINIT_ARRAY:
+                text = _("Section type: array of pre-constructors");
+                break;
+            case SHT_GROUP:
+                text = _("Section type: section group");
+                break;
+            case SHT_SYMTAB_SHNDX:
+                text = _("Section type: extended section indeces");
+                break;
+            case SHT_LOOS ... SHT_HIOS:
+                disp = IOD_HEX;
+                switch (ELF_SHDR(format, shdr, sh_type))
+                {
+                    case SHT_GNU_ATTRIBUTES:
+                        text = _("Section type: object attributes");
+                        break;
+                    case SHT_GNU_HASH:
+                        text = _("Section type: GNU-style hash table");
+                        break;
+                    case SHT_GNU_LIBLIST:
+                        text = _("Section type: prelink library list");
+                        break;
+                    case SHT_CHECKSUM:
+                        text = _("Section type: checksum for DSO content");
+                        break;
+                    case SHT_LOSUNW ... SHT_HISUNW:
+                        switch (ELF_SHDR(format, shdr, sh_type))
+                        {
+                            case SHT_SUNW_move:
+                                text = _("Section type: SHT_SUNW_move");
+                                break;
+                            case SHT_SUNW_COMDAT:
+                                text = _("Section type: SHT_SUNW_COMDAT");
+                                break;
+                            case SHT_SUNW_syminfo:
+                                text = _("Section type: SHT_SUNW_syminfo");
+                                break;
+                            case SHT_GNU_verdef:
+                                text = _("Section type: version definition section");
+                                break;
+                            case SHT_GNU_verneed:
+                                text = _("Section type: version needs section");
+                                break;
+                            case SHT_GNU_versym:
+                                text = _("Section type: version symbol table");
+                                break;
+                            default:
+                                text = _("Section type: Sun-specific");
+                                break;
+                        }
+                        break;
+                    default:
+                        text = _("Section type: OS-specific");
+                        break;
+                }
+                break;
+            case SHT_LOPROC ... SHT_HIPROC:
+                disp = IOD_HEX;
+                text = _("Section type: processor-specific");
+                break;
+            case SHT_LOUSER ... SHT_HIUSER:
+                disp = IOD_HEX;
+                text = _("Section type: application-specific");
+                break;
+        }
+
+        instr = g_raw_instruction_new_array(content, MDS_32_BITS, 1, pos, length, format->endian);
+
+        SET_IMM_DISPLAY(instr, operand, 0, disp);
+
+        ADD_RAW_AS_SYM(format, symbol, pos, instr, comment, text);
+
+
+
+
+
+
+
+
+
+
+
+    }
+
+    return true;
+
+}
+
+
+
 /* ---------------------------------------------------------------------------------- */
 /*                            DETAIL DES SYMBOLES INTERNES                            */
 /* ---------------------------------------------------------------------------------- */