1 files changed, 0 insertions, 15 deletions
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);