Changeset a01e169 in rtems for testsuites/ada/sptests


Ignore:
Timestamp:
Dec 1, 2017, 10:26:10 AM (3 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
master
Children:
2178978a
Parents:
f6c9334d
git-author:
Sebastian Huber <sebastian.huber@…> (12/01/17 10:26:10)
git-committer:
Sebastian Huber <sebastian.huber@…> (12/01/17 12:19:48)
Message:

ada/spname01: Fix several issues

Location:
testsuites/ada/sptests/spname01
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • testsuites/ada/sptests/spname01/spname01.adb

    rf6c9334d ra01e169  
    1818--
    1919
     20with SPTEST;
     21
    2022procedure SPNAME01 is
     23  t : SPTEST.AdaTask;
    2124begin
    22 
    23    loop
    24       delay 120.0;
    25    end loop;
    26 
     25   null;
    2726end SPNAME01;
    2827
  • testsuites/ada/sptests/spname01/sptest.adb

    rf6c9334d ra01e169  
    2020
    2121with RTEMS;
     22with RTEMS.OBJECT;
    2223with TEST_SUPPORT;
    2324with TEXT_IO;
     
    3637      TEST_SUPPORT.ADA_TEST_BEGIN;
    3738
    38       RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer );
     39      RTEMS.Object.Get_Name( RTEMS.Self, StringName, Pointer );
    3940      if Pointer = RTEMS.Null_Address then
    4041         TEXT_IO.PUT_LINE( "Object_Get_Name_Failed" );
     
    4445
    4546      TEXT_IO.PUT_LINE( "Setting name to (Josiah)" );
    46       RTEMS.Object_Set_Name( RTEMS.Self, NewName, Status );
     47      RTEMS.Object.Set_Name( RTEMS.Self, NewName, Status );
    4748      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "Object_Set_Name" );
    4849
    49       RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer );
     50      RTEMS.Object.Get_Name( RTEMS.Self, StringName, Pointer );
    5051      if Pointer = RTEMS.Null_Address then
    5152         TEXT_IO.PUT_LINE( "Object_Get_Name_Failed" );
  • testsuites/ada/sptests/spname01/sptest.ads

    rf6c9334d ra01e169  
    2121package SPTEST is
    2222
    23    task AdaTask;
     23   task type AdaTask;
    2424
    2525end SPTEST;
Note: See TracChangeset for help on using the changeset viewer.