From b5797a5cef6d25817da7998f6263afa53e196d25 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 5 Jan 2016 06:44:53 +0100 Subject: mcode: add support for x86-64 --- src/ortho/mcode/elf_arch64.ads | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/ortho/mcode/elf_arch64.ads') diff --git a/src/ortho/mcode/elf_arch64.ads b/src/ortho/mcode/elf_arch64.ads index 504cd66b3..481b341f7 100644 --- a/src/ortho/mcode/elf_arch64.ads +++ b/src/ortho/mcode/elf_arch64.ads @@ -28,10 +28,20 @@ package Elf_Arch64 is subtype Elf_Off is Elf64_Off; subtype Elf_Size is Elf64_Xword; + subtype Elf_Addr is Elf64_Addr; Elf_Ehdr_Size : constant Natural := Elf64_Ehdr_Size; Elf_Shdr_Size : constant Natural := Elf64_Shdr_Size; Elf_Phdr_Size : constant Natural := Elf64_Phdr_Size; Elf_Sym_Size : constant Natural := Elf64_Sym_Size; + Elf_Rel_Size : constant Natural := Elf64_Rel_Size; + Elf_Rela_Size : constant Natural := Elf64_Rela_Size; Elf_Arch_Class : constant Elf_Uchar := ELFCLASS64; + + function Elf_R_Sym (I : Elf64_Xword) return Elf_Word + renames Elf64_R_Sym; + function Elf_R_Type (I : Elf64_Xword) return Elf_Word + renames Elf64_R_Type; + function Elf_R_Info (S, T : Elf_Word) return Elf64_Xword + renames Elf64_R_Info; end Elf_Arch64; -- cgit v1.2.3