Ignore:
Timestamp:
Oct 1, 2007, 10:58:09 PM (14 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.9, 5, master
Children:
d731ccc7
Parents:
f10fe707
Message:

2007-10-01 Joel Sherrill <joel.sherrill@…>

  • mptests/mp01/mptest.adb, mptests/mp01/mptest.ads, mptests/mp01/node1/Makefile.am, mptests/mp02/mptest.adb, mptests/mp02/mptest.ads, mptests/mp03/mptest.adb, mptests/mp03/mptest.ads, mptests/mp04/mptest.adb, mptests/mp04/mptest.ads, mptests/mp05/mptest.adb, mptests/mp05/mptest.ads, mptests/mp06/mptest.adb, mptests/mp06/mptest.ads, mptests/mp07/mptest.adb, mptests/mp07/mptest.ads, mptests/mp08/mptest.adb, mptests/mp08/mptest.ads, mptests/mp09/mptest.adb, mptests/mp09/mptest.ads, mptests/mp10/mptest.adb, mptests/mp10/mptest.ads, mptests/mp11/mptest.adb, mptests/mp11/mptest.ads, mptests/mp12/mptest.adb, mptests/mp12/mptest.ads, mptests/mp13/mptest.adb, mptests/mp13/mptest.ads, mptests/mp14/mptest.adb, mptests/mp14/mptest.ads, support/init.c, support/test_support.adb, support/test_support.ads: Most of single processor Ada tests now build. Some run.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/support/test_support.adb

    rf10fe707 r23848bbd  
    207207   begin
    208208
    209       return RTEMS.Get_Index( TID ) - 1 -
    210         RTEMS.Configuration.RTEMS_API_Configuration.Number_Of_Initialization_Tasks;
     209      -- probably OK
     210      return RTEMS.Get_Index( TID ) - 1;
     211      --   Ignoring this component.
     212      --   - RTEMS.Configuration.RTEMS_API_Configuration.Number_Of_Initialization_Tasks;
    211213
    212214   end Task_Number;
     
    230232   function Milliseconds_Per_Tick
    231233   return RTEMS.Unsigned32 is
    232    begin
    233       return RTEMS.Configuration.Microseconds_Per_Tick / 1000;
     234      function Milliseconds_Per_Tick_Base return RTEMS.Unsigned32;
     235      pragma Import (C, Milliseconds_Per_Tick_Base, "milliseconds_per_tick");
     236   begin
     237      return Milliseconds_Per_Tick_Base;
    234238   end Milliseconds_Per_Tick;
     239
     240--PAGE
     241--
     242--  Milliseconds_Per_Tick
     243--
     244   function Ticks_Per_Second
     245   return RTEMS.Interval is
     246      function Ticks_Per_Second_Base return RTEMS.Unsigned32;
     247      pragma Import (C, Ticks_Per_Second_Base, "ticks_per_second");
     248   begin
     249      return Ticks_Per_Second_Base;
     250   end Ticks_Per_Second;
     251
     252--
     253--  Node is the node number in a multiprocessor configuration
     254--
     255
     256   function Node
     257   return RTEMS.Unsigned32 is
     258      function Get_Node_Base return RTEMS.Unsigned32;
     259      pragma Import (C, Get_Node_Base, "get_node");
     260   begin
     261      return Get_Node_Base;
     262   end Node;
    235263end Test_Support;
Note: See TracChangeset for help on using the changeset viewer.