Changeset 3c4d8cd1 in rtems for c/src/ada-tests/mptests


Ignore:
Timestamp:
Feb 16, 2011, 3:53:16 PM (10 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.11, 5, master
Children:
0f7b6eff
Parents:
1987020
Message:

2011-02-16 Joel Sherrill <joel.sherrill@…>

  • ada-tests/mptests/mp01/mp01.adb, ada-tests/mptests/mp01/mptest.adb, ada-tests/mptests/mp01/mptest.ads, ada-tests/mptests/mp01/node1/mp01_node1.adb, ada-tests/mptests/mp01/node2/mp01_node2.adb, ada-tests/mptests/mp02/mptest.adb, ada-tests/mptests/mp02/mptest.ads, ada-tests/mptests/mp02/node1/mp02_node1.adb, ada-tests/mptests/mp02/node2/mp02_node2.adb, ada-tests/mptests/mp03/mptest.adb, ada-tests/mptests/mp03/mptest.ads, ada-tests/mptests/mp03/node1/mp03_node1.adb, ada-tests/mptests/mp03/node2/mp03_node2.adb, ada-tests/mptests/mp04/mptest.adb, ada-tests/mptests/mp04/mptest.ads, ada-tests/mptests/mp04/node1/mp04_node1.adb, ada-tests/mptests/mp04/node2/mp04_node2.adb, ada-tests/mptests/mp05/mptest.adb, ada-tests/mptests/mp05/mptest.ads, ada-tests/mptests/mp05/node1/mp05_node1.adb, ada-tests/mptests/mp05/node2/mp05_node2.adb, ada-tests/mptests/mp06/mptest.adb, ada-tests/mptests/mp06/mptest.ads, ada-tests/mptests/mp06/node1/mp06_node1.adb, ada-tests/mptests/mp06/node2/mp06_node2.adb, ada-tests/mptests/mp07/mptest.adb, ada-tests/mptests/mp07/mptest.ads, ada-tests/mptests/mp07/node1/mp07_node1.adb, ada-tests/mptests/mp07/node2/mp07_node2.adb, ada-tests/mptests/mp08/mptest.adb, ada-tests/mptests/mp08/mptest.ads, ada-tests/mptests/mp08/node1/mp08_node1.adb, ada-tests/mptests/mp08/node2/mp08_node2.adb, ada-tests/mptests/mp09/mptest.adb, ada-tests/mptests/mp09/mptest.ads, ada-tests/mptests/mp09/node1/mp09_node1.adb, ada-tests/mptests/mp09/node2/mp09_node2.adb, ada-tests/mptests/mp10/mptest.adb, ada-tests/mptests/mp10/mptest.ads, ada-tests/mptests/mp10/node1/mp10_node1.adb, ada-tests/mptests/mp10/node2/mp10_node2.adb, ada-tests/mptests/mp11/mptest.adb, ada-tests/mptests/mp11/mptest.ads, ada-tests/mptests/mp11/node1/mp11_node1.adb, ada-tests/mptests/mp11/node2/mp11_node2.adb, ada-tests/mptests/mp12/mptest.adb, ada-tests/mptests/mp12/mptest.ads, ada-tests/mptests/mp12/node1/mp12_node1.adb, ada-tests/mptests/mp12/node2/mp12_node2.adb, ada-tests/mptests/mp13/mptest.adb, ada-tests/mptests/mp13/mptest.ads, ada-tests/mptests/mp13/node1/mp13_node1.adb, ada-tests/mptests/mp13/node2/mp13_node2.adb, ada-tests/mptests/mp14/mptest.adb, ada-tests/mptests/mp14/mptest.ads, ada-tests/mptests/mp14/node1/mp14_node1.adb, ada-tests/mptests/mp14/node2/mp14_node2.adb, ada-tests/samples/base_mp/mptest.adb, ada-tests/samples/base_mp/mptest.ads, ada-tests/samples/base_sp/base_sp.adb, ada-tests/samples/base_sp/sptest.adb, ada-tests/samples/base_sp/sptest.ads, ada-tests/samples/hello/hello.adb, ada-tests/samples/hello/sptest.adb, ada-tests/samples/hello/sptest.ads, ada-tests/samples/nsecs/nsecs.adb, ada-tests/samples/nsecs/sptest.adb, ada-tests/samples/nsecs/sptest.ads, ada-tests/samples/ticker/sptest.adb, ada-tests/samples/ticker/sptest.ads, ada-tests/samples/ticker/ticker.adb, ada-tests/sptests/sp01/sp01.adb, ada-tests/sptests/sp01/sptest.adb, ada-tests/sptests/sp01/sptest.ads, ada-tests/sptests/sp02/sp02.adb, ada-tests/sptests/sp02/sptest.adb, ada-tests/sptests/sp02/sptest.ads, ada-tests/sptests/sp03/sp03.adb, ada-tests/sptests/sp03/sptest.adb, ada-tests/sptests/sp03/sptest.ads, ada-tests/sptests/sp04/sp04.adb, ada-tests/sptests/sp04/sptest.adb, ada-tests/sptests/sp04/sptest.ads, ada-tests/sptests/sp05/sp05.adb, ada-tests/sptests/sp05/sptest.adb, ada-tests/sptests/sp05/sptest.ads, ada-tests/sptests/sp06/sp06.adb, ada-tests/sptests/sp06/sptest.adb, ada-tests/sptests/sp06/sptest.ads, ada-tests/sptests/sp07/sp07.adb, ada-tests/sptests/sp07/sptest.adb, ada-tests/sptests/sp07/sptest.ads, ada-tests/sptests/sp08/sp08.adb, ada-tests/sptests/sp08/sptest.adb, ada-tests/sptests/sp08/sptest.ads, ada-tests/sptests/sp09/sp09.adb, ada-tests/sptests/sp09/sptest.adb, ada-tests/sptests/sp09/sptest.ads, ada-tests/sptests/sp11/sp11.adb, ada-tests/sptests/sp11/sptest.adb, ada-tests/sptests/sp11/sptest.ads, ada-tests/sptests/sp12/sp12.adb, ada-tests/sptests/sp12/sptest.adb, ada-tests/sptests/sp12/sptest.ads, ada-tests/sptests/sp13/sp13.adb, ada-tests/sptests/sp13/sptest.adb, ada-tests/sptests/sp13/sptest.ads, ada-tests/sptests/sp14/sp14.adb, ada-tests/sptests/sp14/sptest.adb, ada-tests/sptests/sp14/sptest.ads, ada-tests/sptests/sp15/sp15.adb, ada-tests/sptests/sp15/sptest.adb, ada-tests/sptests/sp15/sptest.ads, ada-tests/sptests/sp16/sp16.adb, ada-tests/sptests/sp16/sptest.adb, ada-tests/sptests/sp16/sptest.ads, ada-tests/sptests/sp17/sp17.adb, ada-tests/sptests/sp17/sptest.adb, ada-tests/sptests/sp17/sptest.ads, ada-tests/sptests/sp19/sp19.adb, ada-tests/sptests/sp19/sptest.adp, ada-tests/sptests/sp19/sptest.ads, ada-tests/sptests/sp20/sp20.adb, ada-tests/sptests/sp20/sptest.adb, ada-tests/sptests/sp20/sptest.ads, ada-tests/sptests/sp22/sp22.adb, ada-tests/sptests/sp22/sptest.adb, ada-tests/sptests/sp22/sptest.ads, ada-tests/sptests/sp23/sp23.adb, ada-tests/sptests/sp23/sptest.adb, ada-tests/sptests/sp23/sptest.ads, ada-tests/sptests/sp24/sp24.adb, ada-tests/sptests/sp24/sptest.adb, ada-tests/sptests/sp24/sptest.ads, ada-tests/sptests/sp25/sp25.adb, ada-tests/sptests/sp25/sptest.adb, ada-tests/sptests/sp25/sptest.ads, ada-tests/support/test_support.adb, ada-tests/tmtests/tm01/tm01.adb, ada-tests/tmtests/tm01/tmtest.adb, ada-tests/tmtests/tm01/tmtest.ads, ada-tests/tmtests/tm02/tm02.adb, ada-tests/tmtests/tm02/tmtest.adb, ada-tests/tmtests/tm02/tmtest.ads, ada-tests/tmtests/tm03/tm03.adb, ada-tests/tmtests/tm03/tmtest.adb, ada-tests/tmtests/tm03/tmtest.ads, ada-tests/tmtests/tm04/tm04.adb, ada-tests/tmtests/tm04/tmtest.adb, ada-tests/tmtests/tm04/tmtest.ads, ada-tests/tmtests/tm05/tm05.adb, ada-tests/tmtests/tm05/tmtest.adb, ada-tests/tmtests/tm05/tmtest.ads, ada-tests/tmtests/tm06/tm06.adb, ada-tests/tmtests/tm06/tmtest.adb, ada-tests/tmtests/tm06/tmtest.ads, ada-tests/tmtests/tm07/tm07.adb, ada-tests/tmtests/tm07/tmtest.adb, ada-tests/tmtests/tm07/tmtest.ads, ada-tests/tmtests/tm08/tm08.adb, ada-tests/tmtests/tm08/tmtest.adb, ada-tests/tmtests/tm08/tmtest.ads, ada-tests/tmtests/tm09/tm09.adb, ada-tests/tmtests/tm09/tmtest.adb, ada-tests/tmtests/tm09/tmtest.ads, ada-tests/tmtests/tm10/tm10.adb, ada-tests/tmtests/tm10/tmtest.adb, ada-tests/tmtests/tm10/tmtest.ads, ada-tests/tmtests/tm11/tm11.adb, ada-tests/tmtests/tm11/tmtest.adb, ada-tests/tmtests/tm11/tmtest.ads, ada-tests/tmtests/tm12/tm12.adb, ada-tests/tmtests/tm12/tmtest.adb, ada-tests/tmtests/tm12/tmtest.ads, ada-tests/tmtests/tm13/tm13.adb, ada-tests/tmtests/tm13/tmtest.adb, ada-tests/tmtests/tm13/tmtest.ads, ada-tests/tmtests/tm14/tm14.adb, ada-tests/tmtests/tm14/tmtest.adb, ada-tests/tmtests/tm14/tmtest.ads, ada-tests/tmtests/tm15/tm15.adb, ada-tests/tmtests/tm15/tmtest.adb, ada-tests/tmtests/tm15/tmtest.ads, ada-tests/tmtests/tm16/tm16.adb, ada-tests/tmtests/tm16/tmtest.adb, ada-tests/tmtests/tm16/tmtest.ads, ada-tests/tmtests/tm17/tm17.adb, ada-tests/tmtests/tm17/tmtest.adb, ada-tests/tmtests/tm17/tmtest.ads, ada-tests/tmtests/tm18/tm18.adb, ada-tests/tmtests/tm18/tmtest.adb, ada-tests/tmtests/tm18/tmtest.ads, ada-tests/tmtests/tm19/tm19.adb, ada-tests/tmtests/tm19/tmtest.adb, ada-tests/tmtests/tm19/tmtest.ads, ada-tests/tmtests/tm20/tm20.adb, ada-tests/tmtests/tm20/tmtest.adb, ada-tests/tmtests/tm20/tmtest.ads, ada-tests/tmtests/tm21/tm21.adb, ada-tests/tmtests/tm21/tmtest.adb, ada-tests/tmtests/tm21/tmtest.ads, ada-tests/tmtests/tm22/tm22.adb, ada-tests/tmtests/tm22/tmtest.adb, ada-tests/tmtests/tm22/tmtest.ads, ada-tests/tmtests/tm23/tm23.adb, ada-tests/tmtests/tm23/tmtest.adb, ada-tests/tmtests/tm23/tmtest.ads, ada-tests/tmtests/tm24/tm24.adb, ada-tests/tmtests/tm24/tmtest.adb, ada-tests/tmtests/tm24/tmtest.ads, ada-tests/tmtests/tm25/tm25.adb, ada-tests/tmtests/tm25/tmtest.adb, ada-tests/tmtests/tm25/tmtest.ads, ada-tests/tmtests/tm28/tm28.adb, ada-tests/tmtests/tm28/tmtest.adb, ada-tests/tmtests/tm28/tmtest.ads, ada-tests/tmtests/tm29/tm29.adb, ada-tests/tmtests/tm29/tmtest.adb, ada-tests/tmtests/tm29/tmtest.ads, ada-tests/tmtests/tmck/tmck.adb, ada-tests/tmtests/tmck/tmtest.adb, ada-tests/tmtests/tmck/tmtest.ads, ada-tests/tmtests/tmoverhd/dummy_rtems.adb, ada-tests/tmtests/tmoverhd/dummy_rtems.ads, ada-tests/tmtests/tmoverhd/tmoverhd.adb, ada-tests/tmtests/tmoverhd/tmtest.adb, ada-tests/tmtests/tmoverhd/tmtest.ads: Account for RTEMS binding child package rework. Eliminate all warnings.
Location:
c/src/ada-tests/mptests
Files:
57 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada-tests/mptests/mp01/mp01.adb

    r1987020 r3c4d8cd1  
    1010-- 
    1111--
    12 --  COPYRIGHT (c) 1989-1997.
     12--  COPYRIGHT (c) 1989-2011.
    1313--  On-Line Applications Research Corporation (OAR).
    1414--
    … …  
    2121
    2222with RTEMS;
     23with RTEMS.TASKS;
    2324with MPTEST;
    2425with TEST_SUPPORT;
    … …  
    2930begin
    3031
    31    RTEMS.TASK_CREATE(
     32   RTEMS.TASKS.CREATE(
    3233      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3334      1,
    … …  
    4142
    4243
    43    RTEMS.TASK_START(
     44   RTEMS.TASKS.START(
    4445      INIT_ID,
    4546      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp01/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.CLOCK;
     26with RTEMS.TASKS;
    2527with TEST_SUPPORT;
    2628with TEXT_IO;
    … …  
    2931package body MPTEST is
    3032
    31 --PAGE
    3233--
    3334--  INIT
    … …  
    3536
    3637   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     38      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3839   ) is
    3940      C      : CHARACTER;
    … …  
    6263      TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
    6364
    64       RTEMS.CLOCK_SET( TIME, STATUS );
     65      RTEMS.CLOCK.SET( TIME, STATUS );
    6566      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
    6667
    6768      TEXT_IO.PUT_LINE( "Creating task 1 (Global)" );
    6869
    69       RTEMS.TASK_CREATE(
     70      RTEMS.TASKS.CREATE(
    7071         MPTEST.TASK_NAME( 1 ),
    7172         1,
    … …  
    8081      TEXT_IO.PUT_LINE( "Creating task 2 (Global)" );
    8182
    82       RTEMS.TASK_CREATE(
     83      RTEMS.TASKS.CREATE(
    8384         MPTEST.TASK_NAME( 2 ),
    8485         1,
    … …  
    9394      TEXT_IO.PUT_LINE( "Creating task 3 (Local)" );
    9495
    95       RTEMS.TASK_CREATE(
     96      RTEMS.TASKS.CREATE(
    9697         MPTEST.TASK_NAME( 3 ),
    9798         1,
    … …  
    104105      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
    105106
    106       RTEMS.TASK_START(
     107      RTEMS.TASKS.START(
    107108         MPTEST.TASK_ID( 1 ),
    108109         MPTEST.TEST_TASK'ACCESS,
    … …  
    112113      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
    113114
    114       RTEMS.TASK_START(
     115      RTEMS.TASKS.START(
    115116         MPTEST.TASK_ID( 2 ),
    116117         MPTEST.TEST_TASK'ACCESS,
    … …  
    120121      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
    121122
    122       RTEMS.TASK_START(
     123      RTEMS.TASKS.START(
    123124         MPTEST.TASK_ID( 3 ),
    124125         MPTEST.TEST_TASK'ACCESS,
    … …  
    128129      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
    129130
    130       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     131      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    131132      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    132133
    133134   end INIT;
    134135
    135 --PAGE
    136136--
    137137--  TEST_TASK
    … …  
    139139
    140140   procedure TEST_TASK (
    141       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     141      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    142142   ) is
    143143      TIME   : RTEMS.TIME_OF_DAY;
    … …  
    146146   begin
    147147
    148       RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
     148      RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
    149149      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
    150150   
    151       RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
     151      RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
    152152      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
    153153
    … …  
    160160      TEXT_IO.NEW_LINE;
    161161
    162       RTEMS.TASK_WAKE_AFTER(
     162      RTEMS.TASKS.WAKE_AFTER(
    163163         TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
    164164           TEST_SUPPORT.TICKS_PER_SECOND,
    … …  
    167167      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    168168         
    169       RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
     169      RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
    170170      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
    171171
    … …  
    187187         TEXT_IO.PUT_LINE( " - deleting self" );
    188188
    189          RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     189         RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    190190         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    191191
    … …  
    206206         TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
    207207         
    208          RTEMS.TASK_IDENT(
     208         RTEMS.TASKS.IDENT(
    209209            MPTEST.TASK_NAME( 2 ),
    210210            RTEMS.SEARCH_ALL_NODES,
    … …  
    218218         TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
    219219
    220          RTEMS.TASK_DELETE( TID, STATUS );
     220         RTEMS.TASKS.DELETE( TID, STATUS );
    221221         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
    222222

  • c/src/ada-tests/mptests/mp01/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    4243
    4344   procedure INIT (
    44       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     45      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    4546   );
    4647   pragma Convention (C, INIT);
    … …  
    5556
    5657   procedure TEST_TASK (
    57       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     58      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    5859   );
    5960   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp01/node1/mp01_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp01/node2/mp01_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp02/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.TASKS;
    2526with TEST_SUPPORT;
    2627with TEXT_IO;
    … …  
    2930package body MPTEST is
    3031
    31 --PAGE
    3232--
    3333--  INIT
    … …  
    3535
    3636   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     37      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3838   ) is
    3939      STATUS : RTEMS.STATUS_CODES;
    … …  
    5353      TEXT_IO.PUT_LINE( "Creating test task (Global)" );
    5454
    55       RTEMS.TASK_CREATE(
     55      RTEMS.TASKS.CREATE(
    5656         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5757         1,
    … …  
    6464      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
    6565
    66       RTEMS.TASK_START(
     66      RTEMS.TASKS.START(
    6767         MPTEST.TASK_ID( 1 ),
    6868         MPTEST.TEST_TASK'ACCESS,
    … …  
    7272      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
    7373
    74       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     74      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    7575      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    7676
    7777   end INIT;
    7878
    79 --PAGE
    8079--
    8180--  TEST_TASK
    … …  
    8382
    8483   procedure TEST_TASK (
    85       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     84      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    8685   ) is
    8786      TID         : RTEMS.ID;
    … …  
    9392   begin
    9493
    95       RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
     94      RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
    9695      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
    9796   
    … …  
    106105      loop
    107106
    108          RTEMS.TASK_IDENT(
     107         RTEMS.TASKS.IDENT(
    109108            MPTEST.TASK_NAME( REMOTE_NODE ),
    110109            RTEMS.SEARCH_ALL_NODES,
    … …  
    122121
    123122      TEXT_IO.PUT_LINE( "Getting TID of remote task (1 node)" );
    124       RTEMS.TASK_IDENT(
     123      RTEMS.TASKS.IDENT(
    125124         MPTEST.TASK_NAME( REMOTE_NODE ),
    126125         REMOTE_NODE,
    … …  
    135134      end if;
    136135
    137       RTEMS.TASK_DELETE( REMOTE_TID, STATUS );
     136      RTEMS.TASKS.DELETE( REMOTE_TID, STATUS );
    138137      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    139138         STATUS,
    … …  
    145144      );
    146145         
    147       RTEMS.TASK_START( REMOTE_TID, MPTEST.TEST_TASK'ACCESS, 0, STATUS );
     146      RTEMS.TASKS.START( REMOTE_TID, MPTEST.TEST_TASK'ACCESS, 0, STATUS );
    148147      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    149148         STATUS,
    … …  
    155154      );
    156155         
    157       RTEMS.TASK_RESTART( REMOTE_TID, 0, STATUS );
     156      RTEMS.TASKS.RESTART( REMOTE_TID, 0, STATUS );
    158157      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    159158         STATUS,
    … …  
    171170      UNSIGNED32_IO.PUT( RTEMS.GET_NODE( TID ), WIDTH=>1 );
    172171      TEXT_IO.NEW_LINE;
    173       RTEMS.TASK_SET_NOTE(
     172      RTEMS.TASKS.SET_NOTE(
    174173         REMOTE_TID,
    175174         RTEMS.GET_NODE( TID ),
    … …  
    180179
    181180      TEXT_IO.PUT_LINE( "Getting a notepad of the remote task" );
    182       RTEMS.TASK_GET_NOTE(
     181      RTEMS.TASKS.GET_NOTE(
    183182         REMOTE_TID,
    184183         RTEMS.GET_NODE( TID ),
    … …  
    201200      end if;
    202201
    203       RTEMS.TASK_DELETE( REMOTE_TID, STATUS );
     202      RTEMS.TASKS.DELETE( REMOTE_TID, STATUS );
    204203      TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
    205204

  • c/src/ada-tests/mptests/mp02/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    4243
    4344   procedure INIT (
    44       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     45      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    4546   );
    4647   pragma Convention (C, INIT);
    … …  
    5556
    5657   procedure TEST_TASK (
    57       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     58      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    5859   );
    5960   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp02/node1/mp02_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp02/node2/mp02_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp03/mptest.adb

    r1987020 r3c4d8cd1  
    77-- 
    88--
    9 --  COPYRIGHT (c) 1989-1997.
     9--  COPYRIGHT (c) 1989-2011.
    1010--  On-Line Applications Research Corporation (OAR).
    1111--
    … …  
    1919with INTERFACES; use INTERFACES;
    2020with RTEMS;
     21with RTEMS.EVENT;
     22with RTEMS.TASKS;
     23with RTEMS.TIMER;
    2124with TEST_SUPPORT;
    2225with TEXT_IO;
    … …  
    2528package body MPTEST is
    2629
    27 --PAGE
    2830--
    2931--  INIT
    … …  
    3133
    3234   procedure INIT (
    33       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     35      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3436   ) is
    3537      STATUS : RTEMS.STATUS_CODES;
    … …  
    4850
    4951      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    50       RTEMS.TASK_CREATE(
     52      RTEMS.TASKS.CREATE(
    5153         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5254         1,
    … …  
    6062
    6163      TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
    62       RTEMS.TASK_START(
     64      RTEMS.TASKS.START(
    6365         MPTEST.TASK_ID( 1 ),
    6466         MPTEST.TEST_TASK'ACCESS,
    … …  
    7072      MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'M', '1', ' ' );
    7173
    72       RTEMS.TIMER_CREATE(
     74      RTEMS.TIMER.CREATE(
    7375         MPTEST.TIMER_NAME( 1 ),
    7476         MPTEST.TIMER_ID( 1 ),
    … …  
    7880
    7981      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    80       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     82      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    8183      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    8284
    8385   end INIT;
    8486
    85 --PAGE
    8687--
    8788--  DELAYED_SEND_EVENT
    … …  
    9596   begin
    9697
    97       RTEMS.EVENT_SEND( MPTEST.TASK_ID( 1 ), RTEMS.EVENT_16, STATUS );
     98      RTEMS.EVENT.SEND( MPTEST.TASK_ID( 1 ), RTEMS.EVENT_16, STATUS );
    9899      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
    99100
    100101   end DELAYED_SEND_EVENT;
    101102
    102 --PAGE
    103103--
    104104--  TEST_TASK
    … …  
    106106
    107107   procedure TEST_TASK (
    108       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     108      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    109109   ) is
    110110      TID         : RTEMS.ID;
    … …  
    112112   begin
    113113
    114       RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
     114      RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
    115115      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
    116116   
    … …  
    127127      loop
    128128
    129          RTEMS.TASK_IDENT(
     129         RTEMS.TASKS.IDENT(
    130130            MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
    131131            RTEMS.SEARCH_ALL_NODES,
    … …  
    138138      end loop;
    139139
    140       RTEMS.TIMER_FIRE_AFTER(
     140      RTEMS.TIMER.FIRE_AFTER(
    141141         MPTEST.TIMER_ID( 1 ),
    142142         10 * TEST_SUPPORT.TICKS_PER_SECOND,
    … …  
    149149      MPTEST.TEST_TASK_SUPPORT( 1 );
    150150
    151       RTEMS.TIMER_FIRE_AFTER(
     151      RTEMS.TIMER.FIRE_AFTER(
    152152         MPTEST.TIMER_ID( 1 ),
    153153         11 * TEST_SUPPORT.TICKS_PER_SECOND,
    … …  
    160160      if TEST_SUPPORT.NODE = 2 then
    161161         
    162          RTEMS.TASK_WAKE_AFTER(
     162         RTEMS.TASKS.WAKE_AFTER(
    163163            2 * TEST_SUPPORT.TICKS_PER_SECOND,
    164164            STATUS
    … …  
    176176   end TEST_TASK;
    177177
    178 --PAGE
    179178--
    180179--  TEST_TASK_SUPPORT
    … …  
    193192         loop
    194193
    195             RTEMS.EVENT_RECEIVE(
     194            RTEMS.EVENT.RECEIVE(
    196195               RTEMS.EVENT_16,
    197196               RTEMS.NO_WAIT,
    … …  
    209208            );
    210209
    211             RTEMS.TASK_WAKE_AFTER(
     210            RTEMS.TASKS.WAKE_AFTER(
    212211               2 * TEST_SUPPORT.TICKS_PER_SECOND,
    213212               STATUS
    … …  
    217216            TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
    218217            TEXT_IO.PUT_LINE( " - Suspending remote task" );
    219             RTEMS.TASK_SUSPEND( MPTEST.REMOTE_TID, STATUS );
     218            RTEMS.TASKS.SUSPEND( MPTEST.REMOTE_TID, STATUS );
    220219            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
    221220
    222             RTEMS.TASK_WAKE_AFTER(
     221            RTEMS.TASKS.WAKE_AFTER(
    223222               2 * TEST_SUPPORT.TICKS_PER_SECOND,
    224223               STATUS
    … …  
    229228            TEXT_IO.PUT_LINE( " - Resuming remote task" );
    230229
    231             RTEMS.TASK_RESUME( MPTEST.REMOTE_TID, STATUS );
     230            RTEMS.TASKS.RESUME( MPTEST.REMOTE_TID, STATUS );
    232231            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" );
    233232
    … …  
    238237         loop
    239238
    240             RTEMS.EVENT_RECEIVE(
     239            RTEMS.EVENT.RECEIVE(
    241240               RTEMS.EVENT_16,
    242241               RTEMS.NO_WAIT,
    … …  
    256255            TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( REMOTE_NODE ), FALSE );
    257256            TEXT_IO.PUT_LINE( " - have I been suspended???" );
    258             RTEMS.TASK_WAKE_AFTER(
     257            RTEMS.TASKS.WAKE_AFTER(
    259258               TEST_SUPPORT.TICKS_PER_SECOND / 2,
    260259               STATUS

  • c/src/ada-tests/mptests/mp03/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    6465
    6566   procedure INIT (
    66       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     67      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    6768   );
    6869   pragma Convention (C, INIT);
    … …  
    9293
    9394   procedure TEST_TASK (
    94       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     95      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    9596   );
    9697   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp03/node1/mp03_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp03/node2/mp03_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp04/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.TASKS;
    2526with TEST_SUPPORT;
    2627with TEXT_IO;
    … …  
    2930package body MPTEST is
    3031
    31 --PAGE
    3232--
    3333--  INIT
    … …  
    3535
    3636   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     37      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3838   ) is
    3939      STATUS : RTEMS.STATUS_CODES;
    … …  
    5353      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    5454
    55       RTEMS.TASK_CREATE(
     55      RTEMS.TASKS.CREATE(
    5656         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5757         TEST_SUPPORT.NODE,
    … …  
    6666      TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
    6767
    68       RTEMS.TASK_START(
     68      RTEMS.TASKS.START(
    6969         MPTEST.TASK_ID( 1 ),
    7070         MPTEST.TEST_TASK'ACCESS,
    … …  
    7676      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    7777
    78       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     78      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    7979      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    8080
    8181   end INIT;
    8282
    83 --PAGE
    8483--
    8584--  TEST_TASK
    … …  
    8786
    8887   procedure TEST_TASK (
    89       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     88      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    9089   ) is
    9190      TID                 : RTEMS.ID;
    92       PREVIOUS_PRIORITY   : RTEMS.TASK_PRIORITY;
    93       PREVIOUS_PRIORITY_1 : RTEMS.TASK_PRIORITY;
     91      PREVIOUS_PRIORITY   : RTEMS.TASKS.PRIORITY;
     92      PREVIOUS_PRIORITY_1 : RTEMS.TASKS.PRIORITY;
    9493      STATUS              : RTEMS.STATUS_CODES;
    9594   begin
    9695
    97       RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
     96      RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
    9897      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
    9998   
    … …  
    110109      loop
    111110
    112          RTEMS.TASK_IDENT(
     111         RTEMS.TASKS.IDENT(
    113112            MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
    114113            RTEMS.SEARCH_ALL_NODES,
    … …  
    121120      end loop;
    122121
    123       RTEMS.TASK_SET_PRIORITY(
     122      RTEMS.TASKS.SET_PRIORITY(
    124123         MPTEST.REMOTE_TID,
    125124         TEST_SUPPORT.NODE,
    … …  
    143142      loop
    144143
    145          RTEMS.TASK_SET_PRIORITY(
     144         RTEMS.TASKS.SET_PRIORITY(
    146145            RTEMS.SELF,
    147             RTEMS.CURRENT_PRIORITY,
     146            RTEMS.TASKS.CURRENT_PRIORITY,
    148147            PREVIOUS_PRIORITY_1,
    149148            STATUS

  • c/src/ada-tests/mptests/mp04/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    5657
    5758   procedure INIT (
    58       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     59      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    5960   );
    6061   pragma Convention (C, INIT);
    … …  
    6970
    7071   procedure TEST_TASK (
    71       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     72      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    7273   );
    7374   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp04/node1/mp04_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp04/node2/mp04_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp05/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.FATAL;
     26with RTEMS.SIGNAL;
     27with RTEMS.TASKS;
     28with RTEMS.TIMER;
    2529with TEST_SUPPORT;
    2630with TEXT_IO;
    … …  
    2933package body MPTEST is
    3034
    31 --PAGE
    3235--
    3336--  INIT
    … …  
    3538
    3639   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     40      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3841   ) is
    3942      STATUS : RTEMS.STATUS_CODES;
    … …  
    5356      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    5457
    55       RTEMS.TASK_CREATE(
     58      RTEMS.TASKS.CREATE(
    5659         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5760         1,
    … …  
    6669      TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
    6770
    68       RTEMS.TASK_START(
     71      RTEMS.TASKS.START(
    6972         MPTEST.TASK_ID( 1 ),
    7073         MPTEST.TEST_TASK'ACCESS,
    … …  
    7780      MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME(  'T', 'M', '2', ' ' );
    7881
    79       RTEMS.TIMER_CREATE(
     82      RTEMS.TIMER.CREATE(
    8083         MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
    8184         MPTEST.TIMER_ID( 1 ),
    … …  
    8689      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    8790
    88       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     91      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    8992      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    9093
    9194   end INIT;
    9295
    93 --PAGE
    9496--
    9597--  PROCESS_ASR
    … …  
    110112         TEXT_IO.NEW_LINE;
    111113
    112          RTEMS.FATAL_ERROR_OCCURRED( 16#000F_0000# );
     114         RTEMS.FATAL.ERROR_OCCURRED( 16#000F_0000# );
    113115
    114116      end if;
    … …  
    118120   end PROCESS_ASR;
    119121
    120 --PAGE
    121122--
    122123--  STOP_TEST_TSR
    … …  
    133134   end STOP_TEST_TSR;
    134135
    135 --PAGE
    136136--
    137137--  TEST_TASK
    … …  
    139139
    140140   procedure TEST_TASK (
    141       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     141      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    142142   ) is
    143143      STATUS  : RTEMS.STATUS_CODES;
    … …  
    150150
    151151      TEXT_IO.PUT_LINE( "signal_catch: initializing signal catcher" );
    152       RTEMS.SIGNAL_CATCH(
     152      RTEMS.SIGNAL.CATCH(
    153153         MPTEST.PROCESS_ASR'ACCESS,
    154154         RTEMS.NO_ASR + RTEMS.NO_PREEMPT,
    … …  
    173173      loop
    174174
    175          RTEMS.TASK_IDENT(
     175         RTEMS.TASKS.IDENT(
    176176            MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
    177177            RTEMS.SEARCH_ALL_NODES,
    … …  
    184184      end loop;
    185185
    186       RTEMS.TIMER_FIRE_AFTER(
     186      RTEMS.TIMER.FIRE_AFTER(
    187187         MPTEST.TIMER_ID( 1 ),
    188188         3 * TEST_SUPPORT.TICKS_PER_SECOND,
    … …  
    197197         TEXT_IO.PUT_LINE( "Sending signal to remote task" );
    198198         loop
    199             RTEMS.SIGNAL_SEND(
     199            RTEMS.SIGNAL.SEND(
    200200               MPTEST.REMOTE_TID,
    201201               MPTEST.REMOTE_SIGNAL,
    … …  
    229229            end if;
    230230
    231             RTEMS.SIGNAL_SEND(
     231            RTEMS.SIGNAL.SEND(
    232232               MPTEST.REMOTE_TID,
    233233               MPTEST.REMOTE_SIGNAL,

  • c/src/ada-tests/mptests/mp05/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.SIGNAL;
     25with RTEMS.TASKS;
    2426
    2527package MPTEST is
    … …  
    9698
    9799   procedure INIT (
    98       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     100      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    99101   );
    100102   pragma Convention (C, INIT);
    … …  
    136138
    137139   procedure TEST_TASK (
    138       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     140      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    139141   );
    140142   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp05/node1/mp05_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp05/node2/mp05_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp06/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.EVENT;
     26with RTEMS.TASKS;
     27with RTEMS.TIMER;
    2528with TEST_SUPPORT;
    2629with TEXT_IO;
    … …  
    2932package body MPTEST is
    3033
    31 --PAGE
    3234--
    3335--  INIT
    … …  
    3537
    3638   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     39      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3840   ) is
    3941      STATUS : RTEMS.STATUS_CODES;
    … …  
    5355      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    5456
    55       RTEMS.TASK_CREATE(
     57      RTEMS.TASKS.CREATE(
    5658         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5759         TEST_SUPPORT.NODE,
    … …  
    6668      TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
    6769
    68       RTEMS.TASK_START(
     70      RTEMS.TASKS.START(
    6971         MPTEST.TASK_ID( 1 ),
    7072         MPTEST.TEST_TASK'ACCESS,
    … …  
    7779      MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME(  'T', 'M', '2', ' ' );
    7880
    79       RTEMS.TIMER_CREATE(
     81      RTEMS.TIMER.CREATE(
    8082         MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
    8183         MPTEST.TIMER_ID( 1 ),
    … …  
    8688      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    8789
    88       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     90      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    8991      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    9092
    9193   end INIT;
    9294
    93 --PAGE
    9495--
    9596--  STOP_TEST_TSR
    … …  
    106107   end STOP_TEST_TSR;
    107108 
    108 --PAGE
    109109--
    110110--  TEST_TASK
    … …  
    112112
    113113   procedure TEST_TASK (
    114       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     114      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    115115   ) is
    116116      COUNT                    : RTEMS.UNSIGNED32;
    … …  
    135135      loop
    136136
    137          RTEMS.TASK_IDENT(
     137         RTEMS.TASKS.IDENT(
    138138            MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
    139139            RTEMS.SEARCH_ALL_NODES,
    … …  
    152152      end if;
    153153
    154       RTEMS.TIMER_FIRE_AFTER(
     154      RTEMS.TIMER.FIRE_AFTER(
    155155         MPTEST.TIMER_ID( 1 ),
    156156         5 * TEST_SUPPORT.TICKS_PER_SECOND,
    … …  
    174174         if TEST_SUPPORT.NODE = 1 then
    175175
    176             RTEMS.EVENT_SEND(
     176            RTEMS.EVENT.SEND(
    177177               MPTEST.REMOTE_TID,
    178178               EVENT_FOR_THIS_ITERATION,
    … …  
    183183         else
    184184
    185             RTEMS.EVENT_RECEIVE(
     185            RTEMS.EVENT.RECEIVE(
    186186               EVENT_FOR_THIS_ITERATION,
    187187               RTEMS.DEFAULT_OPTIONS,
    … …  
    228228      if TEST_SUPPORT.NODE = 2 then
    229229
    230          RTEMS.EVENT_RECEIVE(
     230         RTEMS.EVENT.RECEIVE(
    231231            RTEMS.EVENT_16,
    232232            RTEMS.DEFAULT_OPTIONS,

  • c/src/ada-tests/mptests/mp06/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.EVENT;
     25with RTEMS.TASKS;
    2426
    2527package MPTEST is
    … …  
    115117
    116118   procedure INIT (
    117       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     119      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    118120   );
    119121   pragma Convention (C, INIT);
    … …  
    142144
    143145   procedure TEST_TASK (
    144       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     146      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    145147   );
    146148   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp06/node1/mp06_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp06/node2/mp06_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp07/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.EVENT;
     26with RTEMS.TASKS;
     27with RTEMS.TIMER;
    2528with TEST_SUPPORT;
    2629with TEXT_IO;
    … …  
    2932package body MPTEST is
    3033
    31 --PAGE
    3234--
    3335--  INIT
    … …  
    3537
    3638   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     39      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3840   ) is
    3941      STATUS : RTEMS.STATUS_CODES;
    … …  
    5254
    5355      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    54       RTEMS.TASK_CREATE(
     56      RTEMS.TASKS.CREATE(
    5557         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    5658         TEST_SUPPORT.NODE,
    … …  
    6466
    6567      TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
    66       RTEMS.TASK_START(
     68      RTEMS.TASKS.START(
    6769         MPTEST.TASK_ID( 1 ),
    6870         MPTEST.TEST_TASK'ACCESS,
    … …  
    7476      MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'M', '1', ' ' );
    7577
    76       RTEMS.TIMER_CREATE(
     78      RTEMS.TIMER.CREATE(
    7779         MPTEST.TIMER_NAME( 1 ),
    7880         MPTEST.TIMER_ID( 1 ),
    … …  
    8284
    8385      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    84       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     86      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    8587      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    8688
    8789   end INIT;
    8890
    89 --PAGE
    9091--
    9192--  STOP_TEST_TSR
    … …  
    102103   end STOP_TEST_TSR;
    103104 
    104 --PAGE
    105105--
    106106--  TEST_TASK
    … …  
    108108
    109109   procedure TEST_TASK (
    110       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     110      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    111111   ) is
    112112      EVENT_OUT : RTEMS.EVENT_SET;
    … …  
    127127      TEXT_IO.PUT_LINE( "Getting TID of remote task" );
    128128      loop
    129          RTEMS.TASK_IDENT(
     129         RTEMS.TASKS.IDENT(
    130130            MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
    131131            RTEMS.SEARCH_ALL_NODES,
    … …  
    141141
    142142         TEXT_IO.PUT_LINE( "Sending first event to remote task" );
    143          RTEMS.EVENT_SEND(
     143         RTEMS.EVENT.SEND(
    144144            MPTEST.REMOTE_TID,
    145145            RTEMS.EVENT_16,
    … …  
    150150      end if;
    151151
    152       RTEMS.TIMER_FIRE_AFTER(
     152      RTEMS.TIMER.FIRE_AFTER(
    153153         MPTEST.TIMER_ID( 1 ),
    154154         5 * TEST_SUPPORT.TICKS_PER_SECOND,
    … …  
    166166         loop
    167167
    168             RTEMS.EVENT_RECEIVE(
     168            RTEMS.EVENT.RECEIVE(
    169169               RTEMS.EVENT_16,
    170170               RTEMS.DEFAULT_OPTIONS,
    … …  
    183183            end if;
    184184
    185             RTEMS.EVENT_SEND(
     185            RTEMS.EVENT.SEND(
    186186               MPTEST.REMOTE_TID,
    187187               RTEMS.EVENT_16,

  • c/src/ada-tests/mptests/mp07/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    7576
    7677   procedure INIT (
    77       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     78      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    7879   );
    7980   pragma Convention (C, INIT);
    … …  
    102103
    103104   procedure TEST_TASK (
    104       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     105      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    105106   );
    106107   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp07/node1/mp07_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp07/node2/mp07_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp08/mptest.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.OBJECT;
     26with RTEMS.SEMAPHORE;
     27with RTEMS.TASKS;
    2528with TEST_SUPPORT;
    2629with TEXT_IO;
    … …  
    2932package body MPTEST is
    3033
    31 --PAGE
    3234--
    3335--  INIT
    … …  
    3537
    3638   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     39      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3840   ) is
    3941      STATUS : RTEMS.STATUS_CODES;
    … …  
    5759         TEXT_IO.PUT_LINE( "Creating Semaphore(Global)" );
    5860
    59          RTEMS.SEMAPHORE_CREATE(
     61         RTEMS.SEMAPHORE.CREATE(
    6062            MPTEST.SEMAPHORE_NAME( 1 ),
    6163            1,
    … …  
    6971
    7072      TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
    71       RTEMS.TASK_CREATE(
     73      RTEMS.TASKS.CREATE(
    7274         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    7375         TEST_SUPPORT.NODE,
    … …  
    8183
    8284      TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
    83       RTEMS.TASK_START(
     85      RTEMS.TASKS.START(
    8486         MPTEST.TASK_ID( 1 ),
    8587         MPTEST.TEST_TASK'ACCESS,
    … …  
    9092
    9193      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    92       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     94      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    9395      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    9496
    9597   end INIT;
    9698
    97 --PAGE
    9899--
    99100--  TEST_TASK
    … …  
    101102
    102103   procedure TEST_TASK (
    103       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     104      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    104105   ) is
    105106      DOTS                     : RTEMS.UNSIGNED32;
    … …  
    111112      loop
    112113
    113          RTEMS.SEMAPHORE_IDENT(
     114         RTEMS.SEMAPHORE.IDENT(
    114115            MPTEST.SEMAPHORE_NAME( 1 ),
    115116            RTEMS.SEARCH_ALL_NODES,
    … …  
    124125      if TEST_SUPPORT.NODE = 2 then
    125126
    126          RTEMS.SEMAPHORE_DELETE(
     127         RTEMS.SEMAPHORE.DELETE(
    127128            MPTEST.SEMAPHORE_ID( 1 ),
    128129            STATUS
    … …  
    146147         TEST_SUPPORT.PUT_DOT( "p" );
    147148
    148          RTEMS.SEMAPHORE_OBTAIN(
     149         RTEMS.SEMAPHORE.OBTAIN(
    149150            MPTEST.SEMAPHORE_ID( 1 ),
    150151            RTEMS.DEFAULT_OPTIONS,
    … …  
    176177            COUNT >= 1000 then
    177178
    178             RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     179            RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    179180            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    180181
    … …  
    183184            TEXT_IO.PUT_LINE( "Deleting global semaphore" );
    184185
    185             RTEMS.SEMAPHORE_DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
     186            RTEMS.SEMAPHORE.DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
    186187            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
    187188
    … …  
    194195         TEST_SUPPORT.PUT_DOT( "v" );
    195196
    196          RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
     197         RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
    197198
    198199         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );

  • c/src/ada-tests/mptests/mp08/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    7071
    7172   procedure INIT (
    72       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     73      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    7374   );
    7475   pragma Convention (C, INIT);
    … …  
    8384
    8485   procedure TEST_TASK (
    85       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     86      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    8687   );
    8788   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp08/node1/mp08_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp08/node2/mp08_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp09/mptest.adb

    r1987020 r3c4d8cd1  
    1111--
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.MESSAGE_QUEUE;
     26with RTEMS.OBJECT;
     27with RTEMS.TASKS;
    2528with TEST_SUPPORT;
    2629with TEXT_IO;
    … …  
    2932package body MPTEST is
    3033
    31 --PAGE
    3234--
    3335--  INIT
    … …  
    3537
    3638   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     39      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3840   ) is
    3941      STATUS : RTEMS.STATUS_CODES;
    … …  
    7678
    7779         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
    78          RTEMS.MESSAGE_QUEUE_CREATE(
     80         RTEMS.MESSAGE_QUEUE.CREATE(
    7981            MPTEST.QUEUE_NAME( 1 ),
    8082            3,
    … …  
    8890
    8991      TEXT_IO.PUT_LINE( "Creating Test_task (local)" );
    90       RTEMS.TASK_CREATE(
     92      RTEMS.TASKS.CREATE(
    9193         MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
    9294         TEST_SUPPORT.NODE,
    … …  
    100102
    101103      TEXT_IO.PUT_LINE( "Starting Test_task (local)" );
    102       RTEMS.TASK_START(
     104      RTEMS.TASKS.START(
    103105         MPTEST.TASK_ID( 1 ),
    104106         MPTEST.TEST_TASK'ACCESS,
    … …  
    109111
    110112      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    111       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     113      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    112114      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    113115
    114116   end INIT;
    115117
    116 --PAGE
    117118--
    118119--  SEND_MESSAGES
    … …  
    128129      TEXT_IO.NEW_LINE;
    129130
    130       RTEMS.MESSAGE_QUEUE_SEND(
     131      RTEMS.MESSAGE_QUEUE.SEND(
    131132         MPTEST.QUEUE_ID( 1 ),
    132133         MPTEST.BUFFER_1,
    … …  
    136137
    137138      TEXT_IO.PUT_LINE( "Delaying for a second" );
    138       RTEMS.TASK_WAKE_AFTER(
     139      RTEMS.TASKS.WAKE_AFTER(
    139140         1 * TEST_SUPPORT.TICKS_PER_SECOND,
    140141         STATUS
    … …  
    146147      TEXT_IO.NEW_LINE;
    147148
    148       RTEMS.MESSAGE_QUEUE_URGENT(
     149      RTEMS.MESSAGE_QUEUE.URGENT(
    149150         MPTEST.QUEUE_ID( 1 ),
    150151         MPTEST.BUFFER_2,
    … …  
    154155
    155156      TEXT_IO.PUT_LINE( "Delaying for a second" );
    156       RTEMS.TASK_WAKE_AFTER(
     157      RTEMS.TASKS.WAKE_AFTER(
    157158         1 * TEST_SUPPORT.TICKS_PER_SECOND,
    158159         STATUS
    … …  
    164165      TEXT_IO.NEW_LINE;
    165166
    166       RTEMS.MESSAGE_QUEUE_BROADCAST(
     167      RTEMS.MESSAGE_QUEUE.BROADCAST(
    167168         MPTEST.QUEUE_ID( 1 ),
    168169         MPTEST.BUFFER_3,
    … …  
    173174
    174175      TEXT_IO.PUT_LINE( "Delaying for a second" );
    175       RTEMS.TASK_WAKE_AFTER(
     176      RTEMS.TASKS.WAKE_AFTER(
    176177         1 * TEST_SUPPORT.TICKS_PER_SECOND,
    177178         STATUS
    … …  
    181182   end SEND_MESSAGES;
    182183
    183 --PAGE
    184184--
    185185--  RECEIVE_MESSAGES
    … …  
    195195
    196196         TEXT_IO.PUT_LINE( "Receiving message ..." );
    197          RTEMS.MESSAGE_QUEUE_RECEIVE(
     197         RTEMS.MESSAGE_QUEUE.RECEIVE(
    198198            MPTEST.QUEUE_ID( 1 ),
    199199            MPTEST.RECEIVE_BUFFER,
    … …  
    212212      TEXT_IO.PUT_LINE( "Receiver delaying for a second" );
    213213
    214       RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     214      RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    215215      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    216216
    217217   end RECEIVE_MESSAGES;
    218218
    219 --PAGE
    220219--
    221220--  FILL_BUFFER
    … …  
    244243   end FILL_BUFFER;
    245244
    246 --PAGE
    247245--
    248246--  PUT_BUFFER
    … …  
    265263   end PUT_BUFFER;
    266264
    267 --PAGE
    268265--
    269266--  TEST_TASK
    … …  
    271268
    272269   procedure TEST_TASK (
    273       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     270      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    274271   ) is
    275272      COUNT   : RTEMS.UNSIGNED32;
    … …  
    277274   begin
    278275
    279       RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     276      RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    280277      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    281278
    … …  
    284281      loop
    285282
    286          RTEMS.MESSAGE_QUEUE_IDENT(
     283         RTEMS.MESSAGE_QUEUE.IDENT(
    287284            MPTEST.QUEUE_NAME( 1 ),
    288285            RTEMS.SEARCH_ALL_NODES,
    … …  
    297294      if TEST_SUPPORT.NODE = 2 then
    298295
    299          RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
     296         RTEMS.MESSAGE_QUEUE.DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
    300297
    301298         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    … …  
    314311
    315312         TEXT_IO.PUT_LINE( "Flushing remote empty queue" );
    316          RTEMS.MESSAGE_QUEUE_FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
     313         RTEMS.MESSAGE_QUEUE.FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
    317314         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
    318315         UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
    … …  
    324321            "Send messages to be flushed from remote queue"
    325322         );
    326          RTEMS.MESSAGE_QUEUE_SEND(
     323         RTEMS.MESSAGE_QUEUE.SEND(
    327324            MPTEST.QUEUE_ID( 1 ),
    328325            MPTEST.BUFFER_1,
    … …  
    332329
    333330         TEXT_IO.PUT_LINE( "Flushing remote queue" );
    334          RTEMS.MESSAGE_QUEUE_FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
     331         RTEMS.MESSAGE_QUEUE.FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
    335332         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
    336333         UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
    … …  
    340337
    341338         TEXT_IO.PUT_LINE( "Waiting for message queue to be deleted" );
    342          RTEMS.MESSAGE_QUEUE_RECEIVE(
     339         RTEMS.MESSAGE_QUEUE.RECEIVE(
    343340            MPTEST.QUEUE_ID( 1 ),
    344341            MPTEST.RECEIVE_BUFFER,
    … …  
    359356         MPTEST.SEND_MESSAGES;
    360357
    361          RTEMS.TASK_WAKE_AFTER(
     358         RTEMS.TASKS.WAKE_AFTER(
    362359            5 * TEST_SUPPORT.TICKS_PER_SECOND,
    363360            STATUS
    … …  
    365362         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    366363
    367          RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
     364         RTEMS.MESSAGE_QUEUE.DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
    368365         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
    369366

  • c/src/ada-tests/mptests/mp09/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    8788
    8889   procedure INIT (
    89       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     90      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    9091   );
    9192   pragma Convention (C, INIT);
    … …  
    145146
    146147   procedure TEST_TASK (
    147       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     148      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    148149   );
    149150   pragma Convention (C, TEST_TASK);

  • c/src/ada-tests/mptests/mp09/node1/mp09_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp09/node2/mp09_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp10/mptest.adb

    r1987020 r3c4d8cd1  
    1111--
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.MESSAGE_QUEUE;
     26with RTEMS.SEMAPHORE;
     27with RTEMS.TASKS;
    2528with TEST_SUPPORT;
    2629with TEXT_IO;
    … …  
    2932package body MPTEST is
    3033
    31 --PAGE
    3234--
    3335--  INIT
    … …  
    3537
    3638   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     39      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3840   ) is
    3941      STATUS : RTEMS.STATUS_CODES;
    … …  
    6062
    6163         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
    62          RTEMS.MESSAGE_QUEUE_CREATE(
     64         RTEMS.MESSAGE_QUEUE.CREATE(
    6365            MPTEST.QUEUE_NAME( 1 ),
    6466            3,
    … …  
    7072
    7173         TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
    72          RTEMS.SEMAPHORE_CREATE(
     74         RTEMS.SEMAPHORE.CREATE(
    7375            MPTEST.SEMAPHORE_NAME( 1 ),
    7476            0,
    … …  
    7981         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
    8082
    81          RTEMS.TASK_WAKE_AFTER( 10 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     83         RTEMS.TASKS.WAKE_AFTER( 10 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    8284         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    8385
    … …  
    8587
    8688         TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
    87          RTEMS.TASK_CREATE(
     89         RTEMS.TASKS.CREATE(
    8890            MPTEST.TASK_NAME( 1 ),
    8991            1,
    … …  
    9799
    98100         TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
    99          RTEMS.TASK_START(
     101         RTEMS.TASKS.START(
    100102            MPTEST.TASK_ID( 1 ),
    101103            MPTEST.TEST_TASK_1'ACCESS,
    … …  
    106108
    107109         TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
    108          RTEMS.TASK_CREATE(
     110         RTEMS.TASKS.CREATE(
    109111            MPTEST.TASK_NAME( 2 ),
    110112            1,
    … …  
    118120 
    119121         TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
    120          RTEMS.TASK_START(
     122         RTEMS.TASKS.START(
    121123            MPTEST.TASK_ID( 2 ),
    122124            MPTEST.TEST_TASK_2'ACCESS,
    … …  
    127129
    128130         TEXT_IO.PUT_LINE( "Creating Test_task 3 (local)" );
    129          RTEMS.TASK_CREATE(
     131         RTEMS.TASKS.CREATE(
    130132            MPTEST.TASK_NAME( 3 ),
    131133            1,
    … …  
    139141 
    140142         TEXT_IO.PUT_LINE( "Starting Test_task 3 (local)" );
    141          RTEMS.TASK_START(
     143         RTEMS.TASKS.START(
    142144            MPTEST.TASK_ID( 3 ),
    143145            MPTEST.TEST_TASK_3'ACCESS,
    … …  
    148150
    149151         TEXT_IO.PUT_LINE( "Sleeping for 1 second ..." );
    150          RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     152         RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    151153         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    152154
    153155         TEXT_IO.PUT_LINE( "Deleting Test_task 2" );
    154          RTEMS.TASK_DELETE( MPTEST.TASK_ID( 2 ), STATUS );
     156         RTEMS.TASKS.DELETE( MPTEST.TASK_ID( 2 ), STATUS );
    155157         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 2" );
    156158
    157159         TEXT_IO.PUT_LINE( "Deleting Test_task 1" );
    158          RTEMS.TASK_DELETE( MPTEST.TASK_ID( 1 ), STATUS );
     160         RTEMS.TASKS.DELETE( MPTEST.TASK_ID( 1 ), STATUS );
    159161         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 1" );
    160162
    161163         TEXT_IO.PUT_LINE( "Restarting Test_task 3" );
    162          RTEMS.TASK_RESTART( MPTEST.TASK_ID( 3 ), 1, STATUS );
     164         RTEMS.TASKS.RESTART( MPTEST.TASK_ID( 3 ), 1, STATUS );
    163165         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF 3" );
    164166
    … …  
    171173   end INIT;
    172174
    173 --PAGE
    174175--
    175176--  TEST_TASK_1
    … …  
    177178
    178179   procedure TEST_TASK_1 (
    179       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     180      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    180181   ) is
    181182      COUNT               : RTEMS.UNSIGNED32;
    … …  
    192193      loop
    193194
    194          RTEMS.MESSAGE_QUEUE_IDENT(
     195         RTEMS.MESSAGE_QUEUE.IDENT(
    195196            MPTEST.QUEUE_NAME( 1 ),
    196197            RTEMS.SEARCH_ALL_NODES,
    … …  
    204205
    205206      TEXT_IO.PUT_LINE( "Attempting to receive message ..." );
    206       RTEMS.MESSAGE_QUEUE_RECEIVE(
     207      RTEMS.MESSAGE_QUEUE.RECEIVE(
    207208         MPTEST.QUEUE_ID( 1 ),
    208209         RECEIVE_BUFFER,
    … …  
    215216   end TEST_TASK_1;
    216217
    217 --PAGE
    218218--
    219219--  TEST_TASK_2
    … …  
    221221 
    222222   procedure TEST_TASK_2 (
    223       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     223      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    224224   ) is
    225225      STATUS : RTEMS.STATUS_CODES;
    … …  
    230230      loop
    231231
    232          RTEMS.SEMAPHORE_IDENT(
     232         RTEMS.SEMAPHORE.IDENT(
    233233            MPTEST.SEMAPHORE_NAME( 1 ),
    234234            RTEMS.SEARCH_ALL_NODES,
    … …  
    242242
    243243      TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
    244       RTEMS.SEMAPHORE_OBTAIN(
     244      RTEMS.SEMAPHORE.OBTAIN(
    245245         MPTEST.SEMAPHORE_ID( 1 ),
    246246         RTEMS.DEFAULT_OPTIONS,
    … …  
    252252   end TEST_TASK_2;
    253253
    254 --PAGE
    255254--
    256255--  TEST_TASK_3
    … …  
    258257 
    259258   procedure TEST_TASK_3 (
    260       RESTART : in     RTEMS.TASK_ARGUMENT
     259      RESTART : in     RTEMS.TASKS.ARGUMENT
    261260   ) is
    262261      STATUS : RTEMS.STATUS_CODES;
    … …  
    265264      if RESTART = 1 then
    266265
    267          RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     266         RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    268267         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
    269268
    … …  
    274273      loop
    275274
    276          RTEMS.SEMAPHORE_IDENT(
     275         RTEMS.SEMAPHORE.IDENT(
    277276            MPTEST.SEMAPHORE_NAME( 1 ),
    278277            RTEMS.SEARCH_ALL_NODES,
    … …  
    286285
    287286      TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
    288       RTEMS.SEMAPHORE_OBTAIN(
     287      RTEMS.SEMAPHORE.OBTAIN(
    289288         MPTEST.SEMAPHORE_ID( 1 ),
    290289         RTEMS.DEFAULT_OPTIONS,

  • c/src/ada-tests/mptests/mp10/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    7879
    7980   procedure INIT (
    80       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     81      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    8182   );
    8283   pragma Convention (C, INIT);
    … …  
    9192
    9293   procedure TEST_TASK_1 (
    93       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     94      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    9495   );
    9596   pragma Convention (C, TEST_TASK_1);
    … …  
    104105 
    105106   procedure TEST_TASK_2 (
    106       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     107      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    107108   );
    108109   pragma Convention (C, TEST_TASK_2);
    … …  
    117118 
    118119   procedure TEST_TASK_3 (
    119       RESTART : in     RTEMS.TASK_ARGUMENT
     120      RESTART : in     RTEMS.TASKS.ARGUMENT
    120121   );
    121122   pragma Convention (C, TEST_TASK_3);

  • c/src/ada-tests/mptests/mp10/node1/mp10_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp10/node2/mp10_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp11/mptest.adb

    r1987020 r3c4d8cd1  
    1111--
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.MESSAGE_QUEUE;
     26with RTEMS.PARTITION;
     27with RTEMS.SEMAPHORE;
     28with RTEMS.TASKS;
    2529with TEST_SUPPORT;
    2630with TEXT_IO;
    … …  
    2933package body MPTEST is
    3034
    31 --PAGE
    3235--
    3336--  INIT
    … …  
    3538
    3639   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     40      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3841   ) is
    3942      STATUS : RTEMS.STATUS_CODES;
    … …  
    6063
    6164         TEXT_IO.PUT_LINE( "Attempting to create Test_task (Global)" );
    62          RTEMS.TASK_CREATE(
     65         RTEMS.TASKS.CREATE(
    6366            MPTEST.TASK_NAME( 1 ),
    6467            1,
    … …  
    7780
    7881         TEXT_IO.PUT_LINE( "Attempting to create Message Queue (Global)" );
    79          RTEMS.MESSAGE_QUEUE_CREATE(
     82         RTEMS.MESSAGE_QUEUE.CREATE(
    8083            MPTEST.QUEUE_NAME( 1 ),
    8184            3,
    … …  
    9497
    9598         TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
    96          RTEMS.SEMAPHORE_CREATE(
     99         RTEMS.SEMAPHORE.CREATE(
    97100            MPTEST.SEMAPHORE_NAME( 1 ),
    98101            1,
    … …  
    109112
    110113         TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
    111          RTEMS.PARTITION_CREATE(
     114         RTEMS.PARTITION.CREATE(
    112115            MPTEST.PARTITION_NAME( 1 ),
    113116            MPTEST.PARTITION_AREA( 0 )'ADDRESS,

  • c/src/ada-tests/mptests/mp11/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    7475
    7576   procedure INIT (
    76       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     77      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    7778   );
    7879   pragma Convention (C, INIT);

  • c/src/ada-tests/mptests/mp11/node1/mp11_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp11/node2/mp11_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp12/mptest.adb

    r1987020 r3c4d8cd1  
    1111--
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.PARTITION;
     26with RTEMS.TASKS;
    2527with TEST_SUPPORT;
    2628with TEXT_IO;
    … …  
    2931package body MPTEST is
    3032
    31 --PAGE
    3233--
    3334--  INIT
    … …  
    3536
    3637   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     38      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3839   ) is
    3940      BUFFER_ADDRESS : RTEMS.ADDRESS;
    … …  
    5859      if TEST_SUPPORT.NODE = 2 then
    5960
    60          RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     61         RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    6162         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    6263
    … …  
    6566         loop
    6667
    67             RTEMS.PARTITION_IDENT(
     68            RTEMS.PARTITION.IDENT(
    6869               MPTEST.PARTITION_NAME( 1 ),
    6970               RTEMS.SEARCH_ALL_NODES,
    … …  
    8081         );
    8182
    82          RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
     83         RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
    8384         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    8485            STATUS,
    … …  
    9394         TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" );
    9495
    95          RTEMS.PARTITION_GET_BUFFER(
     96         RTEMS.PARTITION.GET_BUFFER(
    9697            MPTEST.PARTITION_ID( 1 ),
    9798            BUFFER_ADDRESS,
    … …  
    107108         TEXT_IO.NEW_LINE;
    108109
    109          RTEMS.PARTITION_RETURN_BUFFER(
     110         RTEMS.PARTITION.RETURN_BUFFER(
    110111            MPTEST.PARTITION_ID( 1 ),
    111112            BUFFER_ADDRESS,
    … …  
    114115         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" );
    115116
    116          RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     117         RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    117118         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    118119
    … …  
    120121
    121122         TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
    122          RTEMS.PARTITION_CREATE(
     123         RTEMS.PARTITION.CREATE(
    123124            MPTEST.PARTITION_NAME( 1 ),
    124125            MPTEST.PARTITION_AREA( 0 )'ADDRESS,
    … …  
    132133
    133134         TEXT_IO.PUT_LINE( "Sleeping for three seconds" );
    134          RTEMS.TASK_WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     135         RTEMS.TASKS.WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    135136         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    136137
    137138         TEXT_IO.PUT_LINE( "Deleting Partition (Global)" );
    138          RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
     139         RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
    139140         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" );
    140141

  • c/src/ada-tests/mptests/mp12/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    6465
    6566   procedure INIT (
    66       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     67      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    6768   );
    6869   pragma Convention (C, INIT);

  • c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp13/mptest.adb

    r1987020 r3c4d8cd1  
    1111--
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2323with INTERFACES; use INTERFACES;
    2424with RTEMS;
     25with RTEMS.MESSAGE_QUEUE;
     26with RTEMS.SEMAPHORE;
     27with RTEMS.TASKS;
    2528with TEST_SUPPORT;
    2629with TEXT_IO;
    … …  
    2932package body MPTEST is
    3033
    31 --PAGE
    3234--
    3335--  INIT
    … …  
    3537
    3638   procedure INIT (
    37       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     39      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    3840   ) is
    3941      STATUS : RTEMS.STATUS_CODES;
    … …  
    5860
    5961         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
    60          RTEMS.MESSAGE_QUEUE_CREATE(
     62         RTEMS.MESSAGE_QUEUE.CREATE(
    6163            MPTEST.QUEUE_NAME( 1 ),
    6264            3,
    … …  
    6870
    6971         TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
    70          RTEMS.SEMAPHORE_CREATE(
     72         RTEMS.SEMAPHORE.CREATE(
    7173            MPTEST.SEMAPHORE_NAME( 1 ),
    7274            1,
    … …  
    7779         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
    7880
    79          RTEMS.SEMAPHORE_OBTAIN(
     81         RTEMS.SEMAPHORE.OBTAIN(
    8082            MPTEST.SEMAPHORE_ID( 1 ),
    8183            RTEMS.DEFAULT_OPTIONS,
    … …  
    8890
    8991      TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
    90          RTEMS.TASK_CREATE(
     92         RTEMS.TASKS.CREATE(
    9193         MPTEST.TASK_NAME( 1 ),
    9294         1,
    … …  
    100102
    101103      TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
    102       RTEMS.TASK_START(
     104      RTEMS.TASKS.START(
    103105         MPTEST.TASK_ID( 1 ),
    104106         MPTEST.TEST_TASK_1'ACCESS,
    … …  
    109111
    110112      TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
    111       RTEMS.TASK_CREATE(
     113      RTEMS.TASKS.CREATE(
    112114         MPTEST.TASK_NAME( 2 ),
    113115         1,
    … …  
    121123
    122124      TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
    123       RTEMS.TASK_START(
     125      RTEMS.TASKS.START(
    124126         MPTEST.TASK_ID( 2 ),
    125127         MPTEST.TEST_TASK_2'ACCESS,
    … …  
    131133      if TEST_SUPPORT.NODE = 1 then
    132134
    133          RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     135         RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    134136         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    135137
    … …  
    141143
    142144      TEXT_IO.PUT_LINE( "Deleting initialization task" );
    143       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     145      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    144146      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    145147
    146148   end INIT;
    147149
    148 --PAGE
    149150--
    150151--  TEST_TASK_1
    … …  
    152153
    153154   procedure TEST_TASK_1 (
    154       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     155      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    155156   ) is
    156157      COUNT               : RTEMS.UNSIGNED32;
    … …  
    167168      loop
    168169
    169          RTEMS.MESSAGE_QUEUE_IDENT(
     170         RTEMS.MESSAGE_QUEUE.IDENT(
    170171            MPTEST.QUEUE_NAME( 1 ),
    171172            RTEMS.SEARCH_ALL_NODES,
    … …  
    181182
    182183         TEXT_IO.PUT_LINE( "Receiving message ..." );
    183          RTEMS.MESSAGE_QUEUE_RECEIVE(
     184         RTEMS.MESSAGE_QUEUE.RECEIVE(
    184185            MPTEST.QUEUE_ID( 1 ),
    185186            RECEIVE_BUFFER,
    … …  
    193194      end if;
    194195
    195       RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     196      RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    196197      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    197198
    198199      TEXT_IO.PUT_LINE( "Receiving message ..." );
    199       RTEMS.MESSAGE_QUEUE_RECEIVE(
     200      RTEMS.MESSAGE_QUEUE.RECEIVE(
    200201         MPTEST.QUEUE_ID( 1 ),
    201202         RECEIVE_BUFFER,
    … …  
    220221
    221222      TEXT_IO.PUT_LINE( "Deleting self" );
    222       RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
     223      RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
    223224      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
    224225
    225226   end TEST_TASK_1;
    226227
    227 --PAGE
    228228--
    229229--  TEST_TASK_2
    … …  
    231231
    232232   procedure TEST_TASK_2 (
    233       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     233      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    234234   ) is
    235235      STATUS : RTEMS.STATUS_CODES;
    … …  
    240240      loop
    241241
    242          RTEMS.SEMAPHORE_IDENT(
     242         RTEMS.SEMAPHORE.IDENT(
    243243            MPTEST.SEMAPHORE_NAME( 1 ),
    244244            RTEMS.SEARCH_ALL_NODES,
    … …  
    253253      if TEST_SUPPORT.NODE = 1 then
    254254
    255          RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     255         RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    256256         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    257257
    258258         TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
    259          RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
     259         RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
    260260         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
    261261
    262          RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
     262         RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
    263263         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    264264
    265265         TEXT_IO.PUT_LINE( "Getting semaphore ..." );
    266          RTEMS.SEMAPHORE_OBTAIN(
     266         RTEMS.SEMAPHORE.OBTAIN(
    267267            MPTEST.SEMAPHORE_ID( 1 ),
    268268            RTEMS.DEFAULT_OPTIONS,
    … …  
    273273
    274274         TEXT_IO.PUT_LINE( "Getting semaphore ..." );
    275          RTEMS.SEMAPHORE_OBTAIN(
     275         RTEMS.SEMAPHORE.OBTAIN(
    276276            MPTEST.SEMAPHORE_ID( 1 ),
    277277            RTEMS.DEFAULT_OPTIONS,
    … …  
    284284      end if;
    285285
    286       RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
     286      RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
    287287      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    288288
    289289      TEXT_IO.PUT_LINE( "Getting semaphore ..." );
    290       RTEMS.SEMAPHORE_OBTAIN(
     290      RTEMS.SEMAPHORE.OBTAIN(
    291291         MPTEST.SEMAPHORE_ID( 1 ),
    292292         RTEMS.DEFAULT_OPTIONS,
    … …  
    297297
    298298      TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
    299       RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
     299      RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
    300300      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
    301301
    302       RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     302      RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    303303      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    304304
    305305      TEXT_IO.PUT_LINE( "Getting semaphore ..." );
    306       RTEMS.SEMAPHORE_OBTAIN(
     306      RTEMS.SEMAPHORE.OBTAIN(
    307307         MPTEST.SEMAPHORE_ID( 1 ),
    308308         RTEMS.DEFAULT_OPTIONS,

  • c/src/ada-tests/mptests/mp13/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    7273
    7374   procedure INIT (
    74       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     75      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    7576   );
    7677   pragma Convention (C, INIT);
    … …  
    8586
    8687   procedure TEST_TASK_1 (
    87       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     88      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    8889   );
    8990   pragma Convention (C, TEST_TASK_1);
    … …  
    9899 
    99100   procedure TEST_TASK_2 (
    100       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     101      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    101102   );
    102103   pragma Convention (C, TEST_TASK_2);

  • c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp14/mptest.adb

    r1987020 r3c4d8cd1  
    1111--
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2424with INTERFACES.C;
    2525with RTEMS;
     26with RTEMS.EVENT;
     27with RTEMS.MESSAGE_QUEUE;
     28with RTEMS.PARTITION;
     29with RTEMS.SEMAPHORE;
     30with RTEMS.TASKS;
     31with RTEMS.TIMER;
    2632with TEST_SUPPORT;
    2733with TEXT_IO;
    … …  
    3238package body MPTEST is
    3339
    34 --PAGE
    3540--
    3641--  STOP_TEST_TSR
    … …  
    4752   end STOP_TEST_TSR;
    4853 
    49 --PAGE
    5054--
    5155--  EXIT_TEST
    … …  
    5963   begin
    6064 
    61       RTEMS.TASK_MODE(RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS);
     65      RTEMS.TASKS.MODE(RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS);
    6266      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
    6367
    … …  
    6872   end EXIT_TEST;
    6973 
    70 --PAGE
    7174--
    7275--  INIT
    … …  
    7477
    7578   procedure INIT (
    76       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     79      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    7780   ) is
    7881      INDEX             : RTEMS.UNSIGNED32;
    7982      STATUS            : RTEMS.STATUS_CODES;
    80       PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
     83      PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
    8184   begin
    8285
    … …  
    9396      MPTEST.STOP_TEST := FALSE;
    9497
    95       RTEMS.TIMER_CREATE(
     98      RTEMS.TIMER.CREATE(
    9699         MPTEST.STOP_TIMER_NAME,
    97100         MPTEST.STOP_TIMER_ID,
    … …  
    100103      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
    101104
    102       RTEMS.TIMER_FIRE_AFTER(
     105      RTEMS.TIMER.FIRE_AFTER(
    103106         MPTEST.STOP_TIMER_ID,
    104107         TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION *
    … …  
    145148
    146149         TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
    147          RTEMS.SEMAPHORE_CREATE(
     150         RTEMS.SEMAPHORE.CREATE(
    148151            MPTEST.SEMAPHORE_NAME( 1 ),
    149152            1,
    … …  
    155158
    156159         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
    157          RTEMS.MESSAGE_QUEUE_CREATE(
     160         RTEMS.MESSAGE_QUEUE.CREATE(
    158161            MPTEST.QUEUE_NAME( 1 ),
    159162            1,
    … …  
    165168
    166169         TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
    167          RTEMS.PARTITION_CREATE(
     170         RTEMS.PARTITION.CREATE(
    168171            MPTEST.PARTITION_NAME( 1 ),
    169172            MPTEST.PARTITION_AREA( 0 )'ADDRESS,
    … …  
    179182
    180183      TEXT_IO.PUT_LINE( "Creating Event task (Global)" );
    181       RTEMS.TASK_CREATE(
     184      RTEMS.TASKS.CREATE(
    182185         MPTEST.EVENT_TASK_NAME(
    183186            TEST_SUPPORT.NODE
    … …  
    193196
    194197      TEXT_IO.PUT_LINE( "Starting Event task (Global)" );
    195       RTEMS.TASK_START(
     198      RTEMS.TASKS.START(
    196199         MPTEST.EVENT_TASK_ID( 1 ),
    197200         MPTEST.TEST_TASK'ACCESS,
    … …  
    202205
    203206      TEXT_IO.PUT_LINE( "Creating Semaphore task (Global)" );
    204       RTEMS.TASK_CREATE(
     207      RTEMS.TASKS.CREATE(
    205208         MPTEST.SEMAPHORE_TASK_NAME(
    206209            TEST_SUPPORT.NODE
    … …  
    216219
    217220      TEXT_IO.PUT_LINE( "Starting Semaphore task (Global)" );
    218       RTEMS.TASK_START(
     221      RTEMS.TASKS.START(
    219222         MPTEST.SEMAPHORE_TASK_ID( 1 ),
    220223         MPTEST.SEMAPHORE_TASK'ACCESS,
    … …  
    225228
    226229      TEXT_IO.PUT_LINE( "Creating Message Queue task (Global)" );
    227       RTEMS.TASK_CREATE(
     230      RTEMS.TASKS.CREATE(
    228231         MPTEST.QUEUE_TASK_NAME(
    229232            TEST_SUPPORT.NODE
    … …  
    239242
    240243      TEXT_IO.PUT_LINE( "Starting Message Queue task (Global)" );
    241       RTEMS.TASK_START(
     244      RTEMS.TASKS.START(
    242245         MPTEST.QUEUE_TASK_ID( 1 ),
    243246         MPTEST.MESSAGE_QUEUE_TASK'ACCESS,
    … …  
    248251
    249252      TEXT_IO.PUT_LINE( "Creating Partition task (Global)" );
    250       RTEMS.TASK_CREATE(
     253      RTEMS.TASKS.CREATE(
    251254         MPTEST.PARTITION_TASK_NAME(
    252255            TEST_SUPPORT.NODE
    … …  
    262265
    263266      TEXT_IO.PUT_LINE( "Starting Partition task (Global)" );
    264       RTEMS.TASK_START(
     267      RTEMS.TASKS.START(
    265268         MPTEST.PARTITION_TASK_ID( 1 ),
    266269         MPTEST.PARTITION_TASK'ACCESS,
    … …  
    270273      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
    271274   
    272       RTEMS.TASK_SET_PRIORITY( RTEMS.SELF, 2, PREVIOUS_PRIORITY, STATUS );
     275      RTEMS.TASKS.SET_PRIORITY( RTEMS.SELF, 2, PREVIOUS_PRIORITY, STATUS );
    273276      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
    274277
    … …  
    293296   begin
    294297
    295       RTEMS.EVENT_SEND(
     298      RTEMS.EVENT.SEND(
    296299         MPTEST.TASK_ID( RTEMS.GET_INDEX( TIMER_ID ) ),
    297300         RTEMS.EVENT_16,
    … …  
    311314 
    312315   procedure TEST_TASK (
    313       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     316      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    314317   ) is
    315318      REMOTE_NODE : RTEMS.UNSIGNED32;
    … …  
    327330
    328331      TEXT_IO.PUT_LINE( "About to go to sleep!" );
    329       RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
     332      RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
    330333      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    331334      TEXT_IO.PUT_LINE( "Waking up!" );
    … …  
    338341      loop
    339342
    340          RTEMS.TASK_IDENT(
     343         RTEMS.TASKS.IDENT(
    341344            MPTEST.EVENT_TASK_NAME( REMOTE_NODE ),
    342345            RTEMS.SEARCH_ALL_NODES,
    … …  
    359362            for COUNT in 1 .. MPTEST.EVENT_TASK_DOT_COUNT
    360363            loop
    361                RTEMS.EVENT_SEND(
     364               RTEMS.EVENT.SEND(
    362365                  REMOTE_TID,
    363366                  RTEMS.EVENT_16,
    … …  
    385388            exit when MPTEST.STOP_TEST = TRUE;
    386389
    387             RTEMS.EVENT_RECEIVE(
     390            RTEMS.EVENT.RECEIVE(
    388391               RTEMS.EVENT_16,
    389392               RTEMS.DEFAULT_OPTIONS,
    … …  
    413416 
    414417   procedure DELAYED_EVENTS_TASK ( 
    415       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     418      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    416419   ) is
    417420      COUNT         : RTEMS.UNSIGNED32;
    … …  
    421424   begin
    422425
    423       RTEMS.TASK_MODE(
     426      RTEMS.TASKS.MODE(
    424427         RTEMS.PREEMPT + RTEMS.TIMESLICE,
    425428         RTEMS.PREEMPT_MASK + RTEMS.TIMESLICE_MASK,
    … …  
    429432      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
    430433 
    431       RTEMS.TIMER_CREATE(
     434      RTEMS.TIMER.CREATE(
    432435         MPTEST.TIMER_NAME( 1 ),
    433436         MPTEST.TIMER_ID( 1 ),
    … …  
    436439      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
    437440
    438       RTEMS.TASK_IDENT(
     441      RTEMS.TASKS.IDENT(
    439442         RTEMS.SELF,
    440443         RTEMS.SEARCH_ALL_NODES,
    … …  
    448451         for COUNT in 1 .. MPTEST.DELAYED_EVENT_DOT_COUNT
    449452         loop
    450             RTEMS.TIMER_FIRE_AFTER(
     453            RTEMS.TIMER.FIRE_AFTER(
    451454               MPTEST.TIMER_ID( 1 ),
    452455               1,
    … …  
    457460            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
    458461
    459             RTEMS.EVENT_RECEIVE(
     462            RTEMS.EVENT.RECEIVE(
    460463               RTEMS.EVENT_16,
    461464               RTEMS.DEFAULT_OPTIONS,
    … …  
    485488 
    486489   procedure MESSAGE_QUEUE_TASK ( 
    487       INDEX : in     RTEMS.TASK_ARGUMENT
     490      INDEX : in     RTEMS.TASKS.ARGUMENT
    488491   ) is
    489492      COUNT          : RTEMS.UNSIGNED32;
    … …  
    503506      loop
    504507
    505          RTEMS.MESSAGE_QUEUE_IDENT(
     508         RTEMS.MESSAGE_QUEUE.IDENT(
    506509            MPTEST.QUEUE_NAME( 1 ),
    507510            RTEMS.SEARCH_ALL_NODES,
    … …  
    517520      if TEST_SUPPORT.NODE = 1 then
    518521
    519          RTEMS.MESSAGE_QUEUE_SEND(
     522         RTEMS.MESSAGE_QUEUE.SEND(
    520523            MPTEST.QUEUE_ID( 1 ),
    521524            MPTEST.BUFFERS( INDEX ),
    … …  
    555558           exit when MPTEST.STOP_TEST = TRUE;
    556559
    557             RTEMS.MESSAGE_QUEUE_RECEIVE(
     560            RTEMS.MESSAGE_QUEUE.RECEIVE(
    558561               MPTEST.QUEUE_ID( 1 ),
    559562               MPTEST.BUFFERS( INDEX ),
    … …  
    574577            end if;
    575578
    576             RTEMS.MESSAGE_QUEUE_SEND(
     579            RTEMS.MESSAGE_QUEUE.SEND(
    577580               MPTEST.QUEUE_ID( 1 ),
    578581               MPTEST.BUFFERS( INDEX ),
    … …  
    588591                  if YIELD_COUNT = 0 then
    589592
    590                      RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
     593                     RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
    591594                     TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
    592595
    … …  
    618621 
    619622   procedure PARTITION_TASK ( 
    620       IGNORED : in     RTEMS.TASK_ARGUMENT
     623      IGNORED : in     RTEMS.TASKS.ARGUMENT
    621624   ) is
    622625      COUNT  : RTEMS.UNSIGNED32;
    … …  
    629632      loop
    630633
    631          RTEMS.PARTITION_IDENT(
     634         RTEMS.PARTITION.IDENT(
    632635            MPTEST.PARTITION_NAME( 1 ),
    633636            RTEMS.SEARCH_ALL_NODES,
    … …  
    650653            exit when MPTEST.STOP_TEST = TRUE;
    651654
    652             RTEMS.PARTITION_GET_BUFFER(
     655            RTEMS.PARTITION.GET_BUFFER(
    653656               MPTEST.PARTITION_ID( 1 ),
    654657               BUFFER,
    … …  
    657660            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_GET_BUFFER" );
    658661
    659             RTEMS.PARTITION_RETURN_BUFFER(
     662            RTEMS.PARTITION.RETURN_BUFFER(
    660663               MPTEST.PARTITION_ID( 1 ),
    661664               BUFFER,
    … …  
    669672            if TEST_SUPPORT.NODE = 1 then
    670673
    671                RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
     674               RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
    672675               TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
    673676
    … …  
    693696 
    694697   procedure SEMAPHORE_TASK ( 
    695       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     698      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    696699   ) is
    697700      COUNT          : RTEMS.UNSIGNED32;
    … …  
    704707      loop
    705708
    706          RTEMS.SEMAPHORE_IDENT(
     709         RTEMS.SEMAPHORE.IDENT(
    707710            MPTEST.SEMAPHORE_NAME( 1 ),
    708711            RTEMS.SEARCH_ALL_NODES,
    … …  
    727730            exit when MPTEST.STOP_TEST = TRUE;
    728731
    729             RTEMS.SEMAPHORE_OBTAIN(
     732            RTEMS.SEMAPHORE.OBTAIN(
    730733               MPTEST.SEMAPHORE_ID( 1 ),
    731734               RTEMS.DEFAULT_OPTIONS,
    … …  
    735738            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
    736739
    737             RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
     740            RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
    738741            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
    739742
    … …  
    744747               if YIELD_COUNT = 0 then
    745748
    746                   RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
     749                  RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
    747750                  TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
    748751

  • c/src/ada-tests/mptests/mp14/mptest.ads

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425
    2526package MPTEST is
    … …  
    176177
    177178   procedure INIT (
    178       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     179      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    179180   );
    180181   pragma Convention (C, INIT);
    … …  
    189190
    190191   procedure TEST_TASK (
    191       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     192      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    192193   );
    193194   pragma Convention (C, TEST_TASK);
    … …  
    202203 
    203204   procedure DELAYED_EVENTS_TASK (
    204       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     205      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    205206   );
    206207   pragma Convention (C, DELAYED_EVENTS_TASK);
    … …  
    215216 
    216217   procedure MESSAGE_QUEUE_TASK (
    217       INDEX : in     RTEMS.TASK_ARGUMENT
     218      INDEX : in     RTEMS.TASKS.ARGUMENT
    218219   );
    219220   pragma Convention (C, MESSAGE_QUEUE_TASK);
    … …  
    228229 
    229230   procedure PARTITION_TASK (
    230       IGNORED : in     RTEMS.TASK_ARGUMENT
     231      IGNORED : in     RTEMS.TASKS.ARGUMENT
    231232   );
    232233   pragma Convention (C, PARTITION_TASK);
    … …  
    241242 
    242243   procedure SEMAPHORE_TASK (
    243       ARGUMENT : in     RTEMS.TASK_ARGUMENT
     244      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    244245   );
    245246   pragma Convention (C, SEMAPHORE_TASK);

  • c/src/ada-tests/mptests/mp14/node1/mp14_node1.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,

  • c/src/ada-tests/mptests/mp14/node2/mp14_node2.adb

    r1987020 r3c4d8cd1  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-2007.
     13--  COPYRIGHT (c) 1989-2011.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
    … …  
    2222
    2323with RTEMS;
     24with RTEMS.TASKS;
    2425with MPTEST;
    2526with TEST_SUPPORT;
    … …  
    3031begin
    3132
    32    RTEMS.TASK_CREATE(
     33   RTEMS.TASKS.CREATE(
    3334      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
    3435      1,
    … …  
    4243
    4344
    44    RTEMS.TASK_START(
     45   RTEMS.TASKS.START(
    4546      INIT_ID,
    4647      MPTEST.INIT'ACCESS,
Note: See TracChangeset for help on using the changeset viewer.