1 files changed, 164 insertions, 0 deletions
diff --git a/ortho/mcode/elfdumper.ads b/ortho/mcode/elfdumper.ads
new file mode 100644
index 0000000..0227f0f
--- /dev/null
+++ b/ortho/mcode/elfdumper.ads
@@ -0,0 +1,164 @@
+--  ELF dumper (library).
+--  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 System; use System;
+with Elf_Common; use Elf_Common;
+with Elf_Arch; use Elf_Arch;
+with Ada.Unchecked_Conversion;
+
+package Elfdumper is
+   procedure Disp_Ehdr (Ehdr : Elf_Ehdr);
+
+   type Strtab_Fat_Type is array (Elf_Size) of Character;
+   type Strtab_Fat_Acc is access all Strtab_Fat_Type;
+
+   type Strtab_Type is record
+      Base : Strtab_Fat_Acc;
+      Length : Elf_Size;
+   end record;
+
+   Null_Strtab : constant Strtab_Type := (null, 0);
+
+   Nul : constant Character := Character'Val (0);
+
+   function Get_String (Strtab : Strtab_Type; N : Elf_Size)
+                       return String;
+
+   procedure Disp_Shdr (Shdr : Elf_Shdr; Sh_Strtab : Strtab_Type);
+
+   type Elf_Shdr_Array is array (Elf_Half range <>) of Elf_Shdr;
+
+   type Elf_File is limited private;
+   type Elf_File_Status is
+     (
+      --  No error.
+      Status_Ok,
+
+      --  Cannot open file.
+      Status_Open_Failure,
+
+      Status_Bad_File,
+      Status_Memory,
+      Status_Read_Error,
+      Status_Bad_Magic,
+      Status_Bad_Class
+      );
+
+   procedure Open_File (File : out Elf_File; Filename : String);
+
+   function Get_Status (File : Elf_File) return Elf_File_Status;
+
+   type Elf_Ehdr_Acc is access all Elf_Ehdr;
+
+   function Get_Ehdr (File : Elf_File) return Elf_Ehdr_Acc;
+
+   procedure Load_Shdr (File : in out Elf_File);
+
+   type Elf_Shdr_Acc is access all Elf_Shdr;
+
+   function Get_Shdr (File : Elf_File; Index : Elf_Half)
+                     return Elf_Shdr_Acc;
+
+   function Get_Shdr_Type_Name (Stype : Elf_Word) return String;
+
+   procedure Load_Phdr (File : in out Elf_File);
+
+   type Elf_Phdr_Acc is access all Elf_Phdr;
+
+   function Get_Phdr (File : Elf_File; Index : Elf_Half)
+                     return Elf_Phdr_Acc;
+
+   function Get_Segment_Base (File : Elf_File; Index : Elf_Half)
+                             return Address;
+
+   function Get_Sh_Strtab (File : Elf_File) return Strtab_Type;
+
+   procedure Disp_Sym (File : Elf_File;
+                       Sym : Elf_Sym;
+                       Strtab : Strtab_Type);
+
+   procedure Disp_Symtab (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Strtab (File : Elf_File; Index : Elf_Half);
+
+   function Get_Section_Name (File : Elf_File; Index : Elf_Half)
+                             return String;
+
+   function Get_Section_By_Name (File : Elf_File; Name : String)
+                                return Elf_Half;
+
+   procedure Disp_Debug_Abbrev (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Debug_Info (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Debug_Pubnames (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Debug_Aranges (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Debug_Line (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Debug_Frame (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Eh_Frame_Hdr (File : Elf_File; Index : Elf_Half);
+
+   procedure Disp_Phdr (Phdr : Elf_Phdr);
+
+   procedure Disp_Segment_Note (File : Elf_File; Index : Elf_Half);
+   procedure Disp_Section_Note (File : Elf_File; Index : Elf_Half);
+
+   procedure Disp_Dynamic (File : Elf_File; Index : Elf_Half);
+private
+   use System;
+
+   function To_Strtab_Fat_Acc is new Ada.Unchecked_Conversion
+     (Address, Strtab_Fat_Acc);
+
+   type String_Acc is access String;
+
+   function To_Elf_Ehdr_Acc is new Ada.Unchecked_Conversion
+     (Address, Elf_Ehdr_Acc);
+
+   function To_Elf_Phdr_Acc is new Ada.Unchecked_Conversion
+     (Address, Elf_Phdr_Acc);
+
+   function To_Elf_Shdr_Acc is new Ada.Unchecked_Conversion
+     (Address, Elf_Shdr_Acc);
+
+   type Elf_Sym_Acc is access all Elf_Sym;
+   function To_Elf_Sym_Acc is new Ada.Unchecked_Conversion
+     (Address, Elf_Sym_Acc);
+
+   type Elf_Shdr_Arr is array (Elf_Half) of Elf_Shdr;
+
+   type Elf_Shdr_Arr_Acc is access all Elf_Shdr_Arr;
+   function To_Elf_Shdr_Arr_Acc is new Ada.Unchecked_Conversion
+     (Address, Elf_Shdr_Arr_Acc);
+
+   type Elf_File is record
+      --  Name of the file.
+      Filename : String_Acc;
+
+      --  Status, used to report errors.
+      Status : Elf_File_Status;
+
+      --  Length of the file.
+      Length : Elf_Off;
+
+      --  File contents.
+      Base : Address;
+
+      Ehdr : Elf_Ehdr_Acc;
+
+      Shdr_Base : Address;
+      Sh_Strtab : Strtab_Type;
+
+      Phdr_Base : Address;
+   end record;
+end Elfdumper;