diff options
| author | Joel Sherrill <joel@rtems.org> | 2016-03-22 17:13:30 -0500 |
|---|---|---|
| committer | Joel Sherrill <joel@rtems.org> | 2016-04-14 16:36:53 -0500 |
| commit | e65c45c4b6cf6dfb485bef48385e39969de8b361 (patch) | |
| tree | 2ef5f976ff45c59bd29ce006f2c2585cd0e05e23 /c/src/ada | |
| parent | conddefaultattributes.c: Add default clock to structure. (diff) | |
| download | rtems-e65c45c4b6cf6dfb485bef48385e39969de8b361.tar.bz2 | |
Obsolete rtems_clock_get() directive.
This service was marked as deprecated long prior to the 4.11 release
series and is now being removed.
closes #2676.
Diffstat (limited to 'c/src/ada')
| -rw-r--r-- | c/src/ada/rtems-clock.adb | 16 | ||||
| -rw-r--r-- | c/src/ada/rtems-clock.ads | 22 |
2 files changed, 0 insertions, 38 deletions
diff --git a/c/src/ada/rtems-clock.adb b/c/src/ada/rtems-clock.adb index 59a6d7d220..6f85d4aefc 100644 --- a/c/src/ada/rtems-clock.adb +++ b/c/src/ada/rtems-clock.adb @@ -41,22 +41,6 @@ package body RTEMS.Clock is end Set; - procedure Get - (Option : in RTEMS.Clock.Get_Options; - Time_Buffer : in RTEMS.Address; - Result : out RTEMS.Status_Codes) - is - function Get_Base - (Option : RTEMS.Clock.Get_Options; - Time_Buffer : RTEMS.Address) - return RTEMS.Status_Codes; - pragma Import (C, Get_Base, "rtems_clock_get"); - begin - - Result := Get_Base (Option, Time_Buffer); - - end Get; - procedure Get_TOD (Time : out RTEMS.Time_Of_Day; Result : out RTEMS.Status_Codes) diff --git a/c/src/ada/rtems-clock.ads b/c/src/ada/rtems-clock.ads index fcfcd5022e..36ccfba2d4 100644 --- a/c/src/ada/rtems-clock.ads +++ b/c/src/ada/rtems-clock.ads @@ -32,22 +32,6 @@ package RTEMS.Clock is Microseconds : RTEMS.Unsigned32; end record; - type Clock_Get_Options is ( - Clock_Get_TOD, - Clock_Get_Seconds_Since_Epoch, - Clock_Get_Ticks_Since_Boot, - Clock_Get_Ticks_Per_Second, - Clock_Get_Time_Value - ); - - type Get_Options is ( - Get_TOD, - Get_Seconds_Since_Epoch, - Get_Ticks_Since_Boot, - Get_Ticks_Per_Second, - Get_Time_Value - ); - -- -- Clock Manager -- @@ -57,12 +41,6 @@ package RTEMS.Clock is Result : out RTEMS.Status_Codes ); - procedure Get ( - Option : in RTEMS.Clock.Get_Options; - Time_Buffer : in RTEMS.Address; - Result : out RTEMS.Status_Codes - ); - procedure Get_TOD ( Time : out RTEMS.Time_Of_Day; Result : out RTEMS.Status_Codes |