Changeset 783fbce in rtems


Ignore:
Timestamp:
May 23, 2017, 9:33:29 AM (2 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
master
Children:
afa5b89
Parents:
9ff0f40
git-author:
Sebastian Huber <sebastian.huber@…> (05/23/17 09:33:29)
git-committer:
Sebastian Huber <sebastian.huber@…> (05/29/17 06:01:54)
Message:

ada: Update due to Clock Manager API changes

Update #2676.

Location:
c/src
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/sptests/sp09/sptest.adb

    r9ff0f40 r783fbce  
    27832783      TEXT_IO.NEW_LINE;
    27842784
    2785       RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
     2785      RTEMS.CLOCK.GET_TOD( TIME, STATUS );
    27862786      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET SUCCESSFUL" );
    27872787      TEST_SUPPORT.PRINT_TIME( "TA1 - clock_get       - ", TIME, "" );
     
    29072907      TEXT_IO.NEW_LINE;
    29082908
    2909       RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
     2909      RTEMS.CLOCK.GET_TOD( TIME, STATUS );
    29102910      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "clock_set" );
    29112911      TEST_SUPPORT.PRINT_TIME( "TA1 - clock_get       - ", TIME, "" );
  • c/src/ada-tests/sptests/sp20/sptest.adb

    r9ff0f40 r783fbce  
    242242
    243243               -- timestamp
    244                RTEMS.CLOCK.GET_TICKS_SINCE_BOOT( Time( INDEX ), STATUS );
    245                TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "clock_get of TA6" );
     244               Time( INDEX ) := RTEMS.CLOCK.GET_TICKS_SINCE_BOOT;
    246245            end loop;
    247246
  • c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb

    r9ff0f40 r783fbce  
    191191
    192192   procedure CLOCK_GET_TOD (
    193       TIME_BUFFER :    out RTEMS.ADDRESS;
     193      TIME_BUFFER :    out RTEMS.TIME_OF_DAY;
    194194      RESULT      :    out RTEMS.STATUS_CODES
    195195   ) is
  • c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads

    r9ff0f40 r783fbce  
    110110
    111111   procedure CLOCK_GET_TOD (
    112       TIME_BUFFER :    out RTEMS.ADDRESS;
     112      TIME_BUFFER :    out RTEMS.TIME_OF_DAY;
    113113      RESULT      :    out RTEMS.STATUS_CODES
    114114   );
  • c/src/ada-tests/tmtests/tmoverhd/tmtest.adb

    r9ff0f40 r783fbce  
    2424with TIME_TEST_SUPPORT;
    2525with TIMER_DRIVER;
    26 with RTEMS.CLOCK;
    2726
    2827package body TMTEST is
  • c/src/ada/rtems-clock.adb

    r9ff0f40 r783fbce  
    123123   end Tick;
    124124
     125   function Get_Ticks_Since_Boot
     126      return RTEMS.Interval
     127   is
     128      Watchdog_Ticks_since_boot : RTEMS.Interval;
     129      pragma Import (
     130         C,
     131         Watchdog_Ticks_since_boot,
     132         "_Watchdog_Ticks_since_boot"
     133      );
     134   begin
     135
     136      return Watchdog_Ticks_since_boot;
     137
     138   end Get_Ticks_Since_Boot;
     139
    125140end RTEMS.Clock;
  • c/src/ada/rtems-clock.ads

    r9ff0f40 r783fbce  
    6767   function Get_Ticks_Since_Boot
    6868   return RTEMS.Interval;
    69    pragma Import (
    70       C,
    71       Get_Ticks_Since_Boot,
    72       "rtems_clock_get_ticks_since_boot"
    73    );
    7469
    7570   procedure Get_Uptime (
Note: See TracChangeset for help on using the changeset viewer.