ada: Update due to Clock Manager API changes

Update #2676.

c/src/ada-tests/sptests/sp09/sptest.adb

@@ -2782,7 +2782,7 @@ package body SPTEST is
       );
       TEXT_IO.NEW_LINE;
 
-      RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
+      RTEMS.CLOCK.GET_TOD( TIME, STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
       TEST_SUPPORT.PRINT_TIME( "TA1 - clock_get       - ", TIME, "" );
       TEXT_IO.NEW_LINE;
@@ -2906,7 +2906,7 @@ package body SPTEST is
       );
       TEXT_IO.NEW_LINE;
 
-      RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
+      RTEMS.CLOCK.GET_TOD( TIME, STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "clock_set" );
       TEST_SUPPORT.PRINT_TIME( "TA1 - clock_get       - ", TIME, "" );
       TEXT_IO.NEW_LINE;

c/src/ada-tests/sptests/sp20/sptest.adb

@@ -241,8 +241,7 @@ package body SPTEST is
                );
 
                -- timestamp
-               RTEMS.CLOCK.GET_TICKS_SINCE_BOOT( Time( INDEX ), STATUS );
-               TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "clock_get of TA6" );
+               Time( INDEX ) := RTEMS.CLOCK.GET_TICKS_SINCE_BOOT;
             end loop;
 
             for INDEX in 1 .. 10 loop

c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb

@@ -190,7 +190,7 @@ package body DUMMY_RTEMS is
 -- Clock Manager
 
    procedure CLOCK_GET_TOD (
-      TIME_BUFFER :    out RTEMS.ADDRESS;
+      TIME_BUFFER :    out RTEMS.TIME_OF_DAY;
       RESULT      :    out RTEMS.STATUS_CODES
    ) is
       pragma Unreferenced(TIME_BUFFER);

c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads

@@ -109,7 +109,7 @@ package DUMMY_RTEMS is
 -- Clock Manager
 
    procedure CLOCK_GET_TOD (
-      TIME_BUFFER :    out RTEMS.ADDRESS;
+      TIME_BUFFER :    out RTEMS.TIME_OF_DAY;
       RESULT      :    out RTEMS.STATUS_CODES
    );
 

c/src/ada-tests/tmtests/tmoverhd/tmtest.adb

@@ -23,7 +23,6 @@ with TEST_SUPPORT;
 with TEXT_IO;
 with TIME_TEST_SUPPORT;
 with TIMER_DRIVER;
-with RTEMS.CLOCK;
 
 package body TMTEST is
 

c/src/ada/rtems-clock.adb

@@ -122,4 +122,19 @@ package body RTEMS.Clock is
 
    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;

c/src/ada/rtems-clock.ads

@@ -66,11 +66,6 @@ package RTEMS.Clock is
 
    function Get_Ticks_Since_Boot
    return RTEMS.Interval;
-   pragma Import (
-      C,
-      Get_Ticks_Since_Boot,
-      "rtems_clock_get_ticks_since_boot"
-   );
 
    procedure Get_Uptime (
       Uptime :    out RTEMS.Timespec;