From b5797a5cef6d25817da7998f6263afa53e196d25 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Tue, 5 Jan 2016 06:44:53 +0100
Subject: mcode: add support for x86-64

---
 src/ortho/mcode/elf32.adb | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'src/ortho/mcode/elf32.adb')

diff --git a/src/ortho/mcode/elf32.adb b/src/ortho/mcode/elf32.adb
index ef58fe64b..02c9791f5 100644
--- a/src/ortho/mcode/elf32.adb
+++ b/src/ortho/mcode/elf32.adb
@@ -16,21 +16,6 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 package body Elf32 is
-   function Elf32_St_Bind (Info : Elf32_Uchar) return Elf32_Uchar is
-   begin
-      return Shift_Right (Info, 4);
-   end Elf32_St_Bind;
-
-   function Elf32_St_Type (Info : Elf32_Uchar) return Elf32_Uchar is
-   begin
-      return Info and 16#0F#;
-   end Elf32_St_Type;
-
-   function Elf32_St_Info (B, T : Elf32_Uchar) return Elf32_Uchar is
-   begin
-      return Shift_Left (B, 4) or T;
-   end Elf32_St_Info;
-
    function Elf32_R_Sym (I : Elf32_Word) return Elf32_Word is
    begin
       return Shift_Right (I, 8);
-- 
cgit v1.2.3