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

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

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

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/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
Note: See TracChangeset for help on using the changeset viewer.