diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-05-23 11:33:29 +0200 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-05-29 08:01:54 +0200 |
commit | 783fbcec352fe9be6ed71e927d28a8583f7db863 (patch) | |
tree | 5e42dbcaa0323bb0fb6fe50a21b27754291e1050 /c/src/ada-tests | |
parent | ada: Remove <rtems/debug.h> support (diff) | |
download | rtems-783fbcec352fe9be6ed71e927d28a8583f7db863.tar.bz2 |
ada: Update due to Clock Manager API changes
Update #2676.
Diffstat (limited to 'c/src/ada-tests')
-rw-r--r-- | c/src/ada-tests/sptests/sp09/sptest.adb | 4 | ||||
-rw-r--r-- | c/src/ada-tests/sptests/sp20/sptest.adb | 3 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb | 2 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads | 2 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | 1 |
5 files changed, 5 insertions, 7 deletions
diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb index 49d696b4de..218fbaed49 100644 --- a/c/src/ada-tests/sptests/sp09/sptest.adb +++ b/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; diff --git a/c/src/ada-tests/sptests/sp20/sptest.adb b/c/src/ada-tests/sptests/sp20/sptest.adb index 8acb6c76dc..1929fd958f 100644 --- a/c/src/ada-tests/sptests/sp20/sptest.adb +++ b/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 diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb index 64fd09d0c7..62986dc465 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb +++ b/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); diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads index da7f0773b9..ea4f129893 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads +++ b/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 ); diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb index ce5b7a37b9..58c5ad09c6 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb +++ b/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 |