Changeset 23848bbd in rtems for c/src/ada-tests/support/test_support.adb

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:

• c/src/ada-tests/support/test_support.adb (modified) (2 diffs)

c/src/ada-tests/support/test_support.adb

@@ -207 +207 @@
    begin
 
-      return RTEMS.Get_Index( TID ) - 1 -
-        RTEMS.Configuration.RTEMS_API_Configuration.Number_Of_Initialization_Tasks;
+      -- probably OK
+      return RTEMS.Get_Index( TID ) - 1;
+      --   Ignoring this component.
+      --   - RTEMS.Configuration.RTEMS_API_Configuration.Number_Of_Initialization_Tasks;
 
    end Task_Number;
@@ -230 +232 @@
    function Milliseconds_Per_Tick 
    return RTEMS.Unsigned32 is
-   begin
-      return RTEMS.Configuration.Microseconds_Per_Tick / 1000;
+      function Milliseconds_Per_Tick_Base return RTEMS.Unsigned32;
+      pragma Import (C, Milliseconds_Per_Tick_Base, "milliseconds_per_tick");
+   begin
+      return Milliseconds_Per_Tick_Base;
    end Milliseconds_Per_Tick;
+
+--PAGE
+--
+--  Milliseconds_Per_Tick
+--
+   function Ticks_Per_Second 
+   return RTEMS.Interval is
+      function Ticks_Per_Second_Base return RTEMS.Unsigned32;
+      pragma Import (C, Ticks_Per_Second_Base, "ticks_per_second");
+   begin
+      return Ticks_Per_Second_Base;
+   end Ticks_Per_Second; 
+
+--
+--  Node is the node number in a multiprocessor configuration
+--
+
+   function Node 
+   return RTEMS.Unsigned32 is
+      function Get_Node_Base return RTEMS.Unsigned32;
+      pragma Import (C, Get_Node_Base, "get_node");
+   begin
+      return Get_Node_Base;
+   end Node;
 end Test_Support;