blob: 5afd317f60a723c10ed94451c8722567e8b88a6b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
-- ELF32 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;
with System;
with Elf_Common; use Elf_Common;
package Elf32 is
subtype Elf32_Addr is Unsigned_32;
subtype Elf32_Half is Unsigned_16;
subtype Elf32_Off is Unsigned_32;
subtype Elf32_Sword is Integer_32;
subtype Elf32_Word is Unsigned_32;
subtype Elf32_Uchar is Unsigned_8;
type Elf32_Ehdr is record
E_Ident : E_Ident_Type;
E_Type : Elf32_Half;
E_Machine : Elf32_Half;
E_Version : Elf32_Word;
E_Entry : Elf32_Addr;
E_Phoff : Elf32_Off;
E_Shoff : Elf32_Off;
E_Flags : Elf32_Word;
E_Ehsize : Elf32_Half;
E_Phentsize : Elf32_Half;
E_Phnum : Elf32_Half;
E_Shentsize : Elf32_Half;
E_Shnum : Elf32_Half;
E_Shstrndx : Elf32_Half;
end record;
Elf32_Ehdr_Size : constant Natural := Elf32_Ehdr'Size / System.Storage_Unit;
type Elf32_Shdr is record
Sh_Name : Elf32_Word;
Sh_Type : Elf32_Word;
Sh_Flags : Elf32_Word;
Sh_Addr : Elf32_Addr;
Sh_Offset : Elf32_Off;
Sh_Size : Elf32_Word;
Sh_Link : Elf32_Word;
Sh_Info : Elf32_Word;
Sh_Addralign : Elf32_Word;
Sh_Entsize : Elf32_Word;
end record;
Elf32_Shdr_Size : constant Natural := Elf32_Shdr'Size / System.Storage_Unit;
-- Symbol table.
type Elf32_Sym is record
St_Name : Elf32_Word;
St_Value : Elf32_Addr;
St_Size : Elf32_Word;
St_Info : Elf32_Uchar;
St_Other : Elf32_Uchar;
St_Shndx : Elf32_Half;
end record;
Elf32_Sym_Size : constant Natural := Elf32_Sym'Size / System.Storage_Unit;
function Elf32_St_Bind (Info : Elf32_Uchar) return Elf32_Uchar;
function Elf32_St_Type (Info : Elf32_Uchar) return Elf32_Uchar;
function Elf32_St_Info (B, T : Elf32_Uchar) return Elf32_Uchar;
pragma Inline (Elf32_St_Bind);
pragma Inline (Elf32_St_Type);
pragma Inline (Elf32_St_Info);
-- Relocation.
type Elf32_Rel is record
R_Offset : Elf32_Addr;
R_Info : Elf32_Word;
end record;
Elf32_Rel_Size : constant Natural := Elf32_Rel'Size / System.Storage_Unit;
type Elf32_Rela is record
R_Offset : Elf32_Addr;
R_Info : Elf32_Word;
R_Addend : Elf32_Sword;
end record;
Elf32_Rela_Size : constant Natural := Elf32_Rela'Size / System.Storage_Unit;
function Elf32_R_Sym (I : Elf32_Word) return Elf32_Word;
function Elf32_R_Type (I : Elf32_Word) return Elf32_Word;
function Elf32_R_Info (S, T : Elf32_Word) return Elf32_Word;
-- For i386
R_386_NONE : constant Elf32_Word := 0; -- none none
R_386_32 : constant Elf32_Word := 1; -- word32 S+A
R_386_PC32 : constant Elf32_Word := 2; -- word32 S+A-P
-- For sparc
R_SPARC_NONE : constant Elf32_Word := 0; -- none
R_SPARC_32 : constant Elf32_Word := 3; -- (S + A)
R_SPARC_WDISP30 : constant Elf32_Word := 7; -- (S + A - P) >> 2
R_SPARC_WDISP22 : constant Elf32_Word := 8; -- (S + A - P) >> 2
R_SPARC_HI22 : constant Elf32_Word := 9; -- (S + A) >> 10
R_SPARC_LO10 : constant Elf32_Word := 12; -- (S + A) & 0x3ff
R_SPARC_UA32 : constant Elf32_Word := 23; -- (S + A)
type Elf32_Phdr is record
P_Type : Elf32_Word;
P_Offset : Elf32_Off;
P_Vaddr : Elf32_Addr;
P_Paddr : Elf32_Addr;
P_Filesz : Elf32_Word;
P_Memsz : Elf32_Word;
P_Flags : Elf32_Word;
P_Align : Elf32_Word;
end record;
Elf32_Phdr_Size : constant Natural := Elf32_Phdr'Size / System.Storage_Unit;
end Elf32;
|
