1 files changed, 0 insertions, 29 deletions
diff --git a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.adb b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.adb
deleted file mode 100644
index 9705d069d8..0000000000
--- a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.adb
+++ /dev/null
@@ -1,29 +0,0 @@
-with System.Machine_Code;
-use System.Machine_Code;
-
-package body I386_Ports is
-
-   procedure Outport (Addr: in Port_Address; Data: in Byte) is
-   begin
-      Asm ("movb %0, %%al;" &
-           "movw %1, %%dx;" &
-           "outb %%al, %%dx",
-           No_Output_Operands,
-           (Byte'Asm_Input ("g", Data),
-            Port_Address'Asm_Input ("g", Addr)),
-           Clobber => "al dx",
-           Volatile => True);
-   end Outport;
-
-   procedure Inport (Addr: in Port_Address; Data: out Byte) is
-   begin
-      Asm ("movw %1, %%dx;"   &
-           "inb %%dx, %%al;"  &
-           "movb %%al, %0",
-           Byte'Asm_Output ("=g", Data),
-           Port_Address'Asm_Input ("g", Addr),
-           Clobber => "dx al",
-           Volatile => True);
-   end Inport;
-
-end I386_Ports;