* Moved ELF definitions into a separate unit, which can be reused by CPU back-end units.

git-svn-id: trunk@23086 -

.gitattributes

@@ -171,6 +171,7 @@ compiler/dbgstabs.pas svneol=native#text/plain
 compiler/dbgstabx.pas svneol=native#text/plain
 compiler/defcmp.pas svneol=native#text/plain
 compiler/defutil.pas svneol=native#text/plain
+compiler/elfbase.pas svneol=native#text/plain
 compiler/export.pas svneol=native#text/plain
 compiler/expunix.pas svneol=native#text/plain
 compiler/finput.pas svneol=native#text/plain

compiler/elfbase.pas

@@ -0,0 +1,379 @@
+{
+    Copyright (c) 1998-2006 by Peter Vreman
+
+    Contains ELF definitions
+
+    This program 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 2 of the License, or
+    (at your option) any later version.
+
+    This program 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 this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+unit elfbase;
+
+{$i fpcdefs.inc}
+
+interface
+
+  const
+    EI_MAG0    = 0;
+      ELFMAG0  = $7F;
+    EI_MAG1    = 1;
+      ELFMAG1  = ord('E');
+    EI_MAG2    = 2;
+      ELFMAG2  = ord('L');
+    EI_MAG3    = 3;
+      ELFMAG3  = ord('F');
+    EI_CLASS   = 4;
+      ELFCLASSNONE  = 0;
+      ELFCLASS32    = 1;
+      ELFCLASS64    = 2;
+    EI_DATA    = 5;
+      ELFDATANONE   = 0;
+      ELFDATA2LSB   = 1;
+      ELFDATA2MSB   = 2;
+    EI_VERSION = 6;
+    EI_OSABI   = 7;
+      ELFOSABI_NONE    = 0;  { UNIX System V ABI }
+      ELFOSABI_HPUX    = 1;  { HP-UX operating system }
+      ELFOSABI_NETBSD  = 2;  { NetBSD }
+      ELFOSABI_LINUX   = 3;  { GNU/Linux }
+      ELFOSABI_HURD    = 4;  { GNU/Hurd }
+      ELFOSABI_SOLARIS = 6;  { Solaris }
+      ELFOSABI_AIX     = 7;  { AIX }
+      ELFOSABI_IRIX    = 8;  { IRIX }
+      ELFOSABI_FREEBSD = 9;  { FreeBSD }
+      ELFOSABI_TRU64   = 10; { TRU64 UNIX }
+      ELFOSABI_MODESTO = 11; { Novell Modesto }
+      ELFOSABI_OPENBSD = 12; { OpenBSD }
+      ELFOSABI_OPENVMS = 13; { OpenVMS }
+      ELFOSABI_NSK     = 14; { Hewlett-Packard Non-Stop Kernel }
+      ELFOSABI_AROS    = 15; { AROS }
+      ELFOSABI_FENIXOS = 16; { FenixOS }
+      ELFOSABI_C6000_ELFABI = 64; { Bare-metal TMS320C6000 }
+      ELFOSABI_C6000_LINUX  = 65; { Linux TMS320C6000 }
+      ELFOSABI_ARM     = 97; { ARM }
+      ELFOSABI_STANDALONE = 255; { Standalone (embedded) application }
+
+    EI_ABIVERSION = 8;
+    EI_PAD     = 9;
+
+    { ELFHeader.e_type }
+    ET_NONE       = 0;
+    ET_REL        = 1;
+    ET_EXEC       = 2;
+    ET_DYN        = 3;
+    ET_CORE       = 4;
+
+    { ELFHeader.e_machine }
+    EM_SPARC      = 2;
+    EM_386        = 3;
+    EM_M68K       = 4;
+    EM_MIPS       = 8;
+    EM_PPC        = 20;
+    EM_ARM        = 40;
+    EM_X86_64     = 62;
+
+    { ElfSechdr.sh_num }
+    SHN_UNDEF     = 0;
+    SHN_LORESERVE = $FF00;
+    SHN_ABS       = $fff1;
+    SHN_COMMON    = $fff2;
+
+    { ElfSechdr.sh_type }
+    SHT_NULL     = 0;
+    SHT_PROGBITS = 1;
+    SHT_SYMTAB   = 2;
+    SHT_STRTAB   = 3;
+    SHT_RELA     = 4;
+    SHT_HASH     = 5;
+    SHT_DYNAMIC  = 6;
+    SHT_NOTE     = 7;
+    SHT_NOBITS   = 8;
+    SHT_REL      = 9;
+    SHT_SHLIB    = 10;
+    SHT_DYNSYM   = 11;
+    SHT_INIT_ARRAY = 14;
+    SHT_FINI_ARRAY = 15;
+    SHT_PREINIT_ARRAY = 16;
+    SHT_GROUP    = 17;
+    SHT_SYMTAB_SHNDX = 18;
+    SHT_GNU_verdef = $6ffffffd;
+    SHT_GNU_verneed = $6ffffffe;
+    SHT_GNU_versym = $6fffffff;
+
+    { ElfSechdr.sh_flags }
+    SHF_WRITE     = 1;
+    SHF_ALLOC     = 2;
+    SHF_EXECINSTR = 4;
+    SHF_MERGE     = 16;
+    SHF_STRINGS   = 32;
+    SHF_INFO_LINK = 64;
+    SHF_LINK_ORDER = 128;
+    SHF_OS_NONCONFORMING = 256;
+    SHF_GROUP     = 512;
+    SHF_TLS       = 1024;
+
+    STB_LOCAL   = 0;
+    STB_GLOBAL  = 1;
+    STB_WEAK    = 2;
+
+    STT_NOTYPE  = 0;
+    STT_OBJECT  = 1;
+    STT_FUNC    = 2;
+    STT_SECTION = 3;
+    STT_FILE    = 4;
+    STT_COMMON  = 5;
+    STT_TLS     = 6;
+    STT_GNU_IFUNC = 10;
+
+    { program header types }
+    PT_NULL     = 0;
+    PT_LOAD     = 1;
+    PT_DYNAMIC  = 2;
+    PT_INTERP   = 3;
+    PT_NOTE     = 4;
+    PT_SHLIB    = 5;
+    PT_PHDR     = 6;
+    PT_TLS      = 7;
+    PT_LOOS     = $60000000;
+    PT_HIOS     = $6FFFFFFF;
+    PT_LOPROC   = $70000000;
+    PT_HIPROC   = $7FFFFFFF;
+    PT_GNU_EH_FRAME = PT_LOOS + $474e550;   { Frame unwind information }
+    PT_GNU_STACK = PT_LOOS + $474e551;      { Stack flags }
+    PT_GNU_RELRO = PT_LOOS + $474e552;      { Read-only after relocation }
+
+    { program header flags }
+    PF_X = 1;
+    PF_W = 2;
+    PF_R = 4;
+    PF_MASKOS   = $0FF00000;   { OS-specific reserved bits }
+    PF_MASKPROC = $F0000000;   { Processor-specific reserved bits }
+
+    { .dynamic tags  }
+    DT_NULL     = 0;
+    DT_NEEDED   = 1;
+    DT_PLTRELSZ = 2;
+    DT_PLTGOT   = 3;
+    DT_HASH     = 4;
+    DT_STRTAB   = 5;
+    DT_SYMTAB   = 6;
+    DT_RELA     = 7;
+    DT_RELASZ   = 8;
+    DT_RELAENT  = 9;
+    DT_STRSZ    = 10;
+    DT_SYMENT   = 11;
+    DT_INIT     = 12;
+    DT_FINI     = 13;
+    DT_SONAME   = 14;
+    DT_RPATH    = 15;
+    DT_SYMBOLIC = 16;
+    DT_REL      = 17;
+    DT_RELSZ    = 18;
+    DT_RELENT   = 19;
+    DT_PLTREL   = 20;
+    DT_DEBUG    = 21;
+    DT_TEXTREL  = 22;
+    DT_JMPREL   = 23;
+    DT_BIND_NOW = 24;
+    DT_INIT_ARRAY = 25;
+    DT_FINI_ARRAY = 26;
+    DT_INIT_ARRAYSZ = 27;
+    DT_FINI_ARRAYSZ = 28;
+    DT_RUNPATH  = 29;
+    DT_FLAGS    = 30;
+    DT_ENCODING = 32;
+    DT_PREINIT_ARRAY   = 32;
+    DT_PREINIT_ARRAYSZ = 33;
+    DT_NUM      = 34;
+    DT_LOOS     = $6000000D;
+    DT_HIOS     = $6ffff000;
+    DT_LOPROC   = $70000000;
+    DT_HIPROC   = $7fffffff;
+
+    DT_RELACOUNT = $6ffffff9;
+    DT_RELCOUNT  = $6ffffffa;
+    DT_FLAGS_1   = $6ffffffb;
+    DT_VERDEF    = $6ffffffc;
+    DT_VERDEFNUM = $6ffffffd;
+    DT_VERNEED   = $6ffffffe;
+    DT_VERNEEDNUM = $6fffffff;
+
+    GRP_COMDAT = 1;
+
+
+  type
+    { Structures which are written directly to the output file }
+    TElf32header=record
+      e_ident           : array[0..15] of byte;
+      e_type            : word;
+      e_machine         : word;
+      e_version         : longword;
+      e_entry           : longword;         { entrypoint }
+      e_phoff           : longword;         { program header offset }
+      e_shoff           : longword;         { sections header offset }
+      e_flags           : longword;
+      e_ehsize          : word;             { elf header size in bytes }
+      e_phentsize       : word;             { size of an entry in the program header array }
+      e_phnum           : word;             { 0..e_phnum-1 of entrys }
+      e_shentsize       : word;             { size of an entry in sections header array }
+      e_shnum           : word;             { 0..e_shnum-1 of entrys }
+      e_shstrndx        : word;             { index of string section header }
+    end;
+
+    TElf32sechdr=record
+      sh_name           : longword;
+      sh_type           : longword;
+      sh_flags          : longword;
+      sh_addr           : longword;
+      sh_offset         : longword;
+      sh_size           : longword;
+      sh_link           : longword;
+      sh_info           : longword;
+      sh_addralign      : longword;
+      sh_entsize        : longword;
+    end;
+
+    TElf32proghdr=record
+      p_type            : longword;
+      p_offset          : longword;
+      p_vaddr           : longword;
+      p_paddr           : longword;
+      p_filesz          : longword;
+      p_memsz           : longword;
+      p_flags           : longword;
+      p_align           : longword;
+    end;
+
+    TElf32reloc=record
+      address : longword;
+      info    : longword; { bit 0-7: type, 8-31: symbol }
+      addend  : longint;
+    end;
+
+    TElf32symbol=record
+      st_name  : longword;
+      st_value : longword;
+      st_size  : longword;
+      st_info  : byte; { bit 0-3: type, 4-7: bind }
+      st_other : byte;
+      st_shndx : word;
+    end;
+
+    TElf32Dyn=record
+      d_tag: longword;
+      case integer of
+        0: (d_val: longword);
+        1: (d_ptr: longword);
+    end;
+
+    telf64header=record
+      e_ident           : array[0..15] of byte;
+      e_type            : word;
+      e_machine         : word;
+      e_version         : longword;
+      e_entry           : qword;            { entrypoint }
+      e_phoff           : qword;            { program header offset }
+      e_shoff           : qword;            { sections header offset }
+      e_flags           : longword;
+      e_ehsize          : word;             { elf header size in bytes }
+      e_phentsize       : word;             { size of an entry in the program header array }
+      e_phnum           : word;             { 0..e_phnum-1 of entrys }
+      e_shentsize       : word;             { size of an entry in sections header array }
+      e_shnum           : word;             { 0..e_shnum-1 of entrys }
+      e_shstrndx        : word;             { index of string section header }
+    end;
+
+    TElf64sechdr=record
+      sh_name           : longword;
+      sh_type           : longword;
+      sh_flags          : qword;
+      sh_addr           : qword;
+      sh_offset         : qword;
+      sh_size           : qword;
+      sh_link           : longword;
+      sh_info           : longword;
+      sh_addralign      : qword;
+      sh_entsize        : qword;
+    end;
+
+    telf64proghdr=record
+      p_type            : longword;
+      p_flags           : longword;
+      p_offset          : qword;
+      p_vaddr           : qword;
+      p_paddr           : qword;
+      p_filesz          : qword;
+      p_memsz           : qword;
+      p_align           : qword;
+    end;
+
+    telf64reloc=record
+      address : qword;
+      info    : qword; { bit 0-31: type, 32-63: symbol }
+      addend  : int64; { signed! }
+    end;
+
+    telf64symbol=record
+      st_name  : longword;
+      st_info  : byte; { bit 0-3: type, 4-7: bind }
+      st_other : byte;
+      st_shndx : word;
+      st_value : qword;
+      st_size  : qword;
+    end;
+
+    TElf64Dyn=record
+      d_tag: qword;
+      case integer of
+        0: (d_val: qword);
+        1: (d_ptr: qword);
+    end;
+
+    { The following records are same for 32 and 64 bit ELF files }
+    TElfVerdef=record
+      vd_version: word;      { =1 }
+      vd_flags:   word;
+      vd_ndx:     word;
+      vd_cnt:     word;      { number of verdaux records }
+      vd_hash:    longword;  { ELF hash of version name }
+      vd_aux:     longword;  { offset to verdaux records }
+      vd_next:    longword;  { offset to next verdef record }
+    end;
+
+    TElfVerdaux=record
+      vda_name: longword;
+      vda_next: longword;
+    end;
+
+    TElfVerneed=record
+      vn_version: word;      { =VER_NEED_CURRENT }
+      vn_cnt:     word;
+      vn_file:    longword;
+      vn_aux:     longword;
+      vn_next:    longword;
+    end;
+
+    TElfVernaux=record
+      vna_hash:  longword;
+      vna_flags: word;
+      vna_other: word;
+      vna_name:  longword;
+      vna_next:  longword;
+    end;
+
+
+implementation
+
+end.

compiler/ogelf.pas

@@ -32,6 +32,8 @@ interface
        systems,
        { assembler }
        cpuinfo,cpubase,aasmbase,aasmtai,aasmdata,assemble,
+       { ELF definitions }
+       elfbase,
        { output }
        ogbase,
        owbase;
@@ -274,44 +276,6 @@ implementation
     const
       symbolresize = 200*18;
 
-    const
-      EI_MAG0    = 0;
-        ELFMAG0  = $7F;
-      EI_MAG1    = 1;
-        ELFMAG1  = ord('E');
-      EI_MAG2    = 2;
-        ELFMAG2  = ord('L');
-      EI_MAG3    = 3;
-        ELFMAG3  = ord('F');
-      EI_CLASS   = 4;
-        ELFCLASSNONE  = 0;
-        ELFCLASS32    = 1;
-        ELFCLASS64    = 2;
-      EI_DATA    = 5;
-        ELFDATANONE   = 0;
-        ELFDATA2LSB   = 1;
-        ELFDATA2MSB   = 2;
-      EI_VERSION = 6;
-      EI_OSABI   = 7;
-      EI_ABIVERSION = 8;
-      EI_PAD     = 9;
-
-      { ELFHeader.e_type }
-      ET_NONE       = 0;
-      ET_REL        = 1;
-      ET_EXEC       = 2;
-      ET_DYN        = 3;
-      ET_CORE       = 4;
-
-      { ELFHeader.e_machine }
-      EM_SPARC      = 2;
-      EM_386        = 3;
-      EM_M68K       = 4;
-      EM_MIPS       = 8;
-      EM_PPC        = 20;
-      EM_ARM        = 40;
-      EM_X86_64     = 62;
-
 {$ifdef sparc}
       ELFMACHINE = EM_SPARC;
 {$endif sparc}
@@ -337,281 +301,6 @@ implementation
       ELFMACHINE = EM_X86_64;
 {$endif x86_64}
 
-      SHN_UNDEF     = 0;
-      SHN_LORESERVE = $FF00;
-      SHN_ABS       = $fff1;
-      SHN_COMMON    = $fff2;
-
-      SHT_NULL     = 0;
-      SHT_PROGBITS = 1;
-      SHT_SYMTAB   = 2;
-      SHT_STRTAB   = 3;
-      SHT_RELA     = 4;
-      SHT_HASH     = 5;
-      SHT_DYNAMIC  = 6;
-      SHT_NOTE     = 7;
-      SHT_NOBITS   = 8;
-      SHT_REL      = 9;
-      SHT_SHLIB    = 10;
-      SHT_DYNSYM   = 11;
-      SHT_INIT_ARRAY = 14;
-      SHT_FINI_ARRAY = 15;
-      SHT_PREINIT_ARRAY = 16;
-      SHT_GROUP    = 17;
-      SHT_SYMTAB_SHNDX = 18;
-      SHT_GNU_verdef = $6ffffffd;
-      SHT_GNU_verneed = $6ffffffe;
-      SHT_GNU_versym = $6fffffff;
-
-      SHF_WRITE     = 1;
-      SHF_ALLOC     = 2;
-      SHF_EXECINSTR = 4;
-      SHF_MERGE     = 16;
-      SHF_STRINGS   = 32;
-      SHF_INFO_LINK = 64;
-      SHF_LINK_ORDER = 128;
-      SHF_OS_NONCONFORMING = 256;
-      SHF_GROUP     = 512;
-      SHF_TLS       = 1024;
-
-      STB_LOCAL   = 0;
-      STB_GLOBAL  = 1;
-      STB_WEAK    = 2;
-
-      STT_NOTYPE  = 0;
-      STT_OBJECT  = 1;
-      STT_FUNC    = 2;
-      STT_SECTION = 3;
-      STT_FILE    = 4;
-      STT_COMMON  = 5;
-      STT_TLS     = 6;
-      STT_GNU_IFUNC = 10;
-
-      { program header types }
-      PT_NULL     = 0;
-      PT_LOAD     = 1;
-      PT_DYNAMIC  = 2;
-      PT_INTERP   = 3;
-      PT_NOTE     = 4;
-      PT_SHLIB    = 5;
-      PT_PHDR     = 6;
-      PT_TLS      = 7;
-      PT_LOOS     = $60000000;
-      PT_HIOS     = $6FFFFFFF;
-      PT_LOPROC   = $70000000;
-      PT_HIPROC   = $7FFFFFFF;
-      PT_GNU_EH_FRAME = PT_LOOS + $474e550;   { Frame unwind information }
-      PT_GNU_STACK = PT_LOOS + $474e551;      { Stack flags }
-      PT_GNU_RELRO = PT_LOOS + $474e552;      { Read-only after relocation }
-
-      { program header flags }
-      PF_X = 1;
-      PF_W = 2;
-      PF_R = 4;
-      PF_MASKOS   = $0FF00000;   { OS-specific reserved bits }
-      PF_MASKPROC = $F0000000;   { Processor-specific reserved bits }
-
-      { .dynamic tags  }
-      DT_NULL     = 0;
-      DT_NEEDED   = 1;
-      DT_PLTRELSZ = 2;
-      DT_PLTGOT   = 3;
-      DT_HASH     = 4;
-      DT_STRTAB   = 5;
-      DT_SYMTAB	  = 6;
-      DT_RELA     = 7;
-      DT_RELASZ   = 8;
-      DT_RELAENT  = 9;
-      DT_STRSZ    = 10;
-      DT_SYMENT   = 11;
-      DT_INIT     = 12;
-      DT_FINI     = 13;
-      DT_SONAME   = 14;
-      DT_RPATH    = 15;
-      DT_SYMBOLIC = 16;
-      DT_REL      = 17;
-      DT_RELSZ    = 18;
-      DT_RELENT   = 19;
-      DT_PLTREL   = 20;
-      DT_DEBUG    = 21;
-      DT_TEXTREL  = 22;
-      DT_JMPREL   = 23;
-      DT_BIND_NOW = 24;
-      DT_INIT_ARRAY = 25;
-      DT_FINI_ARRAY = 26;
-      DT_INIT_ARRAYSZ = 27;
-      DT_FINI_ARRAYSZ = 28;
-      DT_RUNPATH  = 29;
-      DT_FLAGS    = 30;
-      DT_ENCODING = 32;
-      DT_PREINIT_ARRAY   = 32;
-      DT_PREINIT_ARRAYSZ = 33;
-      DT_NUM      = 34;
-      DT_LOOS     = $6000000D;
-      DT_HIOS     = $6ffff000;
-      DT_LOPROC   = $70000000;
-      DT_HIPROC   = $7fffffff;
-
-      DT_RELACOUNT = $6ffffff9;
-      DT_RELCOUNT  = $6ffffffa;
-      DT_FLAGS_1   = $6ffffffb;
-      DT_VERDEF    = $6ffffffc;
-      DT_VERDEFNUM = $6ffffffd;
-      DT_VERNEED   = $6ffffffe;
-      DT_VERNEEDNUM = $6fffffff;
-
-      GRP_COMDAT = 1;
-
-      type
-      { Structures which are written directly to the output file }
-        TElf32header=packed record
-          e_ident           : array[0..15] of byte;
-          e_type            : word;
-          e_machine         : word;
-          e_version         : longword;
-          e_entry           : longword;         { entrypoint }
-          e_phoff           : longword;         { program header offset }
-          e_shoff           : longword;         { sections header offset }
-          e_flags           : longword;
-          e_ehsize          : word;             { elf header size in bytes }
-          e_phentsize       : word;             { size of an entry in the program header array }
-          e_phnum           : word;             { 0..e_phnum-1 of entrys }
-          e_shentsize       : word;             { size of an entry in sections header array }
-          e_shnum           : word;             { 0..e_shnum-1 of entrys }
-          e_shstrndx        : word;             { index of string section header }
-        end;
-        TElf32sechdr=packed record
-          sh_name           : longword;
-          sh_type           : longword;
-          sh_flags          : longword;
-          sh_addr           : longword;
-          sh_offset         : longword;
-          sh_size           : longword;
-          sh_link           : longword;
-          sh_info           : longword;
-          sh_addralign      : longword;
-          sh_entsize        : longword;
-        end;
-        TElf32proghdr=packed record
-          p_type            : longword;
-          p_offset          : longword;
-          p_vaddr           : longword;
-          p_paddr           : longword;
-          p_filesz          : longword;
-          p_memsz           : longword;
-          p_flags           : longword;
-          p_align           : longword;
-        end;
-        TElf32reloc=packed record
-          address : longword;
-          info    : longword; { bit 0-7: type, 8-31: symbol }
-          addend  : longint;
-        end;
-        TElf32symbol=packed record
-          st_name  : longword;
-          st_value : longword;
-          st_size  : longword;
-          st_info  : byte; { bit 0-3: type, 4-7: bind }
-          st_other : byte;
-          st_shndx : word;
-        end;
-        TElf32Dyn=packed record
-          d_tag: longword;
-          case integer of
-            0: (d_val: longword);
-            1: (d_ptr: longword);
-        end;
-
-
-        telf64header=packed record
-          e_ident           : array[0..15] of byte;
-          e_type            : word;
-          e_machine         : word;
-          e_version         : longword;
-          e_entry           : qword;            { entrypoint }
-          e_phoff           : qword;            { program header offset }
-          e_shoff           : qword;            { sections header offset }
-          e_flags           : longword;
-          e_ehsize          : word;             { elf header size in bytes }
-          e_phentsize       : word;             { size of an entry in the program header array }
-          e_phnum           : word;             { 0..e_phnum-1 of entrys }
-          e_shentsize       : word;             { size of an entry in sections header array }
-          e_shnum           : word;             { 0..e_shnum-1 of entrys }
-          e_shstrndx        : word;             { index of string section header }
-        end;
-        telf64sechdr=packed record
-          sh_name           : longword;
-          sh_type           : longword;
-          sh_flags          : qword;
-          sh_addr           : qword;
-          sh_offset         : qword;
-          sh_size           : qword;
-          sh_link           : longword;
-          sh_info           : longword;
-          sh_addralign      : qword;
-          sh_entsize        : qword;
-        end;
-        telf64proghdr=packed record
-          p_type            : longword;
-          p_flags           : longword;
-          p_offset          : qword;
-          p_vaddr           : qword;
-          p_paddr           : qword;
-          p_filesz          : qword;
-          p_memsz           : qword;
-          p_align           : qword;
-        end;
-        telf64reloc=packed record
-          address : qword;
-          info    : qword; { bit 0-31: type, 32-63: symbol }
-          addend  : int64; { signed! }
-        end;
-        telf64symbol=packed record
-          st_name  : longword;
-          st_info  : byte; { bit 0-3: type, 4-7: bind }
-          st_other : byte;
-          st_shndx : word;
-          st_value : qword;
-          st_size  : qword;
-        end;
-        TElf64Dyn=packed record
-          d_tag: qword;
-          case integer of
-            0: (d_val: qword);
-            1: (d_ptr: qword);
-        end;
-
-        TElfVerdef=record        { same for 32 and 64 bits }
-          vd_version: word;      { =1 }
-          vd_flags:   word;
-          vd_ndx:     word;
-          vd_cnt:     word;      { number of verdaux records }
-          vd_hash:    longword;  { ELF hash of version name }
-          vd_aux:     longword;  { offset to verdaux records }
-          vd_next:    longword;  { offset to next verdef record }
-        end;
-
-        TElfVerdaux=record
-          vda_name: longword;
-          vda_next: longword;
-        end;
-
-        TElfVerneed=record
-          vn_version: word;      { =VER_NEED_CURRENT }
-          vn_cnt:     word;
-          vn_file:    longword;
-          vn_aux:     longword;
-          vn_next:    longword;
-        end;
-
-        TElfVernaux=record
-          vna_hash:  longword;
-          vna_flags: word;
-          vna_other: word;
-          vna_name:  longword;
-          vna_next:  longword;
-        end;
-
 {$ifdef cpu64bitaddr}
       const
         ELFCLASS = ELFCLASS64;