1 files changed, 0 insertions, 140 deletions
diff --git a/c/src/ada/rtems-clock.adb b/c/src/ada/rtems-clock.adb
deleted file mode 100644
index d6f596a5d5..0000000000
--- a/c/src/ada/rtems-clock.adb
+++ /dev/null
@@ -1,140 +0,0 @@
---
---  RTEMS / Body
---
---  DESCRIPTION:
---
---  This package provides the interface to the RTEMS API.
---
---
---  DEPENDENCIES:
---
---
---
---  COPYRIGHT (c) 1997-2011.
---  On-Line Applications Research Corporation (OAR).
---
---  The license and distribution terms for this file may in
---  the file LICENSE in this distribution or at
---  http://www.rtems.org/license/LICENSE.
---
-
-package body RTEMS.Clock is
-
-   --
-   -- Clock Manager
-   --
-
-   procedure Set
-     (Time_Buffer : in RTEMS.Time_Of_Day;
-      Result      : out RTEMS.Status_Codes)
-   is
-      function Set_Base
-        (Time_Buffer : access RTEMS.Time_Of_Day)
-         return        RTEMS.Status_Codes;
-      pragma Import (C, Set_Base, "rtems_clock_set");
-
-      Tmp_Time : aliased RTEMS.Time_Of_Day;
-   begin
-
-      Tmp_Time := Time_Buffer;
-      Result   := Set_Base (Tmp_Time'Access);
-
-   end Set;
-
-   procedure Get_TOD
-     (Time   : out RTEMS.Time_Of_Day;
-      Result : out RTEMS.Status_Codes)
-   is
-      function Get_TOD_Base
-        (Time : access RTEMS.Time_Of_Day)
-         return RTEMS.Status_Codes;
-      pragma Import (C, Get_TOD_Base, "rtems_clock_get_tod");
-
-      Tmp_Time : aliased RTEMS.Time_Of_Day;
-   begin
-      Result := Get_TOD_Base (Tmp_Time'Access);
-      Time   := Tmp_Time;
-   end Get_TOD;
-
-   procedure Get_TOD_Time_Value
-     (Time   : out RTEMS.Time_Value;
-      Result : out RTEMS.Status_Codes)
-   is
-      function Get_TOD_Time_Value_Base
-        (Time : access RTEMS.Time_Value)
-         return RTEMS.Status_Codes;
-      pragma Import
-        (C,
-         Get_TOD_Time_Value_Base,
-         "rtems_clock_get_tod_timeval");
-
-      Tmp_Time : aliased RTEMS.Time_Value;
-   begin
-      Result := Get_TOD_Time_Value_Base (Tmp_Time'Access);
-      Time   := Tmp_Time;
-   end Get_TOD_Time_Value;
-
-   procedure Get_Seconds_Since_Epoch
-     (The_Interval : out RTEMS.Interval;
-      Result       : out RTEMS.Status_Codes)
-   is
-      function Get_Seconds_Since_Epoch_Base
-        (The_Interval : access RTEMS.Interval)
-         return         RTEMS.Status_Codes;
-      pragma Import
-        (C,
-         Get_Seconds_Since_Epoch_Base,
-         "rtems_clock_get_seconds_since_epoch");
-
-      Tmp_Interval : aliased RTEMS.Interval;
-   begin
-      Result       :=
-         Get_Seconds_Since_Epoch_Base (Tmp_Interval'Access);
-      The_Interval := Tmp_Interval;
-   end Get_Seconds_Since_Epoch;
-
-   -- Get_Ticks_Per_Second is in rtems.ads
-
-   -- Get_Ticks_Since_Boot is in rtems.ads
-
-   procedure Get_Uptime
-     (Uptime : out RTEMS.Timespec;
-      Result : out RTEMS.Status_Codes)
-   is
-      function Get_Uptime_Base
-        (Uptime : access RTEMS.Timespec)
-         return   RTEMS.Status_Codes;
-      pragma Import (C, Get_Uptime_Base, "rtems_clock_get_uptime");
-      Uptime_Base : aliased RTEMS.Timespec;
-   begin
-
-      Result := Get_Uptime_Base (Uptime_Base'Access);
-      Uptime := Uptime_Base;
-
-   end Get_Uptime;
-
-   procedure Tick (Result : out RTEMS.Status_Codes) is
-      function Tick_Base return  RTEMS.Status_Codes;
-      pragma Import (C, Tick_Base, "rtems_clock_tick");
-   begin
-
-      Result := Tick_Base;
-
-   end Tick;
-
-   function Get_Ticks_Since_Boot
-      return RTEMS.Interval
-   is
-      Watchdog_Ticks_since_boot : RTEMS.Interval;
-      pragma Import (
-         C,
-         Watchdog_Ticks_since_boot,
-         "_Watchdog_Ticks_since_boot"
-      );
-   begin
-
-      return Watchdog_Ticks_since_boot;
-
-   end Get_Ticks_Since_Boot;
-
-end RTEMS.Clock;