RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Obsolete rtems_clock_get() directive.

Browse Source 
This service was marked as deprecated long prior to the 4.11 release
series and is now being removed.

closes #2676.
This commit is contained in:
Joel Sherrill
2016-03-22 17:13:30 -05:00
parent 714efce48a
commit e65c45c4b6
30 changed files with 76 additions and 388 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
c/src/ada-tests/mptests/mp01/mptest.adb
View File

@@ -146,8 +146,8 @@ package body MPTEST is
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PUT_NAME(
MPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),
@@ -164,8 +164,8 @@ package body MPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PUT_NAME(
MPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),

4
c/src/ada-tests/samples/ticker/sptest.adb
View File

@@ -129,8 +129,8 @@ package body SPTEST is
loop
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
if TIME.SECOND >= 35 then
TEXT_IO.PUT_LINE( "*** END OF CLOCK TICK TEST ***" );

4
c/src/ada-tests/sptests/sp01/sptest.adb
View File

@@ -129,8 +129,8 @@ package body SPTEST is
loop
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
if TIME.SECOND >= 35 then
TEXT_IO.PUT_LINE( "*** END OF TEST 1 ***" );

8
c/src/ada-tests/sptests/sp03/sptest.adb
View File

@@ -108,8 +108,8 @@ package body SPTEST is
loop
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
TEST_SUPPORT.PRINT_TIME( "going to sleep: ", TIME, "" );
@@ -150,8 +150,8 @@ package body SPTEST is
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
if TIME.SECOND >= 17 then
TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );

28
c/src/ada-tests/sptests/sp04/sptest.adb
View File

@@ -193,20 +193,12 @@ package body SPTEST is
TEXT_IO.PUT_LINE( "TA1 - killing time" );
RTEMS.CLOCK.GET(
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH,
START_TIME'ADDRESS,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH( START_TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_SECONDS_SINCE_EPOCH" );
loop
RTEMS.CLOCK.GET(
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH,
END_TIME'ADDRESS,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH( START_TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(STATUS, "CLOCK_GET_SECONDS_SINCE_EPOCH");
exit when END_TIME > (START_TIME + 2);
end loop;
@@ -234,8 +226,8 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
OLD_SECONDS := TIME.SECOND;
@@ -244,8 +236,8 @@ package body SPTEST is
exit when SECONDS >= 6;
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
if TIME.SECOND /= OLD_SECONDS then
OLD_SECONDS := TIME.SECOND;
@@ -338,8 +330,8 @@ package body SPTEST is
when 1 | 2 | 3 =>
SPTEST.RUN_COUNT( INDEX ) := SPTEST.RUN_COUNT( INDEX ) + 1;
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
Log_Task_Event ( INDEX, TIME );

27
c/src/ada-tests/sptests/sp09/sptest.adb
View File

@@ -300,8 +300,7 @@ package body SPTEST is
-- errors before clock is set
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
if RTEMS.IS_STATUS_SUCCESSFUL( STATUS ) then
TEXT_IO.PUT_LINE(
"TA1 - clock_get - NOT_DEFINED -- DID THE BSP SET THE TIME OF DAY?"
@@ -461,8 +460,8 @@ package body SPTEST is
);
TEXT_IO.PUT_LINE( " - INVALID_CLOCK" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME( "TA1 - current time - ", TIME, "" );
TEXT_IO.NEW_LINE;
@@ -2552,8 +2551,8 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME(
"TA1 - clock_get - ",
TIME,
@@ -2572,8 +2571,8 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME(
"TA1 - clock_get - ",
TIME,
@@ -2592,8 +2591,8 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME(
"TA1 - clock_get - ",
TIME,
@@ -2612,8 +2611,8 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME(
"TA1 - clock_get - ",
TIME,
@@ -2632,8 +2631,8 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME(
"TA1 - clock_get - ",
TIME,

16
c/src/ada-tests/sptests/sp11/sptest.adb
View File

@@ -193,8 +193,8 @@ package body SPTEST is
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_19, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 19" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_get - ", TIME, "" );
TEXT_IO.NEW_LINE;
@@ -224,8 +224,8 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE of 18" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEXT_IO.PUT( "TA1 - EVENT_18 received - eventout => ");
UNSIGNED32_IO.PUT( EVENTOUT, BASE => 16, WIDTH => 8 );
@@ -368,8 +368,8 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE of 1" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEXT_IO.PUT( "TA1 - EVENT_1 received - eventout => ");
UNSIGNED32_IO.PUT( EVENTOUT, BASE => 16, WIDTH => 8 );
@@ -726,8 +726,8 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE of 10" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEXT_IO.PUT( "TA2 - EVENT_10 received - eventout => ");
UNSIGNED32_IO.PUT( EVENTOUT, BASE => 16, WIDTH => 8 );

8
c/src/ada-tests/sptests/sp19/sptest.adp
View File

@@ -298,8 +298,8 @@ package body SPTEST is
loop
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
if TIME.SECOND >= 16 then
@@ -369,8 +369,8 @@ package body SPTEST is
loop
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PUT_NAME(
SPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),

10
c/src/ada-tests/sptests/sp20/sptest.adb
View File

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

12
c/src/ada-tests/sptests/sp22/sptest.adb
View File

@@ -113,8 +113,8 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TEST_SUPPORT.PUT_NAME(
SPTEST.TASK_NAME( 1 ),
@@ -229,8 +229,8 @@ TEST_SUPPORT.PAUSE;
SPTEST.PRINT_TIME;
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TIME.SECOND := TIME.SECOND + 3;
@@ -252,8 +252,8 @@ TEST_SUPPORT.PAUSE;
-- when which is canceled
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
TIME.SECOND := TIME.SECOND + 3;

4
c/src/ada-tests/sptests/sp24/sptest.adb
View File

@@ -141,8 +141,8 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
if TIME.SECOND >= 35 then
TEXT_IO.PUT_LINE( "*** END OF TEST 24 ***" );

5
c/src/ada-tests/tmtests/tm08/tmtest.adb
View File

@@ -254,11 +254,12 @@ package body TMTEST is
TIMER_DRIVER.INITIALIZE;
for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
loop
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET_TOD( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
end loop;
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
TIME_TEST_SUPPORT.PUT_TIME(
"CLOCK_GET",
"CLOCK_GET_TOD",
TMTEST.END_TIME,
TIME_TEST_SUPPORT.OPERATION_COUNT,
OVERHEAD,

1
c/src/ada-tests/tmtests/tm08/tmtest.ads
View File

@@ -70,7 +70,6 @@ package TMTEST is
-- + TASK_MODE which does require a reschedule
-- + TASK_MODE which causes a preemption *** TEST_TASK1 executes
-- + CLOCK_SET
-- + CLOCK_GET
--
procedure TEST_TASK (

8
c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb
View File

@@ -189,18 +189,16 @@ package body DUMMY_RTEMS is
-- Clock Manager
procedure CLOCK_GET (
OPTION : in RTEMS.CLOCK.GET_OPTIONS;
TIME_BUFFER : in RTEMS.ADDRESS;
procedure CLOCK_GET_TOD (
TIME_BUFFER : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
) is
pragma Unreferenced(OPTION);
pragma Unreferenced(TIME_BUFFER);
begin
RESULT := RTEMS.SUCCESSFUL;
end CLOCK_GET;
end CLOCK_GET_TOD;
procedure CLOCK_SET (
TIME_BUFFER : in RTEMS.TIME_OF_DAY;

5
c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads
View File

@@ -108,9 +108,8 @@ package DUMMY_RTEMS is
-- Clock Manager
procedure CLOCK_GET (
OPTION : in RTEMS.CLOCK.GET_OPTIONS;
TIME_BUFFER : in RTEMS.ADDRESS;
procedure CLOCK_GET_TOD (
TIME_BUFFER : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
);

4
c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
View File

@@ -396,12 +396,12 @@ package body TMTEST is
-- 0
-- );
-- CLOCK_GET
-- CLOCK_GET_TOD
TIMER_DRIVER.INITIALIZE;
for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
loop
DUMMY_RTEMS.CLOCK_GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
DUMMY_RTEMS.CLOCK_GET_TOD( TIME, STATUS );
end loop;
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;

16
c/src/ada/rtems-clock.adb
View File

@@ -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)

22
c/src/ada/rtems-clock.ads
View File

@@ -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

3
c/src/lib/libbsp/arm/xilinx-zynq/make/custom/xilinx_zynq_a9_qemu.cfg
View File

@@ -5,3 +5,6 @@ RTEMS_CPU = arm
CPU_CFLAGS = -march=armv7-a -mthumb -mfpu=neon -mfloat-abi=hard -mtune=cortex-a9
CFLAGS_OPTIMIZE_V ?= -O0 -g
CFLAGS_OPTIMIZE_V += -ffunction-sections -fdata-sections
LDFLAGS = -Wl,--gc-sections