diff options
Diffstat (limited to 'ortho/mcode/elf_common.ads')
| -rw-r--r-- | ortho/mcode/elf_common.ads | 250 |
1 files changed, 0 insertions, 250 deletions
diff --git a/ortho/mcode/elf_common.ads b/ortho/mcode/elf_common.ads deleted file mode 100644 index 28186d094..000000000 --- a/ortho/mcode/elf_common.ads +++ /dev/null @@ -1,250 +0,0 @@ --- ELF definitions. --- Copyright (C) 2006 Tristan Gingold --- --- GHDL 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, or (at your option) any later --- version. --- --- GHDL 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 GCC; see the file COPYING. If not, write to the Free --- Software Foundation, 59 Temple Place - Suite 330, Boston, MA --- 02111-1307, USA. -with Interfaces; use Interfaces; - -package Elf_Common is - subtype Elf_Half is Unsigned_16; - subtype Elf_Sword is Integer_32; - subtype Elf_Word is Unsigned_32; - subtype Elf_Uchar is Unsigned_8; - - EI_NIDENT : constant Natural := 16; - type E_Ident_Type is array (Natural range 0 .. EI_NIDENT - 1) - of Elf_Uchar; - - -- e_type values. - ET_NONE : constant Elf_Half := 0; -- No file type - ET_REL : constant Elf_Half := 1; -- Relocatable file - ET_EXEC : constant Elf_Half := 2; -- Executable file - ET_DYN : constant Elf_Half := 3; -- Shared object file - ET_CORE : constant Elf_Half := 4; -- Core file - ET_LOPROC : constant Elf_Half := 16#Ff00#; -- Processor-specific - ET_HIPROC : constant Elf_Half := 16#Ffff#; -- Processor-specific - - -- e_machine values. - EM_NONE : constant Elf_Half := 0; -- No machine - EM_M32 : constant Elf_Half := 1; -- AT&T WE 32100 - EM_SPARC : constant Elf_Half := 2; -- SPARC - EM_386 : constant Elf_Half := 3; -- Intel Architecture - EM_68K : constant Elf_Half := 4; -- Motorola 68000 - EM_88K : constant Elf_Half := 5; -- Motorola 88000 - EM_860 : constant Elf_Half := 7; -- Intel 80860 - EM_MIPS : constant Elf_Half := 8; -- MIPS RS3000 Big-Endian - EM_MIPS_RS4_BE : constant Elf_Half := 10; -- MIPS RS4000 Big-Endian - -- RESERVED : constant Elf_Half := 11; -- -16 Reserved for future use - - -- e_version - EV_NONE : constant Elf_Uchar := 0; -- Invalid versionn - EV_CURRENT : constant Elf_Uchar := 1; -- Current version - - -- e_ident identification indexes. - EI_MAG0 : constant Natural := 0; -- File identification - EI_MAG1 : constant Natural := 1; -- File identification - EI_MAG2 : constant Natural := 2; -- File identification - EI_MAG3 : constant Natural := 3; -- File identification - EI_CLASS : constant Natural := 4; -- File class - EI_DATA : constant Natural := 5; -- Data encoding - EI_VERSION : constant Natural := 6; -- File version - EI_PAD : constant Natural := 7; -- Start of padding bytes - --EI_NIDENT : constant Natural := 16; -- Size of e_ident[] - - -- Magic values. - ELFMAG0 : constant Elf_Uchar := 16#7f#; -- e_ident[EI_MAG0] - ELFMAG1 : constant Elf_Uchar := Character'Pos ('E'); -- e_ident[EI_MAG1] - ELFMAG2 : constant Elf_Uchar := Character'Pos ('L'); -- e_ident[EI_MAG2] - ELFMAG3 : constant Elf_Uchar := Character'Pos ('F'); -- e_ident[EI_MAG3] - - ELFCLASSNONE : constant Elf_Uchar := 0; -- Invalid class - ELFCLASS32 : constant Elf_Uchar := 1; -- 32-bit objects - ELFCLASS64 : constant Elf_Uchar := 2; -- 64-bit objects - - ELFDATANONE : constant Elf_Uchar := 0; -- Invalid data encoding - ELFDATA2LSB : constant Elf_Uchar := 1; -- See below - ELFDATA2MSB : constant Elf_Uchar := 2; -- See below - - SHN_UNDEF : constant Elf_Half := 0; -- - SHN_LORESERVE : constant Elf_Half := 16#Ff00#; -- - SHN_LOPROC : constant Elf_Half := 16#ff00#; -- - SHN_HIPROC : constant Elf_Half := 16#ff1f#; -- - SHN_ABS : constant Elf_Half := 16#fff1#; -- - SHN_COMMON : constant Elf_Half := 16#fff2#; -- - SHN_HIRESERVE : constant Elf_Half := 16#ffff#; -- - - -- Sh_type. - SHT_NULL : constant Elf_Word := 0; - SHT_PROGBITS : constant Elf_Word := 1; - SHT_SYMTAB : constant Elf_Word := 2; - SHT_STRTAB : constant Elf_Word := 3; - SHT_RELA : constant Elf_Word := 4; - SHT_HASH : constant Elf_Word := 5; - SHT_DYNAMIC : constant Elf_Word := 6; - SHT_NOTE : constant Elf_Word := 7; - SHT_NOBITS : constant Elf_Word := 8; - SHT_REL : constant Elf_Word := 9; - SHT_SHLIB : constant Elf_Word := 10; - SHT_DYNSYM : constant Elf_Word := 11; - SHT_INIT_ARRAY : constant Elf_Word := 14; - SHT_FINI_ARRAY : constant Elf_Word := 15; - SHT_PREINIT_ARRAY : constant Elf_Word := 16; - SHT_GROUP : constant Elf_Word := 17; - SHT_SYMTAB_SHNDX : constant Elf_Word := 18; - SHT_NUM : constant Elf_Word := 19; - SHT_LOOS : constant Elf_Word := 16#60000000#; - SHT_GNU_LIBLIST : constant Elf_Word := 16#6ffffff7#; - SHT_CHECKSUM : constant Elf_Word := 16#6ffffff8#; - SHT_LOSUNW : constant Elf_Word := 16#6ffffffa#; - SHT_SUNW_Move : constant Elf_Word := 16#6ffffffa#; - SHT_SUNW_COMDAT : constant Elf_Word := 16#6ffffffb#; - SHT_SUNW_Syminfo : constant Elf_Word := 16#6ffffffc#; - SHT_GNU_Verdef : constant Elf_Word := 16#6ffffffd#; - SHT_GNU_Verneed : constant Elf_Word := 16#6ffffffe#; - SHT_GNU_Versym : constant Elf_Word := 16#6fffffff#; - SHT_HISUNW : constant Elf_Word := 16#6fffffff#; - SHT_HIOS : constant Elf_Word := 16#6fffffff#; - SHT_LOPROC : constant Elf_Word := 16#70000000#; - SHT_HIPROC : constant Elf_Word := 16#7fffffff#; - SHT_LOUSER : constant Elf_Word := 16#80000000#; - SHT_HIUSER : constant Elf_Word := 16#ffffffff#; - - - SHF_WRITE : constant := 16#1#; - SHF_ALLOC : constant := 16#2#; - SHF_EXECINSTR : constant := 16#4#; - SHF_MASKPROC : constant := 16#F0000000#; - - function Elf_St_Bind (Info : Elf_Uchar) return Elf_Uchar; - function Elf_St_Type (Info : Elf_Uchar) return Elf_Uchar; - function Elf_St_Info (B, T : Elf_Uchar) return Elf_Uchar; - pragma Inline (Elf_St_Bind); - pragma Inline (Elf_St_Type); - pragma Inline (Elf_St_Info); - - -- Symbol binding. - STB_LOCAL : constant Elf_Uchar := 0; - STB_GLOBAL : constant Elf_Uchar := 1; - STB_WEAK : constant Elf_Uchar := 2; - STB_LOPROC : constant Elf_Uchar := 13; - STB_HIPROC : constant Elf_Uchar := 15; - - -- Symbol types. - STT_NOTYPE : constant Elf_Uchar := 0; - STT_OBJECT : constant Elf_Uchar := 1; - STT_FUNC : constant Elf_Uchar := 2; - STT_SECTION : constant Elf_Uchar := 3; - STT_FILE : constant Elf_Uchar := 4; - STT_LOPROC : constant Elf_Uchar := 13; - STT_HIPROC : constant Elf_Uchar := 15; - - - PT_NULL : constant Elf_Word := 0; - PT_LOAD : constant Elf_Word := 1; - PT_DYNAMIC : constant Elf_Word := 2; - PT_INTERP : constant Elf_Word := 3; - PT_NOTE : constant Elf_Word := 4; - PT_SHLIB : constant Elf_Word := 5; - PT_PHDR : constant Elf_Word := 6; - PT_TLS : constant Elf_Word := 7; - PT_NUM : constant Elf_Word := 8; - PT_LOOS : constant Elf_Word := 16#60000000#; - PT_GNU_EH_FRAME : constant Elf_Word := 16#6474e550#; - PT_LOSUNW : constant Elf_Word := 16#6ffffffa#; - PT_SUNWBSS : constant Elf_Word := 16#6ffffffa#; - PT_SUNWSTACK : constant Elf_Word := 16#6ffffffb#; - PT_HISUNW : constant Elf_Word := 16#6fffffff#; - PT_HIOS : constant Elf_Word := 16#6fffffff#; - PT_LOPROC : constant Elf_Word := 16#70000000#; - PT_HIPROC : constant Elf_Word := 16#7fffffff#; - - PF_X : constant Elf_Word := 1; - PF_W : constant Elf_Word := 2; - PF_R : constant Elf_Word := 4; - - DT_NULL : constant Elf_Word := 0; - DT_NEEDED : constant Elf_Word := 1; - DT_PLTRELSZ : constant Elf_Word := 2; - DT_PLTGOT : constant Elf_Word := 3; - DT_HASH : constant Elf_Word := 4; - DT_STRTAB : constant Elf_Word := 5; - DT_SYMTAB : constant Elf_Word := 6; - DT_RELA : constant Elf_Word := 7; - DT_RELASZ : constant Elf_Word := 8; - DT_RELAENT : constant Elf_Word := 9; - DT_STRSZ : constant Elf_Word := 10; - DT_SYMENT : constant Elf_Word := 11; - DT_INIT : constant Elf_Word := 12; - DT_FINI : constant Elf_Word := 13; - DT_SONAME : constant Elf_Word := 14; - DT_RPATH : constant Elf_Word := 15; - DT_SYMBOLIC : constant Elf_Word := 16; - DT_REL : constant Elf_Word := 17; - DT_RELSZ : constant Elf_Word := 18; - DT_RELENT : constant Elf_Word := 19; - DT_PLTREL : constant Elf_Word := 20; - DT_DEBUG : constant Elf_Word := 21; - DT_TEXTREL : constant Elf_Word := 22; - DT_JMPREL : constant Elf_Word := 23; - DT_BIND_NOW : constant Elf_Word := 24; - DT_INIT_ARRAY : constant Elf_Word := 25; - DT_FINI_ARRAY : constant Elf_Word := 26; - DT_INIT_ARRAYSZ : constant Elf_Word := 27; - DT_FINI_ARRAYSZ : constant Elf_Word := 28; - DT_RUNPATH : constant Elf_Word := 29; - DT_FLAGS : constant Elf_Word := 30; - DT_ENCODING : constant Elf_Word := 32; - DT_PREINIT_ARRAY : constant Elf_Word := 32; - DT_PREINIT_ARRAYSZ : constant Elf_Word := 33; - DT_NUM : constant Elf_Word := 34; - DT_LOOS : constant Elf_Word := 16#60000000#; - DT_HIOS : constant Elf_Word := 16#6fffffff#; - DT_LOPROC : constant Elf_Word := 16#70000000#; - DT_HIPROC : constant Elf_Word := 16#7fffffff#; - DT_VALRNGLO : constant Elf_Word := 16#6ffffd00#; - DT_GNU_PRELINKED : constant Elf_Word := 16#6ffffdf5#; - DT_GNU_CONFLICTSZ : constant Elf_Word := 16#6ffffdf6#; - DT_GNU_LIBLISTSZ : constant Elf_Word := 16#6ffffdf7#; - DT_CHECKSUM : constant Elf_Word := 16#6ffffdf8#; - DT_PLTPADSZ : constant Elf_Word := 16#6ffffdf9#; - DT_MOVEENT : constant Elf_Word := 16#6ffffdfa#; - DT_MOVESZ : constant Elf_Word := 16#6ffffdfb#; - DT_FEATURE_1 : constant Elf_Word := 16#6ffffdfc#; - DT_POSFLAG_1 : constant Elf_Word := 16#6ffffdfd#; - DT_SYMINSZ : constant Elf_Word := 16#6ffffdfe#; - DT_SYMINENT : constant Elf_Word := 16#6ffffdff#; - DT_VALRNGHI : constant Elf_Word := 16#6ffffdff#; - DT_ADDRRNGLO : constant Elf_Word := 16#6ffffe00#; - DT_GNU_CONFLICT : constant Elf_Word := 16#6ffffef8#; - DT_GNU_LIBLIST : constant Elf_Word := 16#6ffffef9#; - DT_CONFIG : constant Elf_Word := 16#6ffffefa#; - DT_DEPAUDIT : constant Elf_Word := 16#6ffffefb#; - DT_AUDIT : constant Elf_Word := 16#6ffffefc#; - DT_PLTPAD : constant Elf_Word := 16#6ffffefd#; - DT_MOVETAB : constant Elf_Word := 16#6ffffefe#; - DT_SYMINFO : constant Elf_Word := 16#6ffffeff#; - DT_ADDRRNGHI : constant Elf_Word := 16#6ffffeff#; - DT_VERSYM : constant Elf_Word := 16#6ffffff0#; - DT_RELACOUNT : constant Elf_Word := 16#6ffffff9#; - DT_RELCOUNT : constant Elf_Word := 16#6ffffffa#; - DT_FLAGS_1 : constant Elf_Word := 16#6ffffffb#; - DT_VERDEF : constant Elf_Word := 16#6ffffffc#; - DT_VERDEFNUM : constant Elf_Word := 16#6ffffffd#; - DT_VERNEED : constant Elf_Word := 16#6ffffffe#; - DT_VERNEEDNUM : constant Elf_Word := 16#6fffffff#; - DT_AUXILIARY : constant Elf_Word := 16#7ffffffd#; - DT_FILTER : constant Elf_Word := 16#7fffffff#; - -end Elf_Common; |