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


Ignore:
Timestamp:
Oct 1, 2007, 10:58:09 PM (13 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.
Location:
c/src/ada-tests/support
Files:
3 edited

Legend:

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

    rf10fe707 r23848bbd  
    3232}
    3333
     34
    3435/*
    3536 *  By putting this in brackets rather than quotes, we get the search
     
    4243
    4344#include <config.h>
     45
     46uint32_t milliseconds_per_tick(void)
     47{
     48  return CONFIGURE_MICROSECONDS_PER_TICK / 1000;
     49}
     50
     51uint32_t ticks_per_second(void)
     52{
     53  /* XXX HACK -- use public API */
     54  return TOD_TICKS_PER_SECOND;
     55}
     56
     57uint32_t get_node(void)
     58{
     59  /* XXX HACK -- use public API */
     60  return _Objects_Local_node;
     61}
  • 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;
  • c/src/ada-tests/support/test_support.ads

    rf10fe707 r23848bbd  
    157157--
    158158
    159    Ticks_Per_Second : RTEMS.Interval;
    160    pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second");
     159   function Ticks_Per_Second
     160   return RTEMS.Interval;
    161161
    162162--
     
    168168   return RTEMS.Unsigned32;
    169169
     170--
     171--  Node is the node number in a multiprocessor configuration
     172--
     173
     174   function Node
     175   return RTEMS.Unsigned32;
     176
     177--
     178--  Longest time in seconds to run a test
     179--
     180
     181    MAXIMUM_LONG_TEST_DURATION : RTEMS.UNSIGNED32;
     182
    170183private
    171184
Note: See TracChangeset for help on using the changeset viewer.