diff options
author | Tristan Gingold <gingold@adacore.com> | 2016-01-05 06:44:53 +0100 |
---|---|---|
committer | Tristan Gingold <gingold@adacore.com> | 2016-01-06 18:38:37 +0100 |
commit | b5797a5cef6d25817da7998f6263afa53e196d25 (patch) | |
tree | ad3b67a93d16e8a06fab2d7a8c4d8993ff101b8a /src/ortho/mcode/elf_arch32.ads | |
parent | 955e964b024de556c4c0db8fd745c6abdb8052fe (diff) | |
download | ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.tar.gz ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.tar.bz2 ghdl-b5797a5cef6d25817da7998f6263afa53e196d25.zip |
mcode: add support for x86-64
Diffstat (limited to 'src/ortho/mcode/elf_arch32.ads')
-rw-r--r-- | src/ortho/mcode/elf_arch32.ads | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/ortho/mcode/elf_arch32.ads b/src/ortho/mcode/elf_arch32.ads index 5e987b1e6..e04ee1cce 100644 --- a/src/ortho/mcode/elf_arch32.ads +++ b/src/ortho/mcode/elf_arch32.ads @@ -28,10 +28,21 @@ package Elf_Arch32 is subtype Elf_Off is Elf32_Off; subtype Elf_Size is Elf32_Word; + subtype Elf_Addr is Elf32_Addr; Elf_Ehdr_Size : constant Natural := Elf32_Ehdr_Size; Elf_Shdr_Size : constant Natural := Elf32_Shdr_Size; Elf_Phdr_Size : constant Natural := Elf32_Phdr_Size; Elf_Sym_Size : constant Natural := Elf32_Sym_Size; + Elf_Rel_Size : constant Natural := Elf32_Rel_Size; + Elf_Rela_Size : constant Natural := Elf32_Rela_Size; Elf_Arch_Class : constant Elf_Uchar := ELFCLASS32; + + function Elf_R_Sym (I : Elf32_Word) return Elf32_Word + renames Elf32_R_Sym; + function Elf_R_Type (I : Elf32_Word) return Elf32_Word + renames Elf32_R_Type; + function Elf_R_Info (S, T : Elf32_Word) return Elf32_Word + renames Elf32_R_Info; + end Elf_Arch32; |