Changeset 23848bbd in rtems


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.
Location:
c/src/ada-tests
Files:
33 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/ChangeLog

    rf10fe707 r23848bbd  
     12007-10-01      Joel Sherrill <joel.sherrill@OARcorp.com>
     2
     3        * mptests/mp01/mptest.adb, mptests/mp01/mptest.ads,
     4        mptests/mp01/node1/Makefile.am, mptests/mp02/mptest.adb,
     5        mptests/mp02/mptest.ads, mptests/mp03/mptest.adb,
     6        mptests/mp03/mptest.ads, mptests/mp04/mptest.adb,
     7        mptests/mp04/mptest.ads, mptests/mp05/mptest.adb,
     8        mptests/mp05/mptest.ads, mptests/mp06/mptest.adb,
     9        mptests/mp06/mptest.ads, mptests/mp07/mptest.adb,
     10        mptests/mp07/mptest.ads, mptests/mp08/mptest.adb,
     11        mptests/mp08/mptest.ads, mptests/mp09/mptest.adb,
     12        mptests/mp09/mptest.ads, mptests/mp10/mptest.adb,
     13        mptests/mp10/mptest.ads, mptests/mp11/mptest.adb,
     14        mptests/mp11/mptest.ads, mptests/mp12/mptest.adb,
     15        mptests/mp12/mptest.ads, mptests/mp13/mptest.adb,
     16        mptests/mp13/mptest.ads, mptests/mp14/mptest.adb,
     17        mptests/mp14/mptest.ads, support/init.c, support/test_support.adb,
     18        support/test_support.ads: Most of single processor Ada tests now
     19        build. Some run.
     20
    1212007-05-23      Joel Sherrill <joel.sherrill@OARcorp.com>
    222
  • c/src/ada-tests/mptests/mp01/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    3937      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    4038   ) is
    41       C      : RTEMS.CHARACTER;
     39      C      : CHARACTER;
    4240      TIME   : RTEMS.TIME_OF_DAY;
    4341      STATUS : RTEMS.STATUS_CODES;
     
    4745      TEXT_IO.PUT( "*** TEST 1 -- NODE " );
    4846      UNSIGNED32_IO.PUT(
    49          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     47         TEST_SUPPORT.NODE,
    5048         WIDTH => 1
    5149      );
    5250      TEXT_IO.PUT_LINE( " ***" );
    5351     
    54       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE /= 1 then
     52      if TEST_SUPPORT.NODE /= 1 then
    5553         C := 'S';
    5654      else
  • c/src/ada-tests/mptests/mp01/mptest.ads

    rf10fe707 r23848bbd  
    5757   );
    5858
    59 --
    60 --  This is the Driver Address Table for this test.
    61 --
    62 
    63    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    64    (1=>
    65       (
    66         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    67         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    68         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    69         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    70         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    71         RTEMS.NO_DRIVER_ENTRY                        -- Control
    72       )
    73    );
    74 
    75 --
    76 --  This is the Initialization Tasks Table for this test.
    77 --
    78 
    79    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    80    (1=>
    81      (
    82        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    83        2048,                                          -- stack size
    84        1,                                             -- priority
    85        RTEMS.GLOBAL,                                  -- attributes
    86        MPTEST.INIT'ACCESS,                            -- entry point
    87        RTEMS.NO_PREEMPT,                              -- initial mode
    88        0                                              -- argument list
    89      )
    90    );
    91 
    92 ----------------------------------------------------------------------------
    93 ----------------------------------------------------------------------------
    94 --                             BEGIN SUBPACKAGE                           --
    95 ----------------------------------------------------------------------------
    96 ----------------------------------------------------------------------------
    97 
    98    --
    99    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    100    --
    101    --  DESCRIPTION:
    102    --
    103    --  This package is the specification for the subpackage
    104    --  which will define the per node configuration parameters.
    105    --
    106    
    107    package PER_NODE_CONFIGURATION is
    108 
    109    --
    110    --  LOCAL_NODE_NUMBER
    111    --
    112    --  DESCRIPTION:
    113    --
    114    --  This function returns the node number for this node.
    115    --
    116 
    117       function LOCAL_NODE_NUMBER
    118       return RTEMS.UNSIGNED32;
    119  
    120       pragma INLINE ( LOCAL_NODE_NUMBER );
    121 
    122    end PER_NODE_CONFIGURATION;
    123  
    124 ----------------------------------------------------------------------------
    125 ----------------------------------------------------------------------------
    126 --                              END SUBPACKAGE                            --
    127 ----------------------------------------------------------------------------
    128 ----------------------------------------------------------------------------
    129 
    130 --
    131 --  This is the Multiprocessor Configuration Table for this test.
    132 --
    133 
    134    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    135       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    136       2,                         -- maximum # nodes in system
    137       33,                        -- maximum # global objects
    138       33                         -- maximum # proxies
    139     );
    140 
    141 --
    142 --  This is the Configuration Table for this test.
    143 --
    144 
    145    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    146       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    147       64 * 1024,                 -- executive RAM size
    148       10,                        -- maximum # tasks
    149       0,                         -- maximum # timers
    150       0,                         -- maximum # semaphores
    151       0,                         -- maximum # message queues
    152       0,                         -- maximum # messages
    153       0,                         -- maximum # partitions
    154       0,                         -- maximum # regions
    155       0,                         -- maximum # dp memory areas
    156       0,                         -- maximum # periods
    157       0,                         -- maximum # user extensions
    158       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    159       50                         -- # ticks in a timeslice
    160   );
    161 
    16259end MPTEST;
  • c/src/ada-tests/mptests/mp01/node1/Makefile.am

    rf10fe707 r23848bbd  
    1515endif
    1616
    17 node1_SOURCES = mptest-per_node_configuration.adb
    18 
    1917scndir = $(rtems_ada_testsdir)
    2018dist_scn_DATA = mp01-node1.scn
  • c/src/ada-tests/mptests/mp02/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 2 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5654
    5755      RTEMS.TASK_CREATE(
    58          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
     56         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5957         1,
    6058         2048,
     
    9896      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
    9997   
    100       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     98      if TEST_SUPPORT.NODE = 1 then
    10199         REMOTE_NODE := 2;
    102100      else
  • c/src/ada-tests/mptests/mp02/mptest.ads

    rf10fe707 r23848bbd  
    5757   );
    5858
    59 --
    60 --  This is the Driver Address Table for this test.
    61 --
    62 
    63    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    64    (1=>
    65       (
    66         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    67         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    68         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    69         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    70         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    71         RTEMS.NO_DRIVER_ENTRY                        -- Control
    72       )
    73    );
    74 
    75 --
    76 --  This is the Initialization Tasks Table for this test.
    77 --
    78 
    79    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    80    (1=>
    81      (
    82        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    83        2048,                                          -- stack size
    84        1,                                             -- priority
    85        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    86        MPTEST.INIT'ACCESS,                            -- entry point
    87        RTEMS.NO_PREEMPT,                              -- initial mode
    88        0                                              -- argument list
    89      )
    90    );
    91 
    92 ----------------------------------------------------------------------------
    93 ----------------------------------------------------------------------------
    94 --                             BEGIN SUBPACKAGE                           --
    95 ----------------------------------------------------------------------------
    96 ----------------------------------------------------------------------------
    97 
    98    --
    99    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    100    --
    101    --  DESCRIPTION:
    102    --
    103    --  This package is the specification for the subpackage
    104    --  which will define the per node configuration parameters.
    105    --
    106    
    107    package PER_NODE_CONFIGURATION is
    108 
    109    --
    110    --  LOCAL_NODE_NUMBER
    111    --
    112    --  DESCRIPTION:
    113    --
    114    --  This function returns the node number for this node.
    115    --
    116 
    117       function LOCAL_NODE_NUMBER
    118       return RTEMS.UNSIGNED32;
    119  
    120       pragma INLINE ( LOCAL_NODE_NUMBER );
    121 
    122    end PER_NODE_CONFIGURATION;
    123  
    124 ----------------------------------------------------------------------------
    125 ----------------------------------------------------------------------------
    126 --                              END SUBPACKAGE                            --
    127 ----------------------------------------------------------------------------
    128 ----------------------------------------------------------------------------
    129 
    130 --
    131 --  This is the Multiprocessor Configuration Table for this test.
    132 --
    133 
    134    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    135       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    136       2,                         -- maximum # nodes in system
    137       32,                        -- maximum # global objects
    138       32                         -- maximum # proxies
    139     );
    140 
    141 --
    142 --  This is the Configuration Table for this test.
    143 --
    144 
    145    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    146       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    147       64 * 1024,                 -- executive RAM size
    148       10,                        -- maximum # tasks
    149       0,                         -- maximum # timers
    150       0,                         -- maximum # semaphores
    151       0,                         -- maximum # message queues
    152       0,                         -- maximum # messages
    153       0,                         -- maximum # partitions
    154       0,                         -- maximum # regions
    155       0,                         -- maximum # dp memory areas
    156       0,                         -- maximum # periods
    157       0,                         -- maximum # user extensions
    158       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    159       50                         -- # ticks in a timeslice
    160   );
    161 
    16259end MPTEST;
  • c/src/ada-tests/mptests/mp03/mptest.adb

    rf10fe707 r23848bbd  
    1 --
    2 --  MPTEST / BODY
    3 --
    4 --  DESCRIPTION:
    51--
    62--  This package is the implementation for Test 3 of the RTEMS
     
    2925package body MPTEST is
    3026
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3327--PAGE
    3428--
     
    4539      TEXT_IO.PUT( "*** TEST 3 -- NODE " );
    4640      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     41         TEST_SUPPORT.NODE,
    4842         WIDTH => 1
    4943      );
     
    5549      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    5650      RTEMS.TASK_CREATE(
    57          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
     51         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5852         1,
    5953         2048,
     
    122116   
    123117      TEXT_IO.PUT_LINE( "Getting TID of remote task" );
    124       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     118      if TEST_SUPPORT.NODE = 1 then
    125119         MPTEST.REMOTE_NODE := 2;
    126120      else
     
    164158      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
    165159
    166       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
     160      if TEST_SUPPORT.NODE = 2 then
    167161         
    168162         RTEMS.TASK_WAKE_AFTER(
     
    195189   begin
    196190
    197       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = NODE then
     191      if TEST_SUPPORT.NODE = NODE then
    198192
    199193         loop
  • c/src/ada-tests/mptests/mp03/mptest.ads

    rf10fe707 r23848bbd  
    107107   );
    108108
    109 --
    110 --  This is the Driver Address Table for this test.
    111 --
    112 
    113    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    114    (1=>
    115       (
    116         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    117         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    118         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    119         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    120         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    121         RTEMS.NO_DRIVER_ENTRY                        -- Control
    122       )
    123    );
    124 
    125 --
    126 --  This is the Initialization Tasks Table for this test.
    127 --
    128 
    129    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    130    (1=>
    131      (
    132        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    133        2048,                                          -- stack size
    134        1,                                             -- priority
    135        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    136        MPTEST.INIT'ACCESS,                            -- entry point
    137        RTEMS.NO_PREEMPT,                              -- initial mode
    138        0                                              -- argument list
    139      )
    140    );
    141 
    142 ----------------------------------------------------------------------------
    143 ----------------------------------------------------------------------------
    144 --                             BEGIN SUBPACKAGE                           --
    145 ----------------------------------------------------------------------------
    146 ----------------------------------------------------------------------------
    147 
    148    --
    149    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    150    --
    151    --  DESCRIPTION:
    152    --
    153    --  This package is the specification for the subpackage
    154    --  which will define the per node configuration parameters.
    155    --
    156    
    157    package PER_NODE_CONFIGURATION is
    158 
    159    --
    160    --  LOCAL_NODE_NUMBER
    161    --
    162    --  DESCRIPTION:
    163    --
    164    --  This function returns the node number for this node.
    165    --
    166 
    167       function LOCAL_NODE_NUMBER
    168       return RTEMS.UNSIGNED32;
    169  
    170       pragma INLINE ( LOCAL_NODE_NUMBER );
    171 
    172    end PER_NODE_CONFIGURATION;
    173  
    174 ----------------------------------------------------------------------------
    175 ----------------------------------------------------------------------------
    176 --                              END SUBPACKAGE                            --
    177 ----------------------------------------------------------------------------
    178 ----------------------------------------------------------------------------
    179 
    180 --
    181 --  This is the Multiprocessor Configuration Table for this test.
    182 --
    183 
    184    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    185       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    186       2,                         -- maximum # nodes in system
    187       32,                        -- maximum # global objects
    188       32                         -- maximum # proxies
    189     );
    190 
    191 --
    192 --  This is the Configuration Table for this test.
    193 --
    194 
    195    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    196       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    197       64 * 1024,                 -- executive RAM size
    198       10,                        -- maximum # tasks
    199       1,                         -- maximum # timers
    200       0,                         -- maximum # semaphores
    201       0,                         -- maximum # message queues
    202       0,                         -- maximum # messages
    203       0,                         -- maximum # partitions
    204       0,                         -- maximum # regions
    205       0,                         -- maximum # dp memory areas
    206       0,                         -- maximum # periods
    207       0,                         -- maximum # user extensions
    208       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    209       50                         -- # ticks in a timeslice
    210   );
    211 
    212109end MPTEST;
  • c/src/ada-tests/mptests/mp04/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 4 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5654
    5755      RTEMS.TASK_CREATE(
    58          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
    59          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     56         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
     57         TEST_SUPPORT.NODE,
    6058         2048,
    6159         RTEMS.DEFAULT_MODES,
     
    10199   
    102100      TEXT_IO.PUT_LINE( "Getting TID of remote task" );
    103       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     101      if TEST_SUPPORT.NODE = 1 then
    104102         MPTEST.REMOTE_NODE := 2;
    105103      else
     
    125123      RTEMS.TASK_SET_PRIORITY(
    126124         MPTEST.REMOTE_TID,
    127          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     125         TEST_SUPPORT.NODE,
    128126         PREVIOUS_PRIORITY,
    129127         STATUS
  • c/src/ada-tests/mptests/mp04/mptest.ads

    rf10fe707 r23848bbd  
    7171   );
    7272
    73 --
    74 --  This is the Driver Address Table for this test.
    75 --
    76 
    77    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    78    (1=>
    79       (
    80         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    81         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    82         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    83         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    84         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    85         RTEMS.NO_DRIVER_ENTRY                        -- Control
    86       )
    87    );
    88 
    89 --
    90 --  This is the Initialization Tasks Table for this test.
    91 --
    92 
    93    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    94    (1=>
    95      (
    96        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    97        2048,                                          -- stack size
    98        1,                                             -- priority
    99        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    100        MPTEST.INIT'ACCESS,                            -- entry point
    101        RTEMS.NO_PREEMPT,                              -- initial mode
    102        0                                              -- argument list
    103      )
    104    );
    105 
    106 ----------------------------------------------------------------------------
    107 ----------------------------------------------------------------------------
    108 --                             BEGIN SUBPACKAGE                           --
    109 ----------------------------------------------------------------------------
    110 ----------------------------------------------------------------------------
    111 
    112    --
    113    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    114    --
    115    --  DESCRIPTION:
    116    --
    117    --  This package is the specification for the subpackage
    118    --  which will define the per node configuration parameters.
    119    --
    120    
    121    package PER_NODE_CONFIGURATION is
    122 
    123    --
    124    --  LOCAL_NODE_NUMBER
    125    --
    126    --  DESCRIPTION:
    127    --
    128    --  This function returns the node number for this node.
    129    --
    130 
    131       function LOCAL_NODE_NUMBER
    132       return RTEMS.UNSIGNED32;
    133  
    134       pragma INLINE ( LOCAL_NODE_NUMBER );
    135 
    136    end PER_NODE_CONFIGURATION;
    137  
    138 ----------------------------------------------------------------------------
    139 ----------------------------------------------------------------------------
    140 --                              END SUBPACKAGE                            --
    141 ----------------------------------------------------------------------------
    142 ----------------------------------------------------------------------------
    143 
    144 --
    145 --  This is the Multiprocessor Configuration Table for this test.
    146 --
    147 
    148    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    149       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    150       2,                         -- maximum # nodes in system
    151       32,                        -- maximum # global objects
    152       32                         -- maximum # proxies
    153     );
    154 
    155 --
    156 --  This is the Configuration Table for this test.
    157 --
    158 
    159    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    160       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    161       64 * 1024,                 -- executive RAM size
    162       10,                        -- maximum # tasks
    163       1,                         -- maximum # timers
    164       0,                         -- maximum # semaphores
    165       0,                         -- maximum # message queues
    166       0,                         -- maximum # messages
    167       0,                         -- maximum # partitions
    168       0,                         -- maximum # regions
    169       0,                         -- maximum # dp memory areas
    170       0,                         -- maximum # periods
    171       0,                         -- maximum # user extensions
    172       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    173       50                         -- # ticks in a timeslice
    174   );
    175 
    17673end MPTEST;
  • c/src/ada-tests/mptests/mp05/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 5 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5654
    5755      RTEMS.TASK_CREATE(
    58          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
     56         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5957         1,
    6058         2048,
     
    8078
    8179      RTEMS.TIMER_CREATE(
    82          MPTEST.TIMER_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
     80         MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
    8381         MPTEST.TIMER_ID( 1 ),
    8482         STATUS
     
    159157      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH" );
    160158
    161       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     159      if TEST_SUPPORT.NODE = 1 then
    162160         MPTEST.REMOTE_NODE     := 2;
    163161         MPTEST.REMOTE_SIGNAL   := RTEMS.SIGNAL_18;
     
    195193      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
    196194
    197       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     195      if TEST_SUPPORT.NODE = 1 then
    198196
    199197         TEXT_IO.PUT_LINE( "Sending signal to remote task" );
  • c/src/ada-tests/mptests/mp05/mptest.ads

    rf10fe707 r23848bbd  
    4444--  This variable is set when the test should stop executing.
    4545--
    46    STOP_TEST : RTEMS.BOOLEAN;
     46   STOP_TEST : BOOLEAN;
    4747
    4848--
     
    7878--
    7979
    80    SIGNAL_CAUGHT : RTEMS.BOOLEAN;
     80   SIGNAL_CAUGHT : BOOLEAN;
    8181   SIGNAL_COUNT  : RTEMS.UNSIGNED32;
    8282
     
    136136   );
    137137
    138 --
    139 --  This is the Driver Address Table for this test.
    140 --
    141 
    142    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    143    (1=>
    144       (
    145         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    146         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    147         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    148         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    149         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    150         RTEMS.NO_DRIVER_ENTRY                        -- Control
    151       )
    152    );
    153 
    154 --
    155 --  This is the Initialization Tasks Table for this test.
    156 --
    157 
    158    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    159    (1=>
    160      (
    161        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    162        2048,                                          -- stack size
    163        1,                                             -- priority
    164        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    165        MPTEST.INIT'ACCESS,                            -- entry point
    166        RTEMS.NO_PREEMPT,                              -- initial mode
    167        0                                              -- argument list
    168      )
    169    );
    170 
    171 ----------------------------------------------------------------------------
    172 ----------------------------------------------------------------------------
    173 --                             BEGIN SUBPACKAGE                           --
    174 ----------------------------------------------------------------------------
    175 ----------------------------------------------------------------------------
    176 
    177    --
    178    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    179    --
    180    --  DESCRIPTION:
    181    --
    182    --  This package is the specification for the subpackage
    183    --  which will define the per node configuration parameters.
    184    --
    185    
    186    package PER_NODE_CONFIGURATION is
    187 
    188    --
    189    --  LOCAL_NODE_NUMBER
    190    --
    191    --  DESCRIPTION:
    192    --
    193    --  This function returns the node number for this node.
    194    --
    195 
    196       function LOCAL_NODE_NUMBER
    197       return RTEMS.UNSIGNED32;
    198  
    199       pragma INLINE ( LOCAL_NODE_NUMBER );
    200 
    201    end PER_NODE_CONFIGURATION;
    202  
    203 ----------------------------------------------------------------------------
    204 ----------------------------------------------------------------------------
    205 --                              END SUBPACKAGE                            --
    206 ----------------------------------------------------------------------------
    207 ----------------------------------------------------------------------------
    208 
    209 --
    210 --  This is the Multiprocessor Configuration Table for this test.
    211 --
    212 
    213    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    214       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    215       2,                         -- maximum # nodes in system
    216       32,                        -- maximum # global objects
    217       32                         -- maximum # proxies
    218     );
    219 
    220 --
    221 --  This is the Configuration Table for this test.
    222 --
    223 
    224    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    225       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    226       64 * 1024,                 -- executive RAM size
    227       10,                        -- maximum # tasks
    228       1,                         -- maximum # timers
    229       2,                         -- maximum # semaphores
    230       0,                         -- maximum # message queues
    231       0,                         -- maximum # messages
    232       0,                         -- maximum # partitions
    233       0,                         -- maximum # regions
    234       0,                         -- maximum # dp memory areas
    235       0,                         -- maximum # periods
    236       0,                         -- maximum # user extensions
    237       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    238       50                         -- # ticks in a timeslice
    239   );
    240 
    241138end MPTEST;
  • c/src/ada-tests/mptests/mp06/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 6 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5654
    5755      RTEMS.TASK_CREATE(
    58          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
    59          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     56         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
     57         TEST_SUPPORT.NODE,
    6058         2048,
    6159         RTEMS.DEFAULT_MODES,
     
    8078
    8179      RTEMS.TIMER_CREATE(
    82          MPTEST.TIMER_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
     80         MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
    8381         MPTEST.TIMER_ID( 1 ),
    8482         STATUS
     
    124122      MPTEST.STOP_TEST := FALSE;
    125123
    126       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     124      if TEST_SUPPORT.NODE = 1 then
    127125         MPTEST.REMOTE_NODE     := 2;
    128126      else
     
    148146      end loop;
    149147
    150       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     148      if TEST_SUPPORT.NODE = 1 then
    151149         TEXT_IO.PUT_LINE( "Sending events to remote task" );
    152150      else
     
    174172            );
    175173
    176          if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     174         if TEST_SUPPORT.NODE = 1 then
    177175
    178176            RTEMS.EVENT_SEND(
     
    196194               TEXT_IO.NEW_LINE( 1 );
    197195
    198                if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
     196               if TEST_SUPPORT.NODE = 2 then
    199197                  TEXT_IO.PUT_LINE(
    200198                     "Correct behavior if the other node exitted."
     
    228226      TEXT_IO.NEW_LINE;
    229227
    230       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
     228      if TEST_SUPPORT.NODE = 2 then
    231229
    232230         RTEMS.EVENT_RECEIVE(
  • c/src/ada-tests/mptests/mp06/mptest.ads

    rf10fe707 r23848bbd  
    4444--  This variable is set when the test should stop executing.
    4545--
    46    STOP_TEST : RTEMS.BOOLEAN;
     46   STOP_TEST : BOOLEAN;
    4747
    4848--
     
    143143   );
    144144
    145 --
    146 --  This is the Driver Address Table for this test.
    147 --
    148 
    149    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    150    (1=>
    151       (
    152         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    153         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    154         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    155         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    156         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    157         RTEMS.NO_DRIVER_ENTRY                        -- Control
    158       )
    159    );
    160 
    161 --
    162 --  This is the Initialization Tasks Table for this test.
    163 --
    164 
    165    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    166    (1=>
    167      (
    168        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    169        2048,                                          -- stack size
    170        1,                                             -- priority
    171        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    172        MPTEST.INIT'ACCESS,                            -- entry point
    173        RTEMS.NO_PREEMPT,                              -- initial mode
    174        0                                              -- argument list
    175      )
    176    );
    177 
    178 ----------------------------------------------------------------------------
    179 ----------------------------------------------------------------------------
    180 --                             BEGIN SUBPACKAGE                           --
    181 ----------------------------------------------------------------------------
    182 ----------------------------------------------------------------------------
    183 
    184    --
    185    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    186    --
    187    --  DESCRIPTION:
    188    --
    189    --  This package is the specification for the subpackage
    190    --  which will define the per node configuration parameters.
    191    --
    192    
    193    package PER_NODE_CONFIGURATION is
    194 
    195    --
    196    --  LOCAL_NODE_NUMBER
    197    --
    198    --  DESCRIPTION:
    199    --
    200    --  This function returns the node number for this node.
    201    --
    202 
    203       function LOCAL_NODE_NUMBER
    204       return RTEMS.UNSIGNED32;
    205  
    206       pragma INLINE ( LOCAL_NODE_NUMBER );
    207 
    208    end PER_NODE_CONFIGURATION;
    209  
    210 ----------------------------------------------------------------------------
    211 ----------------------------------------------------------------------------
    212 --                              END SUBPACKAGE                            --
    213 ----------------------------------------------------------------------------
    214 ----------------------------------------------------------------------------
    215 
    216 --
    217 --  This is the Multiprocessor Configuration Table for this test.
    218 --
    219 
    220    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    221       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    222       2,                         -- maximum # nodes in system
    223       32,                        -- maximum # global objects
    224       32                         -- maximum # proxies
    225     );
    226 
    227 --
    228 --  This is the Configuration Table for this test.
    229 --
    230 
    231    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    232       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    233       64 * 1024,                 -- executive RAM size
    234       10,                        -- maximum # tasks
    235       1,                         -- maximum # timers
    236       2,                         -- maximum # semaphores
    237       0,                         -- maximum # message queues
    238       0,                         -- maximum # messages
    239       0,                         -- maximum # partitions
    240       0,                         -- maximum # regions
    241       0,                         -- maximum # dp memory areas
    242       0,                         -- maximum # periods
    243       0,                         -- maximum # user extensions
    244       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    245       50                         -- # ticks in a timeslice
    246   );
    247 
    248145end MPTEST;
  • c/src/ada-tests/mptests/mp07/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 7 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5553      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    5654      RTEMS.TASK_CREATE(
    57          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
    58          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     55         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
     56         TEST_SUPPORT.NODE,
    5957         2048,
    6058         RTEMS.TIMESLICE,
     
    112110      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    113111   ) is
    114       COUNT     : RTEMS.UNSIGNED32;
    115112      EVENT_OUT : RTEMS.EVENT_SET;
    116113      STATUS    : RTEMS.STATUS_CODES;
     
    119116      MPTEST.STOP_TEST := FALSE;
    120117
    121       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     118      if TEST_SUPPORT.NODE = 1 then
    122119         MPTEST.REMOTE_NODE := 2;
    123120      else
     
    141138      end loop;
    142139
    143       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     140      if TEST_SUPPORT.NODE = 1 then
    144141
    145142         TEXT_IO.PUT_LINE( "Sending first event to remote task" );
  • c/src/ada-tests/mptests/mp07/mptest.ads

    rf10fe707 r23848bbd  
    4444--  This variable is set when the test should stop executing.
    4545--
    46    STOP_TEST : RTEMS.BOOLEAN;
     46   STOP_TEST : BOOLEAN;
    4747
    4848--
     
    103103   );
    104104
    105 --
    106 --  This is the Driver Address Table for this test.
    107 --
    108 
    109    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    110    (1=>
    111       (
    112         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    113         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    114         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    115         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    116         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    117         RTEMS.NO_DRIVER_ENTRY                        -- Control
    118       )
    119    );
    120 
    121 --
    122 --  This is the Initialization Tasks Table for this test.
    123 --
    124 
    125    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    126    (1=>
    127      (
    128        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    129        2048,                                          -- stack size
    130        1,                                             -- priority
    131        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    132        MPTEST.INIT'ACCESS,                            -- entry point
    133        RTEMS.NO_PREEMPT,                              -- initial mode
    134        0                                              -- argument list
    135      )
    136    );
    137 
    138 ----------------------------------------------------------------------------
    139 ----------------------------------------------------------------------------
    140 --                             BEGIN SUBPACKAGE                           --
    141 ----------------------------------------------------------------------------
    142 ----------------------------------------------------------------------------
    143 
    144    --
    145    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    146    --
    147    --  DESCRIPTION:
    148    --
    149    --  This package is the specification for the subpackage
    150    --  which will define the per node configuration parameters.
    151    --
    152    
    153    package PER_NODE_CONFIGURATION is
    154 
    155    --
    156    --  LOCAL_NODE_NUMBER
    157    --
    158    --  DESCRIPTION:
    159    --
    160    --  This function returns the node number for this node.
    161    --
    162 
    163       function LOCAL_NODE_NUMBER
    164       return RTEMS.UNSIGNED32;
    165  
    166       pragma INLINE ( LOCAL_NODE_NUMBER );
    167 
    168    end PER_NODE_CONFIGURATION;
    169  
    170 ----------------------------------------------------------------------------
    171 ----------------------------------------------------------------------------
    172 --                              END SUBPACKAGE                            --
    173 ----------------------------------------------------------------------------
    174 ----------------------------------------------------------------------------
    175 
    176 --
    177 --  This is the Multiprocessor Configuration Table for this test.
    178 --
    179 
    180    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    181       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    182       2,                         -- maximum # nodes in system
    183       32,                        -- maximum # global objects
    184       32                         -- maximum # proxies
    185     );
    186 
    187 --
    188 --  This is the Configuration Table for this test.
    189 --
    190 
    191    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    192       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    193       64 * 1024,                 -- executive RAM size
    194       10,                        -- maximum # tasks
    195       1,                         -- maximum # timers
    196       2,                         -- maximum # semaphores
    197       0,                         -- maximum # message queues
    198       0,                         -- maximum # messages
    199       0,                         -- maximum # partitions
    200       0,                         -- maximum # regions
    201       0,                         -- maximum # dp memory areas
    202       0,                         -- maximum # periods
    203       0,                         -- maximum # user extensions
    204       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    205       50                         -- # ticks in a timeslice
    206   );
    207 
    208105end MPTEST;
  • c/src/ada-tests/mptests/mp08/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 8 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5553      MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME(  'S', 'E', 'M', ' ' );
    5654
    57       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     55      if TEST_SUPPORT.NODE = 1 then
    5856
    5957         TEXT_IO.PUT_LINE( "Creating Semaphore(Global)" );
     
    7270      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    7371      RTEMS.TASK_CREATE(
    74          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
    75          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     72         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
     73         TEST_SUPPORT.NODE,
    7674         2048,
    7775         RTEMS.TIMESLICE,
     
    124122      end loop;
    125123
    126       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
     124      if TEST_SUPPORT.NODE = 2 then
    127125
    128126         RTEMS.SEMAPHORE_DELETE(
     
    175173         COUNT := COUNT + 1;
    176174
    177          if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 and then
     175         if TEST_SUPPORT.NODE = 1 and then
    178176            COUNT >= 1000 then
    179177
  • c/src/ada-tests/mptests/mp08/mptest.ads

    rf10fe707 r23848bbd  
    8585   );
    8686
    87 --
    88 --  This is the Driver Address Table for this test.
    89 --
    90 
    91    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    92    (1=>
    93       (
    94         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    95         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    96         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    97         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    98         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    99         RTEMS.NO_DRIVER_ENTRY                        -- Control
    100       )
    101    );
    102 
    103 --
    104 --  This is the Initialization Tasks Table for this test.
    105 --
    106 
    107    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    108    (1=>
    109      (
    110        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    111        2048,                                          -- stack size
    112        1,                                             -- priority
    113        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    114        MPTEST.INIT'ACCESS,                            -- entry point
    115        RTEMS.NO_PREEMPT,                              -- initial mode
    116        0                                              -- argument list
    117      )
    118    );
    119 
    120 ----------------------------------------------------------------------------
    121 ----------------------------------------------------------------------------
    122 --                             BEGIN SUBPACKAGE                           --
    123 ----------------------------------------------------------------------------
    124 ----------------------------------------------------------------------------
    125 
    126    --
    127    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    128    --
    129    --  DESCRIPTION:
    130    --
    131    --  This package is the specification for the subpackage
    132    --  which will define the per node configuration parameters.
    133    --
    134    
    135    package PER_NODE_CONFIGURATION is
    136 
    137    --
    138    --  LOCAL_NODE_NUMBER
    139    --
    140    --  DESCRIPTION:
    141    --
    142    --  This function returns the node number for this node.
    143    --
    144 
    145       function LOCAL_NODE_NUMBER
    146       return RTEMS.UNSIGNED32;
    147  
    148       pragma INLINE ( LOCAL_NODE_NUMBER );
    149 
    150    end PER_NODE_CONFIGURATION;
    151  
    152 ----------------------------------------------------------------------------
    153 ----------------------------------------------------------------------------
    154 --                              END SUBPACKAGE                            --
    155 ----------------------------------------------------------------------------
    156 ----------------------------------------------------------------------------
    157 
    158 --
    159 --  This is the Multiprocessor Configuration Table for this test.
    160 --
    161 
    162    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    163       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    164       2,                         -- maximum # nodes in system
    165       32,                        -- maximum # global objects
    166       32                         -- maximum # proxies
    167     );
    168 
    169 --
    170 --  This is the Configuration Table for this test.
    171 --
    172 
    173    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    174       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    175       64 * 1024,                 -- executive RAM size
    176       10,                        -- maximum # tasks
    177       1,                         -- maximum # timers
    178       1,                         -- maximum # semaphores
    179       0,                         -- maximum # message queues
    180       0,                         -- maximum # messages
    181       0,                         -- maximum # partitions
    182       0,                         -- maximum # regions
    183       0,                         -- maximum # dp memory areas
    184       0,                         -- maximum # periods
    185       0,                         -- maximum # user extensions
    186       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    187       50                         -- # ticks in a timeslice
    188   );
    189 
    19087end MPTEST;
  • c/src/ada-tests/mptests/mp09/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 9 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    7573      MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME(  'M', 'S', 'G', ' ' );
    7674
    77       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     75      if TEST_SUPPORT.NODE = 1 then
    7876
    7977         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
     
    9189      TEXT_IO.PUT_LINE( "Creating Test_task (local)" );
    9290      RTEMS.TASK_CREATE(
    93          MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
    94          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     91         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
     92         TEST_SUPPORT.NODE,
    9593         2048,
    9694         RTEMS.TIMESLICE,
     
    297295      end loop;
    298296
    299       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
     297      if TEST_SUPPORT.NODE = 2 then
    300298
    301299         RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
  • c/src/ada-tests/mptests/mp09/mptest.ads

    rf10fe707 r23848bbd  
    147147   );
    148148
    149 --
    150 --  This is the Driver Address Table for this test.
    151 --
    152 
    153    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    154    (1=>
    155       (
    156         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    157         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    158         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    159         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    160         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    161         RTEMS.NO_DRIVER_ENTRY                        -- Control
    162       )
    163    );
    164 
    165 --
    166 --  This is the Initialization Tasks Table for this test.
    167 --
    168 
    169    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    170    (1=>
    171      (
    172        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    173        2048,                                          -- stack size
    174        1,                                             -- priority
    175        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    176        MPTEST.INIT'ACCESS,                            -- entry point
    177        RTEMS.NO_PREEMPT,                              -- initial mode
    178        0                                              -- argument list
    179      )
    180    );
    181 
    182 ----------------------------------------------------------------------------
    183 ----------------------------------------------------------------------------
    184 --                             BEGIN SUBPACKAGE                           --
    185 ----------------------------------------------------------------------------
    186 ----------------------------------------------------------------------------
    187 
    188    --
    189    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    190    --
    191    --  DESCRIPTION:
    192    --
    193    --  This package is the specification for the subpackage
    194    --  which will define the per node configuration parameters.
    195    --
    196    
    197    package PER_NODE_CONFIGURATION is
    198 
    199    --
    200    --  LOCAL_NODE_NUMBER
    201    --
    202    --  DESCRIPTION:
    203    --
    204    --  This function returns the node number for this node.
    205    --
    206 
    207       function LOCAL_NODE_NUMBER
    208       return RTEMS.UNSIGNED32;
    209  
    210       pragma INLINE ( LOCAL_NODE_NUMBER );
    211 
    212    end PER_NODE_CONFIGURATION;
    213  
    214 ----------------------------------------------------------------------------
    215 ----------------------------------------------------------------------------
    216 --                              END SUBPACKAGE                            --
    217 ----------------------------------------------------------------------------
    218 ----------------------------------------------------------------------------
    219 
    220 --
    221 --  This is the Multiprocessor Configuration Table for this test.
    222 --
    223 
    224    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    225       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    226       2,                         -- maximum # nodes in system
    227       32,                        -- maximum # global objects
    228       32                         -- maximum # proxies
    229     );
    230 
    231 --
    232 --  This is the Configuration Table for this test.
    233 --
    234 
    235    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    236       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    237       64 * 1024,                 -- executive RAM size
    238       10,                        -- maximum # tasks
    239       0,                         -- maximum # timers
    240       0,                         -- maximum # semaphores
    241       1,                         -- maximum # message queues
    242       1,                         -- maximum # messages
    243       0,                         -- maximum # partitions
    244       0,                         -- maximum # regions
    245       0,                         -- maximum # dp memory areas
    246       0,                         -- maximum # periods
    247       0,                         -- maximum # user extensions
    248       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    249       50                         -- # ticks in a timeslice
    250   );
    251 
    252149end MPTEST;
  • c/src/ada-tests/mptests/mp10/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 10 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5957      MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME(  'S', 'E', 'M', ' ' );
    6058
    61       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     59      if TEST_SUPPORT.NODE = 1 then
    6260
    6361         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
  • c/src/ada-tests/mptests/mp10/mptest.ads

    rf10fe707 r23848bbd  
    117117   );
    118118
    119 --
    120 --  This is the Driver Address Table for this test.
    121 --
    122 
    123    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    124    (1=>
    125       (
    126         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    127         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    128         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    129         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    130         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    131         RTEMS.NO_DRIVER_ENTRY                        -- Control
    132       )
    133    );
    134 
    135 --
    136 --  This is the Initialization Tasks Table for this test.
    137 --
    138 
    139    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    140    (1=>
    141      (
    142        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    143        2048,                                          -- stack size
    144        1,                                             -- priority
    145        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    146        MPTEST.INIT'ACCESS,                            -- entry point
    147        RTEMS.NO_PREEMPT,                              -- initial mode
    148        0                                              -- argument list
    149      )
    150    );
    151 
    152 ----------------------------------------------------------------------------
    153 ----------------------------------------------------------------------------
    154 --                             BEGIN SUBPACKAGE                           --
    155 ----------------------------------------------------------------------------
    156 ----------------------------------------------------------------------------
    157 
    158    --
    159    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    160    --
    161    --  DESCRIPTION:
    162    --
    163    --  This package is the specification for the subpackage
    164    --  which will define the per node configuration parameters.
    165    --
    166    
    167    package PER_NODE_CONFIGURATION is
    168 
    169    --
    170    --  LOCAL_NODE_NUMBER
    171    --
    172    --  DESCRIPTION:
    173    --
    174    --  This function returns the node number for this node.
    175    --
    176 
    177       function LOCAL_NODE_NUMBER
    178       return RTEMS.UNSIGNED32;
    179  
    180       pragma INLINE ( LOCAL_NODE_NUMBER );
    181 
    182    end PER_NODE_CONFIGURATION;
    183  
    184 ----------------------------------------------------------------------------
    185 ----------------------------------------------------------------------------
    186 --                              END SUBPACKAGE                            --
    187 ----------------------------------------------------------------------------
    188 ----------------------------------------------------------------------------
    189 
    190 --
    191 --  This is the Multiprocessor Configuration Table for this test.
    192 --
    193 
    194    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    195       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    196       2,                         -- maximum # nodes in system
    197       32,                        -- maximum # global objects
    198       32                         -- maximum # proxies
    199     );
    200 
    201 --
    202 --  This is the Configuration Table for this test.
    203 --
    204 
    205    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    206       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    207       64 * 1024,                 -- executive RAM size
    208       10,                        -- maximum # tasks
    209       0,                         -- maximum # timers
    210       1,                         -- maximum # semaphores
    211       1,                         -- maximum # message queues
    212       0,                         -- maximum # messages
    213       0,                         -- maximum # partitions
    214       0,                         -- maximum # regions
    215       0,                         -- maximum # dp memory areas
    216       0,                         -- maximum # periods
    217       0,                         -- maximum # user extensions
    218       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    219       50                         -- # ticks in a timeslice
    220   );
    221 
    222119end MPTEST;
  • c/src/ada-tests/mptests/mp11/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 11 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5957      MPTEST.PARTITION_NAME( 1 ) := RTEMS.BUILD_NAME(  'P', 'A', 'R', ' ' );
    6058
    61       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     59      if TEST_SUPPORT.NODE = 1 then
    6260
    6361         TEXT_IO.PUT_LINE( "Attempting to create Test_task (Global)" );
  • c/src/ada-tests/mptests/mp11/mptest.ads

    rf10fe707 r23848bbd  
    7777   );
    7878
    79 --
    80 --  This is the Driver Address Table for this test.
    81 --
    82 
    83    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    84    (1=>
    85       (
    86         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    87         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    88         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    89         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    90         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    91         RTEMS.NO_DRIVER_ENTRY                        -- Control
    92       )
    93    );
    94 
    95 --
    96 --  This is the Initialization Tasks Table for this test.
    97 --
    98 
    99    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    100    (1=>
    101      (
    102        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    103        2048,                                          -- stack size
    104        1,                                             -- priority
    105        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    106        MPTEST.INIT'ACCESS,                            -- entry point
    107        RTEMS.NO_PREEMPT,                              -- initial mode
    108        0                                              -- argument list
    109      )
    110    );
    111 
    112 ----------------------------------------------------------------------------
    113 ----------------------------------------------------------------------------
    114 --                             BEGIN SUBPACKAGE                           --
    115 ----------------------------------------------------------------------------
    116 ----------------------------------------------------------------------------
    117 
    118    --
    119    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    120    --
    121    --  DESCRIPTION:
    122    --
    123    --  This package is the specification for the subpackage
    124    --  which will define the per node configuration parameters.
    125    --
    126    
    127    package PER_NODE_CONFIGURATION is
    128 
    129    --
    130    --  LOCAL_NODE_NUMBER
    131    --
    132    --  DESCRIPTION:
    133    --
    134    --  This function returns the node number for this node.
    135    --
    136 
    137       function LOCAL_NODE_NUMBER
    138       return RTEMS.UNSIGNED32;
    139  
    140       pragma INLINE ( LOCAL_NODE_NUMBER );
    141 
    142    end PER_NODE_CONFIGURATION;
    143  
    144 ----------------------------------------------------------------------------
    145 ----------------------------------------------------------------------------
    146 --                              END SUBPACKAGE                            --
    147 ----------------------------------------------------------------------------
    148 ----------------------------------------------------------------------------
    149 
    150 --
    151 --  This is the Multiprocessor Configuration Table for this test.
    152 --
    153 
    154    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    155       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    156       2,                         -- maximum # nodes in system
    157       0,                         -- maximum # global objects
    158       0                          -- maximum # proxies
    159     );
    160 
    161 --
    162 --  This is the Configuration Table for this test.
    163 --
    164 
    165    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    166       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    167       64 * 1024,                 -- executive RAM size
    168       10,                        -- maximum # tasks
    169       0,                         -- maximum # timers
    170       1,                         -- maximum # semaphores
    171       1,                         -- maximum # message queues
    172       0,                         -- maximum # messages
    173       1,                         -- maximum # partitions
    174       0,                         -- maximum # regions
    175       0,                         -- maximum # dp memory areas
    176       0,                         -- maximum # periods
    177       0,                         -- maximum # user extensions
    178       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    179       50                         -- # ticks in a timeslice
    180   );
    181 
    18279end MPTEST;
  • c/src/ada-tests/mptests/mp12/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4644      TEXT_IO.PUT( "*** TEST 12 -- NODE " );
    4745      UNSIGNED32_IO.PUT(
    48          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     46         TEST_SUPPORT.NODE,
    4947         WIDTH => 1
    5048      );
     
    5856      TEXT_IO.PUT_LINE( "Got to the initialization task" );
    5957
    60       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
     58      if TEST_SUPPORT.NODE = 2 then
    6159
    6260         RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
  • c/src/ada-tests/mptests/mp12/mptest.ads

    rf10fe707 r23848bbd  
    7575   for PARTITION_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
    7676
    77 --
    78 --  This is the Driver Address Table for this test.
    79 --
    80 
    81    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    82    (1=>
    83       (
    84         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    85         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    86         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    87         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    88         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    89         RTEMS.NO_DRIVER_ENTRY                        -- Control
    90       )
    91    );
    92 
    93 --
    94 --  This is the Initialization Tasks Table for this test.
    95 --
    96 
    97    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    98    (1=>
    99      (
    100        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    101        2048,                                          -- stack size
    102        1,                                             -- priority
    103        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    104        MPTEST.INIT'ACCESS,                            -- entry point
    105        RTEMS.NO_PREEMPT,                              -- initial mode
    106        0                                              -- argument list
    107      )
    108    );
    109 
    110 ----------------------------------------------------------------------------
    111 ----------------------------------------------------------------------------
    112 --                             BEGIN SUBPACKAGE                           --
    113 ----------------------------------------------------------------------------
    114 ----------------------------------------------------------------------------
    115 
    116    --
    117    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    118    --
    119    --  DESCRIPTION:
    120    --
    121    --  This package is the specification for the subpackage
    122    --  which will define the per node configuration parameters.
    123    --
    124    
    125    package PER_NODE_CONFIGURATION is
    126 
    127    --
    128    --  LOCAL_NODE_NUMBER
    129    --
    130    --  DESCRIPTION:
    131    --
    132    --  This function returns the node number for this node.
    133    --
    134 
    135       function LOCAL_NODE_NUMBER
    136       return RTEMS.UNSIGNED32;
    137  
    138       pragma INLINE ( LOCAL_NODE_NUMBER );
    139 
    140    end PER_NODE_CONFIGURATION;
    141  
    142 ----------------------------------------------------------------------------
    143 ----------------------------------------------------------------------------
    144 --                              END SUBPACKAGE                            --
    145 ----------------------------------------------------------------------------
    146 ----------------------------------------------------------------------------
    147 
    148 --
    149 --  This is the Multiprocessor Configuration Table for this test.
    150 --
    151 
    152    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    153       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    154       2,                         -- maximum # nodes in system
    155       32,                        -- maximum # global objects
    156       32                         -- maximum # proxies
    157     );
    158 
    159 --
    160 --  This is the Configuration Table for this test.
    161 --
    162 
    163    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    164       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    165       64 * 1024,                 -- executive RAM size
    166       10,                        -- maximum # tasks
    167       0,                         -- maximum # timers
    168       0,                         -- maximum # semaphores
    169       0,                         -- maximum # message queues
    170       0,                         -- maximum # messages
    171       1,                         -- maximum # partitions
    172       0,                         -- maximum # regions
    173       0,                         -- maximum # dp memory areas
    174       0,                         -- maximum # periods
    175       0,                         -- maximum # user extensions
    176       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    177       50                         -- # ticks in a timeslice
    178   );
    179 
    18077end MPTEST;
  • c/src/ada-tests/mptests/mp13/mptest.adb

    rf10fe707 r23848bbd  
    2929package body MPTEST is
    3030
    31    package body PER_NODE_CONFIGURATION is separate;
    32 
    3331--PAGE
    3432--
     
    4543      TEXT_IO.PUT( "*** TEST 13 -- NODE " );
    4644      UNSIGNED32_IO.PUT(
    47          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     45         TEST_SUPPORT.NODE,
    4846         WIDTH => 1
    4947      );
     
    5755      MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME(  'S', 'E', 'M', ' ' );
    5856
    59       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     57      if TEST_SUPPORT.NODE = 1 then
    6058
    6159         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
     
    131129      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
    132130
    133       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     131      if TEST_SUPPORT.NODE = 1 then
    134132
    135133         RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     
    180178      end loop;
    181179
    182       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     180      if TEST_SUPPORT.NODE = 1 then
    183181
    184182         TEXT_IO.PUT_LINE( "Receiving message ..." );
     
    253251      end loop;
    254252
    255       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     253      if TEST_SUPPORT.NODE = 1 then
    256254
    257255         RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
  • c/src/ada-tests/mptests/mp13/mptest.ads

    rf10fe707 r23848bbd  
    9999   );
    100100
    101 --
    102 --  This is the Driver Address Table for this test.
    103 --
    104 
    105    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    106    (1=>
    107       (
    108         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    109         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    110         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    111         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    112         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    113         RTEMS.NO_DRIVER_ENTRY                        -- Control
    114       )
    115    );
    116 
    117 --
    118 --  This is the Initialization Tasks Table for this test.
    119 --
    120 
    121    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    122    (1=>
    123      (
    124        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    125        2048,                                          -- stack size
    126        1,                                             -- priority
    127        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    128        MPTEST.INIT'ACCESS,                            -- entry point
    129        RTEMS.NO_PREEMPT,                              -- initial mode
    130        0                                              -- argument list
    131      )
    132    );
    133 
    134 ----------------------------------------------------------------------------
    135 ----------------------------------------------------------------------------
    136 --                             BEGIN SUBPACKAGE                           --
    137 ----------------------------------------------------------------------------
    138 ----------------------------------------------------------------------------
    139 
    140    --
    141    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    142    --
    143    --  DESCRIPTION:
    144    --
    145    --  This package is the specification for the subpackage
    146    --  which will define the per node configuration parameters.
    147    --
    148    
    149    package PER_NODE_CONFIGURATION is
    150 
    151    --
    152    --  LOCAL_NODE_NUMBER
    153    --
    154    --  DESCRIPTION:
    155    --
    156    --  This function returns the node number for this node.
    157    --
    158 
    159       function LOCAL_NODE_NUMBER
    160       return RTEMS.UNSIGNED32;
    161  
    162       pragma INLINE ( LOCAL_NODE_NUMBER );
    163 
    164    end PER_NODE_CONFIGURATION;
    165  
    166 ----------------------------------------------------------------------------
    167 ----------------------------------------------------------------------------
    168 --                              END SUBPACKAGE                            --
    169 ----------------------------------------------------------------------------
    170 ----------------------------------------------------------------------------
    171 
    172 --
    173 --  This is the Multiprocessor Configuration Table for this test.
    174 --
    175 
    176    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    177       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    178       2,                         -- maximum # nodes in system
    179       32,                        -- maximum # global objects
    180       32                         -- maximum # proxies
    181     );
    182 
    183 --
    184 --  This is the Configuration Table for this test.
    185 --
    186 
    187    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    188       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    189       64 * 1024,                 -- executive RAM size
    190       10,                        -- maximum # tasks
    191       0,                         -- maximum # timers
    192       1,                         -- maximum # semaphores
    193       1,                         -- maximum # message queues
    194       0,                         -- maximum # messages
    195       0,                         -- maximum # partitions
    196       0,                         -- maximum # regions
    197       0,                         -- maximum # dp memory areas
    198       0,                         -- maximum # periods
    199       0,                         -- maximum # user extensions
    200       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    201       50                         -- # ticks in a timeslice
    202   );
    203 
    204101end MPTEST;
  • c/src/ada-tests/mptests/mp14/mptest.adb

    rf10fe707 r23848bbd  
    2323with INTERFACES; use INTERFACES;
    2424with INTERFACES.C;
    25 with BSP;
    2625with RTEMS;
    2726with TEST_SUPPORT;
     
    2928with UNSIGNED32_IO;
    3029
     30with System.Storage_Elements; use System.Storage_Elements;
     31
    3132package body MPTEST is
    32 
    33    package body PER_NODE_CONFIGURATION is separate;
    3433
    3534--PAGE
     
    8584      TEXT_IO.PUT( "*** TEST 14 -- NODE " );
    8685      UNSIGNED32_IO.PUT(
    87          MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
     86         TEST_SUPPORT.NODE,
    8887         WIDTH => 1
    8988      );
     
    103102      RTEMS.TIMER_FIRE_AFTER(
    104103         MPTEST.STOP_TIMER_ID,
    105          BSP.MAXIMUM_LONG_TEST_DURATION * TEST_SUPPORT.TICKS_PER_SECOND,
     104         TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION * TEST_SUPPORT.TICKS_PER_SECOND,
    106105         MPTEST.STOP_TEST_TSR'ACCESS,
    107106         RTEMS.NULL_ADDRESS,
     
    138137
    139138         MPTEST.BUFFERS( INDEX ) :=
    140             RTEMS.TO_BUFFER_POINTER( MPTEST.BUFFER_AREAS( INDEX )'ADDRESS );
    141 
    142       end loop;
    143 
    144       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     139            MPTEST.BUFFER_AREAS( INDEX )'ADDRESS;
     140
     141      end loop;
     142
     143      if TEST_SUPPORT.NODE = 1 then
    145144
    146145         TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
     
    181180      RTEMS.TASK_CREATE(
    182181         MPTEST.EVENT_TASK_NAME(
    183             MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
     182            TEST_SUPPORT.NODE
    184183         ),
    185184         2,
     
    204203      RTEMS.TASK_CREATE(
    205204         MPTEST.SEMAPHORE_TASK_NAME(
    206             MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
     205            TEST_SUPPORT.NODE
    207206         ),
    208207         2,
     
    227226      RTEMS.TASK_CREATE(
    228227         MPTEST.QUEUE_TASK_NAME(
    229             MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
     228            TEST_SUPPORT.NODE
    230229         ),
    231230         2,
     
    250249      RTEMS.TASK_CREATE(
    251250         MPTEST.PARTITION_TASK_NAME(
    252             MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
     251            TEST_SUPPORT.NODE
    253252         ),
    254253         2,
     
    320319   begin
    321320
    322       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     321      if TEST_SUPPORT.NODE = 1 then
    323322         REMOTE_NODE := 2;
    324323      else
     
    351350      end loop;
    352351
    353       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     352      if TEST_SUPPORT.NODE = 1 then
    354353         TEXT_IO.PUT_LINE( "Sending events to remote task" );
    355354
     
    515514      end loop;
    516515
    517       if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     516      if TEST_SUPPORT.NODE = 1 then
    518517
    519518         RTEMS.MESSAGE_QUEUE_SEND(
     
    582581
    583582            if MPTEST.STOP_TEST = FALSE then
    584                if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     583               if TEST_SUPPORT.NODE = 1 then
    585584
    586585                  YIELD_COUNT := YIELD_COUNT - 1;
     
    667666            );
    668667
    669             if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     668            if TEST_SUPPORT.NODE = 1 then
    670669
    671670               RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
     
    738737            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
    739738
    740             if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
     739            if TEST_SUPPORT.NODE = 1 then
    741740
    742741               YIELD_COUNT := YIELD_COUNT - 1;
  • c/src/ada-tests/mptests/mp14/mptest.ads

    rf10fe707 r23848bbd  
    107107
    108108   BUFFER_AREAS : array (  RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.BUFFER;
    109    BUFFERS      :
    110       array (  RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.BUFFER_POINTER;
     109   BUFFERS      : array (  RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ADDRESS;
    111110
    112111--
     
    142141--
    143142
    144    STOP_TEST : RTEMS.BOOLEAN;
     143   STOP_TEST : BOOLEAN;
    145144 
    146145--
     
    240239   );
    241240
    242 --
    243 --  This is the Driver Address Table for this test.
    244 --
    245 
    246    DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
    247    (1=>
    248       (
    249         CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
    250         RTEMS.NO_DRIVER_ENTRY,                       -- Open
    251         RTEMS.NO_DRIVER_ENTRY,                       -- Close
    252         RTEMS.NO_DRIVER_ENTRY,                       -- Read
    253         RTEMS.NO_DRIVER_ENTRY,                       -- Write
    254         RTEMS.NO_DRIVER_ENTRY                        -- Control
    255       )
    256    );
    257 
    258 --
    259 --  This is the Initialization Tasks Table for this test.
    260 --
    261 
    262    INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
    263    (1=>
    264      (
    265        RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
    266        2048,                                          -- stack size
    267        1,                                             -- priority
    268        RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
    269        MPTEST.INIT'ACCESS,                            -- entry point
    270        RTEMS.TIMESLICE,                              -- initial mode
    271        0                                              -- argument list
    272      )
    273    );
    274 
    275 ----------------------------------------------------------------------------
    276 ----------------------------------------------------------------------------
    277 --                             BEGIN SUBPACKAGE                           --
    278 ----------------------------------------------------------------------------
    279 ----------------------------------------------------------------------------
    280 
    281    --
    282    --  MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
    283    --
    284    --  DESCRIPTION:
    285    --
    286    --  This package is the specification for the subpackage
    287    --  which will define the per node configuration parameters.
    288    --
    289    
    290    package PER_NODE_CONFIGURATION is
    291 
    292    --
    293    --  LOCAL_NODE_NUMBER
    294    --
    295    --  DESCRIPTION:
    296    --
    297    --  This function returns the node number for this node.
    298    --
    299 
    300       function LOCAL_NODE_NUMBER
    301       return RTEMS.UNSIGNED32;
    302  
    303       pragma INLINE ( LOCAL_NODE_NUMBER );
    304 
    305    end PER_NODE_CONFIGURATION;
    306  
    307 ----------------------------------------------------------------------------
    308 ----------------------------------------------------------------------------
    309 --                              END SUBPACKAGE                            --
    310 ----------------------------------------------------------------------------
    311 ----------------------------------------------------------------------------
    312 
    313 --
    314 --  This is the Multiprocessor Configuration Table for this test.
    315 --
    316 
    317    MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
    318       MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
    319       2,                         -- maximum # nodes in system
    320       32,                        -- maximum # global objects
    321       32                         -- maximum # proxies
    322     );
    323 
    324 --
    325 --  This is the Configuration Table for this test.
    326 --
    327 
    328    CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
    329       RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
    330       64 * 1024,                 -- executive RAM size
    331       10,                        -- maximum # tasks
    332       12,                        -- maximum # timers
    333       1,                         -- maximum # semaphores
    334       1,                         -- maximum # message queues
    335       1,                         -- maximum # messages
    336       1,                         -- maximum # partitions
    337       0,                         -- maximum # regions
    338       0,                         -- maximum # dp memory areas
    339       0,                         -- maximum # periods
    340       0,                         -- maximum # user extensions
    341       RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
    342       1                          -- # ticks in a timeslice
    343   );
    344 
    345241end MPTEST;
  • 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.