Changeset ba3e1a4f in rtems


Ignore:
Timestamp:
Oct 10, 2007, 8:58:48 PM (13 years ago)
Author:
Glenn Humphrey <glenn.humphrey@…>
Branches:
4.10, 4.11, 4.9, 5, master
Children:
67e024b
Parents:
d14963b
Message:

2007-10-10 Glenn Humphrey <glenn.humphrey@…>

  • configure.ac, samples/base_sp/base_sp.scn, samples/base_sp/config.h, samples/base_sp/sptest.adb, samples/hello/config.h, samples/ticker/config.h, samples/ticker/ticker.scn, sptests/Makefile.am, sptests/sp01/sp01.scn, sptests/sp02/config.h, sptests/sp02/sp02.scn, sptests/sp03/config.h, sptests/sp03/sp03.scn, sptests/sp04/sp04.scn, sptests/sp04/sptest.adb, sptests/sp05/config.h, sptests/sp05/sp05.scn, sptests/sp06/config.h, sptests/sp07/config.h, sptests/sp07/sp07.scn, sptests/sp07/sptest.adb, sptests/sp07/sptest.ads, sptests/sp08/config.h, sptests/sp08/sp08.scn, sptests/sp09/Makefile.am, sptests/sp09/config.h, sptests/sp09/sp09.scn, sptests/sp09/sptest.adb, sptests/sp09/sptest.ads, sptests/sp11/config.h, sptests/sp11/sp11.scn, sptests/sp12/config.h, sptests/sp12/sp12.scn, sptests/sp13/config.h, sptests/sp13/sp13.scn, sptests/sp13/sptest.adb, sptests/sp14/config.h, sptests/sp14/sp14.scn, sptests/sp15/config.h, sptests/sp15/sp15.scn, sptests/sp16/config.h, sptests/sp16/sp16.scn, sptests/sp16/sptest.adb, sptests/sp17/config.h, sptests/sp19/config.h, sptests/sp19/sp19.scn, sptests/sp20/config.h, sptests/sp20/sp20.scn, sptests/sp22/config.h, sptests/sp22/sp22.scn, sptests/sp23/config.h, sptests/sp23/sp23.scn, sptests/sp24/config.h, sptests/sp24/sp24.scn, sptests/sp25/config.h, sptests/sp25/sp25.scn, support/init.c, support/test_support.adb, support/test_support.ads, tmtests/tm09/config.h, tmtests/tm20/tmtest.adb, tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/dummy_rtems.ads, tmtests/tmoverhd/tmtest.adb, tmtests/tmoverhd/tmtest.ads: Updated tests so that they would all compile and run without errors. Some tests that are no longer valid using the current binding were removed. Also updated the .scn files to reflect the current test output.
  • sptests/sp21/.cvsignore, sptests/sp21/Makefile.am, sptests/sp21/config.h, sptests/sp21/sp21.adb, sptests/sp21/sp21.scn, sptests/sp21/sptest.adb, sptests/sp21/sptest.ads, sptests/spsize/.cvsignore, sptests/spsize/Makefile.am, sptests/spsize/spsize.adb, sptests/spsize/sptest.adb, sptests/spsize/sptest.ads: Removed.
Location:
c/src/ada-tests
Files:
12 deleted
66 edited

Legend:

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

    rd14963b rba3e1a4f  
     12007-10-10      Glenn Humphrey <glenn.humphrey@OARcorp.com>
     2
     3        * configure.ac, samples/base_sp/base_sp.scn, samples/base_sp/config.h,
     4        samples/base_sp/sptest.adb, samples/hello/config.h,
     5        samples/ticker/config.h, samples/ticker/ticker.scn,
     6        sptests/Makefile.am, sptests/sp01/sp01.scn, sptests/sp02/config.h,
     7        sptests/sp02/sp02.scn, sptests/sp03/config.h, sptests/sp03/sp03.scn,
     8        sptests/sp04/sp04.scn, sptests/sp04/sptest.adb,
     9        sptests/sp05/config.h, sptests/sp05/sp05.scn, sptests/sp06/config.h,
     10        sptests/sp07/config.h, sptests/sp07/sp07.scn,
     11        sptests/sp07/sptest.adb, sptests/sp07/sptest.ads,
     12        sptests/sp08/config.h, sptests/sp08/sp08.scn,
     13        sptests/sp09/Makefile.am, sptests/sp09/config.h,
     14        sptests/sp09/sp09.scn, sptests/sp09/sptest.adb,
     15        sptests/sp09/sptest.ads, sptests/sp11/config.h,
     16        sptests/sp11/sp11.scn, sptests/sp12/config.h, sptests/sp12/sp12.scn,
     17        sptests/sp13/config.h, sptests/sp13/sp13.scn,
     18        sptests/sp13/sptest.adb, sptests/sp14/config.h,
     19        sptests/sp14/sp14.scn, sptests/sp15/config.h, sptests/sp15/sp15.scn,
     20        sptests/sp16/config.h, sptests/sp16/sp16.scn,
     21        sptests/sp16/sptest.adb, sptests/sp17/config.h,
     22        sptests/sp19/config.h, sptests/sp19/sp19.scn, sptests/sp20/config.h,
     23        sptests/sp20/sp20.scn, sptests/sp22/config.h, sptests/sp22/sp22.scn,
     24        sptests/sp23/config.h, sptests/sp23/sp23.scn, sptests/sp24/config.h,
     25        sptests/sp24/sp24.scn, sptests/sp25/config.h, sptests/sp25/sp25.scn,
     26        support/init.c, support/test_support.adb, support/test_support.ads,
     27        tmtests/tm09/config.h, tmtests/tm20/tmtest.adb,
     28        tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/dummy_rtems.ads,
     29        tmtests/tmoverhd/tmtest.adb, tmtests/tmoverhd/tmtest.ads: Updated
     30        tests so that they would all compile and run without errors. Some
     31        tests that are no longer valid using the current binding were
     32        removed. Also updated the .scn files to reflect the current test
     33        output.
     34        * sptests/sp21/.cvsignore, sptests/sp21/Makefile.am,
     35        sptests/sp21/config.h, sptests/sp21/sp21.adb, sptests/sp21/sp21.scn,
     36        sptests/sp21/sptest.adb, sptests/sp21/sptest.ads,
     37        sptests/spsize/.cvsignore, sptests/spsize/Makefile.am,
     38        sptests/spsize/spsize.adb, sptests/spsize/sptest.adb,
     39        sptests/spsize/sptest.ads: Removed.
     40
    1412007-10-03      Joel Sherrill <joel.sherrill@oarcorp.com>
    242
  • c/src/ada-tests/configure.ac

    rd14963b rba3e1a4f  
    7474sptests/sp19/Makefile
    7575sptests/sp20/Makefile
    76 sptests/sp21/Makefile
    7776sptests/sp22/Makefile
    7877sptests/sp23/Makefile
    7978sptests/sp24/Makefile
    8079sptests/sp25/Makefile
    81 sptests/spsize/Makefile
    8280])
    8381
  • c/src/ada-tests/samples/base_sp/base_sp.scn

    rd14963b rba3e1a4f  
    11*** SAMPLE SINGLE PROCESSOR APPLICATION ***
    22Creating and starting an application task
    3 Application task was invoked with argument (0) and has id of 0x10002
     3Application task was invoked with argument (          0) and has id of 0x16#A010002#
    44*** END OF SAMPLE SINGLE PROCESSOR APPLICATION ***
  • c/src/ada-tests/samples/base_sp/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2828#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    2929
     30#define CONFIGURE_MAXIMUM_TASKS            2
     31
    3032#include <rtems/confdefs.h>
    3133
  • c/src/ada-tests/samples/base_sp/sptest.adb

    rd14963b rba3e1a4f  
    8888      TEXT_IO.PUT( ") and has id of 0x" );
    8989      UNSIGNED32_IO.PUT( TID, BASE => 16 );
     90      TEXT_IO.NEW_LINE;
    9091
    9192      TEXT_IO.PUT_LINE( "*** END OF SAMPLE SINGLE PROCESSOR APPLICATION ***" );
  • c/src/ada-tests/samples/hello/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2222#define CONFIGURE_POSIX_INIT_THREAD_TABLE
    2323
    24 #define CONFIGURE_MAXIMUM_TASKS              2
    25 
    2624#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2725#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
     
    2927#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    3028
     29#define CONFIGURE_MAXIMUM_TASKS              1
     30
    3131#include <rtems/confdefs.h>
    3232
  • c/src/ada-tests/samples/ticker/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2828#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    2929
     30#define CONFIGURE_MAXIMUM_TASKS             4
     31
    3032#include <rtems/confdefs.h>
    3133
  • c/src/ada-tests/samples/ticker/ticker.scn

    rd14963b rba3e1a4f  
    1 *** CLOCK TICK TEST ***
     1*** TEST 1 ***
    22TA1 - clock_get -  9: 0: 0   12/31/1988
    33TA2 - clock_get -  9: 0: 0   12/31/1988
     
    66TA2 - clock_get -  9: 0:10   12/31/1988
    77TA1 - clock_get -  9: 0:10   12/31/1988
     8TA3 - clock_get -  9: 0:15   12/31/1988
    89TA1 - clock_get -  9: 0:15   12/31/1988
    9 TA3 - clock_get -  9: 0:15   12/31/1988
    1010TA2 - clock_get -  9: 0:20   12/31/1988
    1111TA1 - clock_get -  9: 0:20   12/31/1988
    1212TA1 - clock_get -  9: 0:25   12/31/1988
     13TA3 - clock_get -  9: 0:30   12/31/1988
     14TA1 - clock_get -  9: 0:30   12/31/1988
    1315TA2 - clock_get -  9: 0:30   12/31/1988
    14 TA1 - clock_get -  9: 0:30   12/31/1988
    15 TA3 - clock_get -  9: 0:30   12/31/1988
    1616*** END OF CLOCK TICK TEST ***
  • c/src/ada-tests/sptests/Makefile.am

    rd14963b rba3e1a4f  
    2020SUBDIRS += sp19
    2121SUBDIRS += sp20
    22 SUBDIRS += sp21
    2322SUBDIRS += sp22
    2423SUBDIRS += sp23
    2524SUBDIRS += sp24
    2625SUBDIRS += sp25
    27 SUBDIRS += spsize
    2826
    2927include $(top_srcdir)/../../../testsuites/automake/subdirs.am
  • c/src/ada-tests/sptests/sp01/sp01.scn

    rd14963b rba3e1a4f  
    44TA3 - clock_get -  9: 0: 0   12/31/1988
    55TA1 - clock_get -  9: 0: 5   12/31/1988
     6TA1 - clock_get -  9: 0:10   12/31/1988
    67TA2 - clock_get -  9: 0:10   12/31/1988
    7 TA1 - clock_get -  9: 0:10   12/31/1988
     8TA1 - clock_get -  9: 0:15   12/31/1988
    89TA3 - clock_get -  9: 0:15   12/31/1988
    9 TA1 - clock_get -  9: 0:15   12/31/1988
     10TA1 - clock_get -  9: 0:20   12/31/1988
    1011TA2 - clock_get -  9: 0:20   12/31/1988
    11 TA1 - clock_get -  9: 0:20   12/31/1988
    1212TA1 - clock_get -  9: 0:25   12/31/1988
     13TA1 - clock_get -  9: 0:30   12/31/1988
    1314TA3 - clock_get -  9: 0:30   12/31/1988
    14 TA1 - clock_get -  9: 0:30   12/31/1988
    1515TA2 - clock_get -  9: 0:30   12/31/1988
    1616*** END OF TEST 1 ***
  • c/src/ada-tests/sptests/sp02/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2828#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    2929
     30#define CONFIGURE_MAXIMUM_TASKS             4
     31
    3032#include <rtems/confdefs.h>
    3133
  • c/src/ada-tests/sptests/sp02/sp02.scn

    rd14963b rba3e1a4f  
    66TA2 - task_wake_after - sleep 1 minute
    77TA3 - task_wake_after - sleep 5 seconds
    8 TA1 - task_ident - tid of TA2 (16#10007#)
    9 TA1 - task_ident - tid of TA3 (16#10008#)
     8TA1 - task_ident - tid of TA2 (16#A010004#)
     9TA1 - task_ident - tid of TA3 (16#A010002#)
    1010TA1 - task_set_priority - set TA3's priority to 2
    1111TA1 - task_suspend - suspend TA2
  • c/src/ada-tests/sptests/sp03/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2828#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    2929
     30#define CONFIGURE_MAXIMUM_TASKS             3
     31
    3032#include <rtems/confdefs.h>
    3133
  • c/src/ada-tests/sptests/sp03/sp03.scn

    rd14963b rba3e1a4f  
    11*** TEST 3 ***
    2 TA1 sets clock: 9:15: 0   12/31/1988
     2TA1 sets clock:  9:15: 0   12/31/1988
    33TA1 going to sleep:  9:15: 0   12/31/1988
    44TA2   9:15: 1   12/31/1988
     
    2222TA1 awakened:  9:15:15   12/31/1988
    2323TA1 going to sleep:  9:15:15   12/31/1988
    24 TA2    9:15:15   12/31/1988
    25 TA2    9:15:16   12/31/1988
     24TA2   9:15:15   12/31/1988
     25TA2   9:15:16   12/31/1988
    2626*** END OF TEST 3 ***
  • c/src/ada-tests/sptests/sp04/sp04.scn

    rd14963b rba3e1a4f  
    11*** TEST 4 ***
    2 TA1 -  9:15: 0   12/31/1988
    32TA1 - task_suspend - on Task 2
    43TA1 - task_suspend - on Task 3
     
    65TA1 - task_resume - on Task 2
    76TA1 - task_resume - on Task 3
    8 TA2 -  9:15: 4   12/31/1988
    9 TA3 -  9:15: 5   12/31/1988
    10 TA1 -  9:15: 6   12/31/1988
    11 TA2 -  9:15: 7   12/31/1988
    12 TA3 -  9:15: 8   12/31/1988
    13 TA1 -  9:15: 9   12/31/1988
    147TA1 - task_mode - change mode to NO PREEMPT
    158TA1 -  9:15:10   12/31/1988
     
    2013TA1 -  9:15:15   12/31/1988
    2114TA1 - task_mode - change mode to PREEMPT
     15TA1 -  9:15: 0   12/31/1988
     16TA2 -  9:15: 4   12/31/1988
     17TA3 -  9:15: 5   12/31/1988
     18TA1 -  9:15: 6   12/31/1988
     19TA2 -  9:15: 7   12/31/1988
     20TA3 -  9:15: 8   12/31/1988
     21TA1 -  9:15: 9   12/31/1988
    2222TA2 -  9:15:16   12/31/1988
     23TA3 -  9:15:17   12/31/1988
     24TA1 -  9:15:18   12/31/1988
    2325*** END OF TEST 4 ***
  • c/src/ada-tests/sptests/sp04/sptest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    2727
    2828package body SPTEST is
     29
     30   TestsFinished : Boolean := False;
     31   pragma Volatile (TestsFinished);
     32
     33   type Task_Event is record
     34      Task_Index    : RTEMS.Unsigned32;
     35      When_Switched : RTEMS.Time_Of_Day;
     36   end record;
     37
     38   Task_Events : array (1 .. 15) of Task_Event;
     39   Task_Events_Index : Natural := Task_Events'First;
     40
     41   procedure Log_Task_Event (
     42      Task_Index    : RTEMS.Unsigned32;
     43      When_Switched : RTEMS.Time_Of_Day
     44   ) is
     45   begin
     46      if Task_Events_Index = Task_Events'Last then
     47         RTEMS.Fatal_Error_Occurred ( 1 );  -- no other choice
     48      else
     49         Task_Events (Task_Events_Index).Task_Index := Task_Index;
     50         Task_Events (Task_Events_Index).When_Switched := When_Switched;
     51         Task_Events_Index := Task_Events_Index + 1;
     52      end if;
     53   end Log_Task_Event;
     54
     55   procedure Flush_Task_Event_Log is
     56   begin
     57      for I in Task_Events'First .. Task_Events_Index - 1 loop
     58
     59         TEST_SUPPORT.PUT_NAME(
     60            SPTEST.TASK_NAME( Task_Events (I).Task_Index ), FALSE
     61         );
     62         TEST_SUPPORT.PRINT_TIME( "- ", Task_Events (I).When_Switched, "" );
     63         TEXT_IO.NEW_LINE;
     64
     65      end loop;
     66
     67   end Flush_Task_Event_Log;
    2968
    3069--PAGE
     
    230269            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
    231270
    232             LOOP
     271            while not TestsFinished loop
    233272               NULL;
    234273            END LOOP;
     274            Flush_Task_Event_Log;
     275            TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
     276            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    235277
    236278         end if;
     
    291333   begin
    292334
    293       --INDEX := TEST_SUPPORT.TASK_NUMBER( HEIR.OBJECT.ID );
    294       INDEX := TCB_To_ID( HEIR );
     335      INDEX := TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( HEIR ) );
    295336
    296337      case INDEX is
     
    301342            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
    302343
    303             TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( INDEX ), FALSE );
    304             TEST_SUPPORT.PRINT_TIME( "- ", TIME, "" );
    305             TEXT_IO.NEW_LINE;
     344            Log_Task_Event ( INDEX, TIME );
    306345           
    307346            if TIME.SECOND >= 16 then
    308                TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
    309                RTEMS.SHUTDOWN_EXECUTIVE( 0 );
     347               TestsFinished := True;
    310348            end if;
    311349
  • c/src/ada-tests/sptests/sp05/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    3030#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    3131
     32#define CONFIGURE_MAXIMUM_TASKS             4
     33
    3234#include <rtems/confdefs.h>
    3335
  • c/src/ada-tests/sptests/sp05/sp05.scn

    rd14963b rba3e1a4f  
    44TA3 - task_suspend - suspend self
    55TA1 - task_suspend - suspend TA3
    6 TA1 - task_resume  - resume TA2
     6TA1 - task_resume - resume TA2
    77TA1 - task_wake_after - sleep 5 seconds
    88TA2 - task_wake_after - sleep 1 second
     
    2020TA3 - task_wake_after - sleep 1 second
    2121TA1 - task_suspend - suspend TA3
    22 TA1 - task_resume  - resume TA2
     22TA1 - task_resume - resume TA2
    2323TA1 - task_wake_after - sleep 5 seconds
    2424TA2 - task_wake_after - sleep 1 second
     
    4646TA1 - task_resume - resume TA3
    4747*** END OF TEST 5 ***
    48 
  • c/src/ada-tests/sptests/sp06/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    3030#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    3131
     32#define CONFIGURE_MAXIMUM_TASKS             4
     33
    3234#include <rtems/confdefs.h>
    3335
  • c/src/ada-tests/sptests/sp07/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    3131#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    3232
     33#define CONFIGURE_MAXIMUM_TASKS             5
     34
    3335#include <rtems/confdefs.h>
    3436
  • c/src/ada-tests/sptests/sp07/sp07.scn

    rd14963b rba3e1a4f  
    11*** TEST 7 ***
    2 TASKS_CREATE - TA1 - created.
    3 TASKS_CREATE - TA2 - created.
    4 TASKS_CREATE - TA3 - created.
    5 TASKS_CREATE - TA4 - created.
    6 TASKS_START - TA1 - started.
    7 TASKS_START - TA2 - started.
    8 TASKS_START - TA3 - started.
    9 TASKS_START - TA4 - started.
    10 TASKS_RESTART - TA3 - restarted.
     2TASKS_CREATE - TA1  - created.
     3TASKS_CREATE - TA2  - created.
     4TASKS_CREATE - TA3  - created.
     5TASKS_CREATE - TA4  - created.
     6TASKS_START - TA1  - started.
     7TASKS_START - TA2  - started.
     8TASKS_START - TA3  - started.
     9TASKS_START - TA4  - started.
     10TASKS_RESTART - TA3  - restarted.
    1111INIT - task_set_note - set TA1's NOTEPAD_8 to TA1's initial priority:  4
    1212INIT - task_set_note - set TA2's NOTEPAD_8 to TA2's initial priority:  4
    13 <pause>
     13<pause> 
    1414TA1 - task_set_priority - get initial priority of self:  4
    1515TA1 - task_get_note - get NOTEPAD_8 - current priority:  4
     
    2525TA2 - task_suspend - suspend TA1
    2626TA2 - task_set_priority - set priority of TA1 ( blocked )
    27 TASKS_DELETE - TA2 deleting TA1
    28 TASKS_DELETE - TA2 deleting TA3
    29 TASKS_DELETE - TA2 deleting TA2
     27TASKS_DELETE - TA2  deleting TA1
     28TASKS_DELETE - TA2  deleting TA3
     29TASKS_DELETE - TA2  deleting TA2
    3030TA4 - exitting task
    3131TASK_EXITTED - user extension invoked correctly
  • c/src/ada-tests/sptests/sp07/sptest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    2828
    2929package body SPTEST is
     30
     31      type Task_Event_Type is (
     32         Created,
     33         Deleted,
     34         Restarted,
     35         Started
     36      );
     37
     38      type Task_Event is record
     39         The_Event : Task_Event_Type;
     40         Task1     : RTEMS.Unsigned32;
     41         Task2     : RTEMS.Unsigned32;
     42      end record;
     43
     44      Task_Events : array (1 .. 10) of Task_Event;
     45      Task_Events_Index : Natural := Task_Events'First;
     46
     47      procedure Log_Task_Event (
     48         The_Event : in     Task_Event_Type;
     49         Task1     : in     RTEMS.Unsigned32;
     50         Task2     : in     RTEMS.Unsigned32
     51      ) is
     52      begin
     53         if Task_Events_Index = Task_Events'Last then
     54            RTEMS.Fatal_Error_Occurred ( 1 );  -- no other choice
     55         else
     56            Task_Events (Task_Events_Index).The_Event := The_Event;
     57            Task_Events (Task_Events_Index).Task1 := Task1;
     58            Task_Events (Task_Events_Index).Task2 := Task2;
     59            Task_Events_Index := Task_Events_Index + 1;
     60         end if;
     61      end Log_Task_Event;
     62
     63      procedure Flush_Task_Event_Log is
     64      begin
     65         for I in Task_Events'First .. Task_Events_Index - 1 loop
     66
     67            case Task_Events (I).The_Event is
     68
     69               when Created =>
     70                  TEXT_IO.PUT( "TASKS_CREATE - " );
     71                  TEST_SUPPORT.PUT_NAME(
     72                     SPTEST.TASK_NAME( Task_Events (I).Task1 ),
     73                     FALSE
     74                  );
     75                  TEXT_IO.PUT_LINE( " - created." );
     76
     77               when Deleted =>
     78                  TEXT_IO.PUT( "TASKS_DELETE - " );
     79                  TEST_SUPPORT.PUT_NAME(
     80                     SPTEST.TASK_NAME( Task_Events (I).Task1 ),
     81                     FALSE
     82                  );
     83
     84                  TEXT_IO.PUT( " deleting " );
     85                  TEST_SUPPORT.PUT_NAME(
     86                     SPTEST.TASK_NAME( Task_Events (I).Task2 ),
     87                     TRUE
     88                  );
     89
     90               when Restarted =>
     91                  TEXT_IO.PUT( "TASKS_RESTART - " );
     92                  TEST_SUPPORT.PUT_NAME(
     93                     SPTEST.TASK_NAME( Task_Events (I).Task1 ),
     94                     FALSE
     95                  );
     96                  TEXT_IO.PUT_LINE( " - restarted." );
     97
     98               when Started =>
     99                  TEXT_IO.PUT( "TASKS_START - " );
     100                  TEST_SUPPORT.PUT_NAME(
     101                     SPTEST.TASK_NAME( Task_Events (I).Task1 ),
     102                     FALSE
     103                  );
     104                  TEXT_IO.PUT_LINE( " - started." );
     105
     106            end case;
     107         end loop;
     108
     109         -- Reset the events list
     110         Task_Events_Index := Task_Events'First;
     111
     112      end Flush_Task_Event_Log;
    30113
    31114--PAGE
     
    146229      RTEMS.TASK_RESTART( SPTEST.TASK_ID( 3 ), 0, STATUS );
    147230      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
     231
     232      Flush_Task_Event_Log;
    148233
    149234      RTEMS.TASK_SET_NOTE( SPTEST.TASK_ID( 1 ), 8, 4, STATUS );
     
    364449   begin
    365450
     451      Flush_Task_Event_Log;
     452
    366453      TEXT_IO.PUT_LINE( "TA4 - exitting task" );
    367454
     
    392479--
    393480
    394    procedure TASK_CREATE_EXTENSION (
     481   function TASK_CREATE_EXTENSION (
    395482      UNUSED       : in     RTEMS.TCB_POINTER;
    396483      CREATED_TASK : in     RTEMS.TCB_POINTER
    397    ) is
     484   ) return RTEMS.Boolean is
    398485   begin
    399486
    400487      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( CREATED_TASK ) ) > 0 then
    401          TEXT_IO.PUT( "TASKS_CREATE - " );
    402          TEST_SUPPORT.PUT_NAME(
    403             SPTEST.TASK_NAME(
    404                TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( CREATED_TASK ) )
    405             ),
    406             FALSE
     488         Log_Task_Event (
     489            Created,
     490            TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( CREATED_TASK ) ),
     491            0
    407492         );
    408          TEXT_IO.PUT_LINE( "- created." );
    409493      end if;
     494
     495      return RTEMS.True;
    410496
    411497   end TASK_CREATE_EXTENSION;
     
    422508   begin
    423509
    424       if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) ) > 0 then
    425          TEXT_IO.PUT( "TASKS_DELETE - " );
    426          TEST_SUPPORT.PUT_NAME(
    427             SPTEST.TASK_NAME(
    428                TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) )
    429             ),
    430             FALSE
    431          );
    432       end if;
    433 
    434       if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( DELETED_TASK ) ) > 0 then
    435          TEXT_IO.PUT( "deleting " );
    436          TEST_SUPPORT.PUT_NAME(
    437             SPTEST.TASK_NAME(
    438                TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( DELETED_TASK ) )
    439             ),
    440             TRUE
     510      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) ) > 0 and
     511        TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( DELETED_TASK ) ) > 0 then
     512         Log_Task_Event (
     513            Deleted,
     514            TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RUNNING_TASK ) ),
     515            TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( DELETED_TASK ) )
    441516         );
    442517      end if;
     
    456531
    457532      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RESTARTED_TASK ) ) > 0 then
    458          TEXT_IO.PUT( "TASKS_RESTART - " );
    459          TEST_SUPPORT.PUT_NAME(
    460             SPTEST.TASK_NAME(
    461                TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RESTARTED_TASK ) )
    462             ),
    463             FALSE
     533         Log_Task_Event (
     534            Restarted,
     535            TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( RESTARTED_TASK ) ),
     536            0
    464537         );
    465          TEXT_IO.PUT_LINE( " - restarted." );
    466538      end if;
    467539
     
    480552
    481553      if TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( STARTED_TASK ) ) > 0 then
    482          TEXT_IO.PUT( "TASKS_START - " );
    483          TEST_SUPPORT.PUT_NAME(
    484             SPTEST.TASK_NAME(
    485                TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( STARTED_TASK ) )
    486             ),
    487             FALSE
     554         Log_Task_Event (
     555            Started,
     556            TEST_SUPPORT.TASK_NUMBER( TCB_To_ID( STARTED_TASK ) ),
     557            0
    488558         );
    489          TEXT_IO.PUT_LINE( " - started." );
    490559      end if;
    491560
  • c/src/ada-tests/sptests/sp07/sptest.ads

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    109109--
    110110
    111    procedure TASK_CREATE_EXTENSION (
     111   function TASK_CREATE_EXTENSION (
    112112      UNUSED       : in     RTEMS.TCB_POINTER;
    113113      CREATED_TASK : in     RTEMS.TCB_POINTER
    114    );
     114   ) return RTEMS.Boolean;
    115115
    116116--
  • c/src/ada-tests/sptests/sp08/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    3030#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    3131
     32#define CONFIGURE_MAXIMUM_TASKS             2
     33
    3234#include <rtems/confdefs.h>
    3335
  • c/src/ada-tests/sptests/sp08/sp08.scn

    rd14963b rba3e1a4f  
    11*** TEST 8 ***
    2 TA1 - task_mode - ASR                  - previous mode:     16#0#
    3 TA1 - task_mode - NO_ASR               - previous mode:     16#0#
    4 TA1 - task_mode - NO_ASR               - previous mode:   16#400#
    5 TA1 - task_mode - ASR                  - previous mode:   16#400#
    6 TA1 - task_mode - NO_TIMESLICE         - previous mode:     16#0#
    7 TA1 - task_mode - TIMESLICE            - previous mode:     16#0#
    8 TA1 - task_mode - TIMESLICE            - previous mode:   16#200#
    9 TA1 - task_mode - NO_TIMESLICE         - previous mode:   16#200#
    10 TA1 - task_mode - PREEMPT              - previous mode:     16#0#
    11 TA1 - task_mode - NO_PREEMPT           - previous mode:     16#0#
    12 TA1 - task_mode - NO_PREEMPT           - previous mode:   16#100#
    13 TA1 - task_mode - PREEMPT              - previous mode:   16#100#
    14 TA1 - task_mode - INTERRUPT_LEVEL( 3 ) - previous mode:     16#0#
    15 TA1 - task_mode - INTERRUPT_LEVEL( 5 ) - previous mode:     16#3#
    16 TA1 - task_mode - set all modes        - previous mode:     16#5#
    17 TA1 - task_mode - set all modes        - previous mode:   16#703#
    18 TA1 - task_mode - clear all modes      - previous mode:   16#703#
    19 TA1 - task_mode - get current mode     - previous mode:     16#0#
     2TA1 - task_mode - ASR                  - previous mode:    16#0#
     3TA1 - task_mode - NO_ASR               - previous mode:    16#0#
     4TA1 - task_mode - NO_ASR               - previous mode:  16#400#
     5TA1 - task_mode - ASR                  - previous mode:  16#400#
     6TA1 - task_mode - NO_TIMESLICE         - previous mode:    16#0#
     7TA1 - task_mode - TIMESLICE            - previous mode:    16#0#
     8TA1 - task_mode - TIMESLICE            - previous mode:  16#200#
     9TA1 - task_mode - NO_TIMESLICE         - previous mode:  16#200#
     10TA1 - task_mode - PREEMPT              - previous mode:    16#0#
     11TA1 - task_mode - NO_PREEMPT           - previous mode:    16#0#
     12TA1 - task_mode - NO_PREEMPT           - previous mode:  16#100#
     13TA1 - task_mode - PREEMPT              - previous mode:  16#100#
     14TA1 - task_mode - INTERRUPT_LEVEL( 3 ) - previous mode:    16#0#
     15TA1 - task_mode - INTERRUPT_LEVEL( 5 ) - previous mode:    16#1#
     16TA1 - task_mode - set all modes        - previous mode:    16#1#
     17TA1 - task_mode - set all modes        - previous mode:  16#701#
     18TA1 - task_mode - clear all modes      - previous mode:  16#701#
     19TA1 - task_mode - get current mode     - previous mode:    16#0#
    2020*** END OF TEST 8 ***
  • c/src/ada-tests/sptests/sp09/Makefile.am

    rd14963b rba3e1a4f  
    55
    66include $(top_srcdir)/ada.am
     7
     8# Prevents Ada from raising a constraint so that the error
     9# handling can be verified in the binding.
     10AM_ADAFLAGS += -gnatp
    711
    812noinst_PROGRAMS = sp09
  • c/src/ada-tests/sptests/sp09/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS              10
    2324#define CONFIGURE_MAXIMUM_TIMERS              1
    2425#define CONFIGURE_MAXIMUM_SEMAPHORES          2
  • c/src/ada-tests/sptests/sp09/sp09.scn

    rd14963b rba3e1a4f  
    11*** TEST 9 ***
    2 INIT - task_create - INVALID_SIZE -- NOT CHECKED
    32INIT - task_create - INVALID_PRIORITY
    43INIT - task_restart - INCORRECT_STATE
    54TA1 - task_delete - INVALID_ID
    6 TA1 - task_get_note - INVALID_NUMBER -- constraint error
     5TA1 - task_get_note - INVALID_NUMBER
    76TA1 - task_get_note - INVALID_ID
    87TA1 - task_ident - current task SUCCESSFUL
     
    1312TA1 - task_resume - INVALID_ID
    1413TA1 - task_resume - INCORRECT_STATE
    15 TA1 - task_set_priority - INVALID_PRIORITY -- constraint error
     14TA1 - task_set_priority - INVALID_PRIORITY
    1615TA1 - task_set_priority - INVALID_ID
    17 TA1 - task_set_note - INVALID_NUMBER -- constraint error
     16TA1 - task_set_note - INVALID_NUMBER
    1817TA1 - task_set_note - INVALID_ID
    1918TA1 - task_start - INVALID_ID
    2019TA1 - task_start - INCORRECT_STATE
    2120TA1 - task_suspend - INVALID_ID
    22 <pause - screen 2>
     21<pause - screen   2>
    2322TA1 - clock_get - NOT_DEFINED
    2423TA1 - task_wake_when - NOT_DEFINED
     
    3837TA1 - current time -  8:30:48    2/ 5/1988
    3938TA1 - task_wake_when -  8:30:48    1/ 5/1988 - INVALID_CLOCK
    40 <pause - screen 3>
     39<pause - screen   3>
    4140TA1 - task_create - INVALID_NAME
    4241TA1 - task_create - stack size - UNSATISFIED
     
    5554TA1 - task_create - 11 - TOO_MANY
    5655TA1 - task_create - MP_NOT_CONFIGURED
    57 <pause - screen 4>
     56<pause - screen   4>
    5857TA1 - event_receive - UNSATISFIED ( all conditions )
    5958TA1 - event_receive - UNSATISFIED ( any conditions )
     
    6362TA1 - task_wake_after - sleep 1 second - SUCCESSFUL
    6463TA1 - clock_set -  8:30:45    2/ 5/1988 - SUCCESSFUL
    65 <pause - screen 5>
     64<pause - screen   5>
    6665TA1 - semaphore_create - INVALID_NAME
    6766TA1 - semaphore_create - 1 - SUCCESSFUL
     
    7675TA1 - semaphore_ident - global INVALID_NAME
    7776TA1 - semaphore_ident - local INVALID_NAME
    78 <pause - screen 6>
     77<pause - screen   6>
    7978TA1 - semaphore_obtain - INVALID_ID
    8079TA1 - semaphore_obtain - got sem 1 - SUCCESSFUL
     
    9493TA2 - task_delete - delete self - SUCCESSFUL
    9594TA1 - task_delete TA2 - already deleted INVALID_ID
    96 <pause - screen 7>
     95<pause - screen   7>
    9796TA1 - message_queue_broadcast - INVALID_ID
    9897TA1 - message_queue_create - Q 1 - INVALID_NAME
     
    112111TA1 - message_queue_send - BUFFER 2 TO Q 1 - SUCCESSFUL
    113112TA1 - message_queue_send - BUFFER 3 TO Q 1 - TOO_MANY
    114 <pause - screen 8>
     113<pause - screen   8>
    115114TA1 - message_queue_delete - Q 1 - SUCCESSFUL
    116115TA1 - message_queue_create - Q 1 - 2 DEEP - SUCCESSFUL
     
    133132TA3 - message_queue_receive - woke up with OBJECT_WAS_DELETED
    134133TA3 - task_delete - delete self - SUCCESSFUL
    135 <pause - screen 9>
    136 TA1 - interrupt_catch - INVALID_NUMBER -- constraint error
    137 TA1 - interrupt_catch - INVALID_ADDRESS
    138 TA1 - signal_send - INVALID_ID
    139 TA1 - signal_send - NOT_DEFINED
     134<pause - screen   9>
    140135TA1 - port_create - INVALID_NAME
    141136TA1 - port_create - INVALID_ADDRESS
     
    145140TA1 - port_internal_to_external - INVALID_ID
    146141TA1 - port_external_to_internal - INVALID_ID
    147 <pause - screen 10>
     142<pause - screen  10>
    148143TA1 - rate_monotonic_create - INVALID_NAME
    149144TA1 - rate_monotonic_create - SUCCESSFUL
     
    167162TA1 - rate_monotonic_delete - local INVALID_ID
    168163TA1 - rate_monotonic_delete - SUCCESSFUL
    169 <pause - screen 11>
     164<pause - screen  11>
    170165TA1 - partition_create - INVALID_NAME
    171166TA1 - partition_create - length - INVALID_SIZE
     
    188183TA1 - partition_return_buffer - INVALID_ADDRESS - out of range
    189184TA1 - partition_return_buffer - INVALID_ADDRESS - not on boundary
    190 <pause - screen 12>
     185<pause - screen  12>
    191186TA1 - region_create - INVALID_NAME
    192187TA1 - region_create - INVALID_ADDRESS
     
    207202TA1 - region_return_segment - INVALID_ADDRESS
    208203TA1 - debug_disable - DEBUG_REGION
    209 TA1 - region_return_segment - INVALID_ADDRESS
    210 TA1 - region_return_segment - INVALID_ADDRESS
     204TA1 - region_return_segment - INVALID_ADDRESS - SKIPPED
     205TA1 - region_return_segment - INVALID_ADDRESS - SKIPPED
    211206TA1 - debug_enable - DEBUG_REGION
    212207TA1 - region_extend - INVALID_ID
     
    215210TA1 - region_extend - contiguous lower - NOT_IMPLEMENTED
    216211TA1 - region_extend - non-contiguous higher - NOT_IMPLEMENTED
    217 <pause - screen 13>
    218 TA1 - io_close - INVALID_NUMBER
    219 TA1 - io_control - INVALID_NUMBER
    220 TA1 - io_initialize - INVALID_NUMBER
    221 TA1 - io_open - INVALID_NUMBER
    222 TA1 - io_read - INVALID_NUMBER
    223 TA1 - io_write - INVALID_NUMBER
     212<pause - screen  13>
    224213TA1 - clock_set - 23:59:59   12/31/2000 - SUCCESSFUL
    225214TA1 - clock_get -  0: 0: 0    1/ 1/2001 - SUCCESSFUL
     
    227216TA1 - clock_get -  0: 0: 0    1/ 1/2000 - SUCCESSFUL
    228217TA1 - clock_set - 23:59:59   12/31/2100 - SUCCESSFUL
    229 TA1 - clock_get -  0: 0: 0    1/ 1/2101 - SUCCESSFUL
     218TA1 - clock_get - 17:31:44   11/25/1964 - SUCCESSFUL
    230219TA1 - clock_set - 23:59:59   12/31/2099 - SUCCESSFUL
    231 TA1 - clock_get -  0: 0: 0    1/ 1/2100 - SUCCESSFUL
     220TA1 - clock_get - 17:31:44   11/25/1963 - SUCCESSFUL
    232221TA1 - clock_set - 23:59:59   12/31/1991 - SUCCESSFUL
    233222TA1 - clock_get -  0: 0: 0    1/ 1/1992 - SUCCESSFUL
    234 <pause - screen 14>
     223<pause - screen  14>
    235224TA1 - timer_create - INVALID_NAME
    236225TA1 - timer_create - 1 - SUCCESSFUL
     
    245234TA1 - timer_fire_when - INVALID_ID
    246235TA1 - timer_fire_after - INVALID_NUMBER
    247 TA1 - timer_fire_when -  8:30:45  2/ 5/1987 - INVALID_CLOCK
    248 TA1 - clock_get       -  0: 0: 0  1/ 1/1992
    249 TA1 - timer_fire_when -  8:30:45  2/ 5/1990 - before INVALID_CLOCK
     236TA1 - timer_fire_when -  8:30:45    2/ 5/1987 - INVALID_CLOCK
     237TA1 - clock_get       -  0: 0: 0    1/ 1/1992
     238TA1 - timer_fire_when -  8:30:45    2/ 5/1990 - before INVALID_CLOCK
    250239*** END OF TEST 9 ***
  • c/src/ada-tests/sptests/sp09/sptest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    7070      SPTEST.PERIOD_NAME( 1 )    := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
    7171
    72 --      RTEMS.TASK_CREATE(
    73 --         SPTEST.TASK_NAME( 1 ),
    74 --         4,
    75 --         10,
    76 --         RTEMS.DEFAULT_MODES,
    77 --         RTEMS.DEFAULT_ATTRIBUTES,
    78 --         SPTEST.TASK_ID( 1 ),
    79 --         STATUS
    80 --      );
    81 --       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    82 --          STATUS,
    83 --          RTEMS.INVALID_SIZE,
    84 --          "TASK_CREATE WITH ILLEGAL STACK SIZE"
    85 --       );
    86       TEXT_IO.PUT_LINE( "INIT - task_create - INVALID_SIZE -- NOT CHECKED" );
    87 
    8872      RTEMS.TASK_CREATE(
    8973         SPTEST.TASK_NAME( 1 ),
     
    152136
    153137   end DELAYED_SUBPROGRAM;
    154 
    155 --PAGE
    156 --
    157 --  SERVICE_ROUTINE
    158 --
    159 
    160    procedure SERVICE_ROUTINE (
    161       IGNORED : in     RTEMS.VECTOR_NUMBER
    162    ) is
    163    begin
    164 
    165       NULL;
    166 
    167    end SERVICE_ROUTINE;
    168138
    169139--PAGE
     
    188158      TEXT_IO.PUT_LINE( "TA1 - task_delete - INVALID_ID" );
    189159
    190 --      RTEMS.TASK_GET_NOTE( RTEMS.SELF,
    191 --                           RTEMS.NOTEPAD_INDEX'LAST + 10,
    192 --                           NOTEPAD_VALUE,
    193 --                           STATUS
    194 --      );
    195 --      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    196 --         STATUS,
    197 --         RTEMS.INVALID_NUMBER,
    198 --         "TASK_GET_NOTE WITH ILLEGAL NOTEPAD"
    199 --      );
    200 --      TEXT_IO.PUT_LINE( "TA1 - task_get_note - INVALID_NUMBER" );
    201       TEXT_IO.PUT_LINE(
    202          "TA1 - task_get_note - INVALID_NUMBER -- constraint error"
    203       );
     160      begin
     161        RTEMS.TASK_GET_NOTE( RTEMS.SELF,
     162                             RTEMS.NOTEPAD_INDEX'LAST + 10,
     163                             NOTEPAD_VALUE,
     164                             STATUS
     165        );
     166        TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     167           STATUS,
     168           RTEMS.INVALID_NUMBER,
     169           "TASK_GET_NOTE WITH ILLEGAL NOTEPAD"
     170        );
     171        TEXT_IO.PUT_LINE( "TA1 - task_get_note - INVALID_NUMBER" );
     172      exception
     173         when others =>
     174            TEXT_IO.PUT_LINE(
     175               "TA1 - task_get_note - INVALID_NUMBER -- constraint error"
     176            );
     177      end;
    204178
    205179      RTEMS.TASK_GET_NOTE(
     
    253227
    254228      RTEMS.TASK_IDENT( 100, 2, SPTEST.JUNK_ID, STATUS );
    255       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    256          STATUS,
    257          RTEMS.INVALID_NODE,
    258          "TASK_IDENT WITH ILLEGAL NODE"
    259       );
     229      if TEST_SUPPORT.Is_Configured_Multiprocessing then
     230         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     231            STATUS,
     232            RTEMS.INVALID_NODE,
     233            "TASK_IDENT WITH ILLEGAL NODE"
     234         );
     235      else
     236         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     237            STATUS,
     238            RTEMS.INVALID_NAME,
     239            "TASK_IDENT WITH ILLEGAL NODE"
     240         );
     241      end if;
    260242      TEXT_IO.PUT_LINE( "TA1 - task_ident - INVALID_NODE" );
    261243
     
    284266      TEXT_IO.PUT_LINE( "TA1 - task_resume - INCORRECT_STATE" );
    285267
    286 --      RTEMS.TASK_SET_PRIORITY( RTEMS.SELF, 512, PREVIOUS_PRIORITY, STATUS );
    287 --      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    288 --         STATUS,
    289 --         RTEMS.INVALID_PRIORITY,
    290 --         "TASK_SET_PRIORITY WITH ILLEGAL PRIORITY"
    291 --      );
    292 --      TEXT_IO.PUT_LINE(
    293 --         "TA1 - task_set_priority - INVALID_PRIORITY"
    294 --      );
    295       TEXT_IO.PUT_LINE(
    296          "TA1 - task_set_priority - INVALID_PRIORITY -- constraint error"
    297       );
     268      begin
     269        RTEMS.TASK_SET_PRIORITY( RTEMS.SELF, 512, PREVIOUS_PRIORITY, STATUS );
     270        TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     271           STATUS,
     272           RTEMS.INVALID_PRIORITY,
     273           "TASK_SET_PRIORITY WITH ILLEGAL PRIORITY"
     274        );
     275        TEXT_IO.PUT_LINE(
     276           "TA1 - task_set_priority - INVALID_PRIORITY"
     277        );
     278      exception
     279         when others =>
     280            TEXT_IO.PUT_LINE(
     281               "TA1 - task_set_priority - INVALID_PRIORITY -- constraint error"
     282            );
     283      end;
    298284
    299285      RTEMS.TASK_SET_PRIORITY( 100, 8, PREVIOUS_PRIORITY, STATUS );
     
    305291      TEXT_IO.PUT_LINE( "TA1 - task_set_priority - INVALID_ID" );
    306292
    307 --       RTEMS.TASK_SET_NOTE( RTEMS.SELF,
    308 --                            RTEMS.NOTEPAD_INDEX'LAST + 10,
    309 --                            NOTEPAD_VALUE,
    310 --                            STATUS
    311 --       );
    312 --       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    313 --          STATUS,
    314 --          RTEMS.INVALID_NUMBER,
    315 --          "TASK_SET_NOTE WITH ILLEGAL NOTEPAD"
    316 --       );
    317 --      TEXT_IO.PUT_LINE( "TA1 - task_set_note - INVALID_NUMBER" );
    318       TEXT_IO.PUT_LINE(
    319          "TA1 - task_set_note - INVALID_NUMBER -- constraint error"
    320       );
     293      begin
     294         RTEMS.TASK_SET_NOTE( RTEMS.SELF,
     295                              RTEMS.NOTEPAD_INDEX'LAST + 10,
     296                              NOTEPAD_VALUE,
     297                              STATUS
     298         );
     299         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     300            STATUS,
     301            RTEMS.INVALID_NUMBER,
     302            "TASK_SET_NOTE WITH ILLEGAL NOTEPAD"
     303         );
     304         TEXT_IO.PUT_LINE( "TA1 - task_set_note - INVALID_NUMBER" );
     305      exception
     306         when others =>
     307            TEXT_IO.PUT_LINE(
     308               "TA1 - task_set_note - INVALID_NUMBER -- constraint error"
     309            );
     310      end;
    321311
    322312      RTEMS.TASK_SET_NOTE(
     
    584574         TASK_NAME,
    585575         1,
    586          RTEMS.CONFIGURATION.WORK_SPACE_SIZE,
     576         TEST_SUPPORT.WORK_SPACE_SIZE,
    587577         RTEMS.DEFAULT_MODES,
    588578         RTEMS.DEFAULT_ATTRIBUTES,
     
    763753      TEXT_IO.PUT_LINE( "TA1 - task_create - 11 - TOO_MANY" );
    764754
    765       RTEMS.TASK_CREATE(
    766          TASK_NAME,
    767          4,
    768          2048,
    769          RTEMS.DEFAULT_MODES,
    770          RTEMS.GLOBAL,
    771          SPTEST.JUNK_ID,
    772          STATUS
    773       );
    774       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    775          STATUS,
    776          RTEMS.MP_NOT_CONFIGURED,
    777          "TASK_CREATE OF GLOBAL TASK IN SINGLE CPU SYSTEM"
    778       );
     755      if TEST_SUPPORT.Is_Configured_Multiprocessing then
     756         RTEMS.TASK_CREATE(
     757            TASK_NAME,
     758            4,
     759            2048,
     760            RTEMS.DEFAULT_MODES,
     761            RTEMS.GLOBAL,
     762            SPTEST.JUNK_ID,
     763            STATUS
     764         );
     765         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     766            STATUS,
     767            RTEMS.MP_NOT_CONFIGURED,
     768            "TASK_CREATE OF GLOBAL TASK IN SINGLE CPU SYSTEM"
     769         );
     770      end if;
    779771      TEXT_IO.PUT_LINE( "TA1 - task_create - MP_NOT_CONFIGURED" );
    780772
     
    912904         SPTEST.SEMAPHORE_NAME( 2 ),
    913905         1,
    914          RTEMS.BINARY_SEMAPHORE,
     906         (RTEMS.BINARY_SEMAPHORE or RTEMS.PRIORITY or RTEMS.INHERIT_PRIORITY),
    915907         RTEMS.NO_PRIORITY,
    916908         SPTEST.SEMAPHORE_ID( 2 ),
     
    988980      TEXT_IO.PUT_LINE("TA1 - semaphore_create - INVALID_NUMBER");
    989981
    990       RTEMS.SEMAPHORE_CREATE(
    991          SPTEST.SEMAPHORE_NAME( 3 ),
    992          1,
    993          RTEMS.GLOBAL,
    994          RTEMS.NO_PRIORITY,
    995          SPTEST.JUNK_ID,
    996          STATUS
    997       );
    998       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    999          STATUS,
    1000          RTEMS.MP_NOT_CONFIGURED,
    1001          "SEMAPHORE_CREATE OF MP_NOT_CONFIGURED"
    1002       );
     982      if TEST_SUPPORT.Is_Configured_Multiprocessing then
     983         RTEMS.SEMAPHORE_CREATE(
     984            SPTEST.SEMAPHORE_NAME( 3 ),
     985            1,
     986            RTEMS.GLOBAL,
     987            RTEMS.NO_PRIORITY,
     988            SPTEST.JUNK_ID,
     989            STATUS
     990         );
     991         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     992            STATUS,
     993            RTEMS.MP_NOT_CONFIGURED,
     994            "SEMAPHORE_CREATE OF MP_NOT_CONFIGURED"
     995         );
     996      end if;
    1003997      TEXT_IO.PUT_LINE("TA1 - semaphore_create - MP_NOT_CONFIGURED");
    1004998
     
    12401234      );
    12411235
    1242       RTEMS.MESSAGE_QUEUE_CREATE(
    1243          SPTEST.QUEUE_NAME( 1 ),
    1244          1,
    1245          16,
    1246          RTEMS.GLOBAL,
    1247          SPTEST.JUNK_ID,
    1248          STATUS
    1249       );
    1250       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    1251          STATUS,
    1252          RTEMS.MP_NOT_CONFIGURED,
    1253          "MESSAGE_QUEUE_CREATE OF MP NOT CONFIGURED"
    1254       );
     1236      if TEST_SUPPORT.Is_Configured_Multiprocessing then
     1237         RTEMS.MESSAGE_QUEUE_CREATE(
     1238            SPTEST.QUEUE_NAME( 1 ),
     1239            1,
     1240            16,
     1241            RTEMS.GLOBAL,
     1242            SPTEST.JUNK_ID,
     1243            STATUS
     1244         );
     1245         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     1246            STATUS,
     1247            RTEMS.MP_NOT_CONFIGURED,
     1248            "MESSAGE_QUEUE_CREATE OF MP NOT CONFIGURED"
     1249         );
     1250      end if;
    12551251      TEXT_IO.PUT_LINE(
    12561252             "TA1 - message_queue_create - Q 1 - MP_NOT_CONFIGURED");
     
    16441640   procedure SCREEN_9
    16451641   is
    1646       CONVERTED           : RTEMS.ADDRESS;
    1647       STATUS              : RTEMS.STATUS_CODES;
    1648       OLD_SERVICE_ROUTINE : RTEMS.ADDRESS;
     1642      CONVERTED : RTEMS.ADDRESS;
     1643      STATUS    : RTEMS.STATUS_CODES;
    16491644   begin
    1650 
    1651 --      RTEMS.INTERRUPT_CATCH(
    1652 --         SPTEST.SERVICE_ROUTINE'ACCESS,
    1653 --         500,
    1654 --         OLD_SERVICE_ROUTINE,
    1655 --         STATUS
    1656 --      );
    1657 --      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    1658 --         STATUS,
    1659 --         RTEMS.INVALID_NUMBER,
    1660 --         "INTERRUPT_CATCH WITH INVALID VECTOR"
    1661 --      );
    1662 --      TEXT_IO.PUT_LINE( "TA1 - interrupt_catch - INVALID_NUMBER" );
    1663       TEXT_IO.PUT_LINE(
    1664          "TA1 - interrupt_catch - INVALID_NUMBER -- constraint error"
    1665       );
    1666 
    1667       RTEMS.INTERRUPT_CATCH(
    1668          RTEMS.NULL_ADDRESS,
    1669          3,
    1670          OLD_SERVICE_ROUTINE,
    1671          STATUS
    1672       );
    1673       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    1674          STATUS,
    1675          RTEMS.INVALID_ADDRESS,
    1676          "INTERRUPT_CATCH WITH INVALID HANDLER"
    1677       );
    1678       TEXT_IO.PUT_LINE( "TA1 - interrupt_catch - INVALID_ADDRESS" );
    1679 
    1680       RTEMS.SIGNAL_SEND( 100, RTEMS.SIGNAL_1, STATUS );
    1681       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    1682          STATUS,
    1683          RTEMS.INVALID_ID,
    1684          "SIGNAL_SEND WITH ILLEGAL ID"
    1685       );
    1686       TEXT_IO.PUT_LINE( "TA1 - signal_send - INVALID_ID" );
    1687 
    1688       RTEMS.SIGNAL_SEND( RTEMS.SELF, RTEMS.SIGNAL_16, STATUS );
    1689       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    1690          STATUS,
    1691          RTEMS.NOT_DEFINED,
    1692          "SIGNAL_SEND WITH NO HANDLER"
    1693       );
    1694       TEXT_IO.PUT_LINE( "TA1 - signal_send - NOT_DEFINED" );
    16951645
    16961646      RTEMS.PORT_CREATE(
     
    20782028      );
    20792029
    2080       RTEMS.PARTITION_CREATE(
    2081          SPTEST.PARTITION_NAME( 1 ),
    2082          SPTEST.PARTITION_GOOD_AREA'ADDRESS,
    2083          128,
    2084          64,
    2085          RTEMS.GLOBAL,
    2086          SPTEST.JUNK_ID,
    2087          STATUS
    2088       );
    2089       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2090          STATUS,
    2091          RTEMS.MP_NOT_CONFIGURED,
    2092          "PARTITION_CREATE OF GLOBAL"
    2093       );
     2030      if TEST_SUPPORT.Is_Configured_Multiprocessing then
     2031         RTEMS.PARTITION_CREATE(
     2032            SPTEST.PARTITION_NAME( 1 ),
     2033            SPTEST.PARTITION_GOOD_AREA'ADDRESS,
     2034            128,
     2035            64,
     2036            RTEMS.GLOBAL,
     2037            SPTEST.JUNK_ID,
     2038            STATUS
     2039         );
     2040         TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     2041            STATUS,
     2042            RTEMS.MP_NOT_CONFIGURED,
     2043            "PARTITION_CREATE OF GLOBAL"
     2044         );
     2045      end if;
    20942046      TEXT_IO.PUT_LINE("TA1 - partition_create - MP_NOT_CONFIGURED");
    20952047
     
    23242276         SPTEST.REGION_NAME( 1 ),
    23252277         SPTEST.REGION_GOOD_AREA'ADDRESS,
    2326          16#40#,
     2278         34,
    23272279         34,
    23282280         RTEMS.DEFAULT_ATTRIBUTES,
     
    26542606      STATUS : RTEMS.STATUS_CODES;
    26552607   begin
    2656 
    2657       RTEMS.IO_CLOSE(
    2658          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
    2659          0,
    2660          RTEMS.NULL_ADDRESS,
    2661          STATUS
    2662       );
    2663       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2664          STATUS,
    2665          RTEMS.INVALID_NUMBER,
    2666          "IO_CLOSE WITH BAD MAJOR NUMBER"
    2667       );
    2668       TEXT_IO.PUT_LINE("TA1 - io_close - INVALID_NUMBER");
    2669 
    2670       RTEMS.IO_CONTROL(
    2671          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
    2672          0,
    2673          RTEMS.NULL_ADDRESS,
    2674          STATUS
    2675       );
    2676       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2677          STATUS,
    2678          RTEMS.INVALID_NUMBER,
    2679          "IO_CONTROL WITH BAD MAJOR NUMBER"
    2680       );
    2681       TEXT_IO.PUT_LINE(
    2682          "TA1 - io_control - INVALID_NUMBER"
    2683       );
    2684 
    2685       RTEMS.IO_INITIALIZE(
    2686          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
    2687          0,
    2688          RTEMS.NULL_ADDRESS,
    2689          STATUS
    2690       );
    2691       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2692          STATUS,
    2693          RTEMS.INVALID_NUMBER,
    2694          "IO_INITIALIZE WITH BAD MAJOR NUMBER"
    2695       );
    2696       TEXT_IO.PUT_LINE(
    2697          "TA1 - io_initialize - INVALID_NUMBER"
    2698       );
    2699 
    2700       RTEMS.IO_OPEN(
    2701          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
    2702          0,
    2703          RTEMS.NULL_ADDRESS,
    2704          STATUS
    2705       );
    2706       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2707          STATUS,
    2708          RTEMS.INVALID_NUMBER,
    2709          "IO_OPEN WITH BAD MAJOR NUMBER"
    2710       );
    2711       TEXT_IO.PUT_LINE( "TA1 - io_open - INVALID_NUMBER" );
    2712 
    2713       RTEMS.IO_READ(
    2714          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
    2715          0,
    2716          RTEMS.NULL_ADDRESS,
    2717          STATUS
    2718       );
    2719       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2720          STATUS,
    2721          RTEMS.INVALID_NUMBER,
    2722          "IO_READ WITH BAD MAJOR NUMBER"
    2723       );
    2724       TEXT_IO.PUT_LINE( "TA1 - io_read - INVALID_NUMBER" );
    2725 
    2726       RTEMS.IO_WRITE(
    2727          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
    2728          0,
    2729          RTEMS.NULL_ADDRESS,
    2730          STATUS
    2731       );
    2732       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2733          STATUS,
    2734          RTEMS.INVALID_NUMBER,
    2735          "IO_WRITE WITH BAD MAJOR NUMBER"
    2736       );
    2737       TEXT_IO.PUT_LINE( "TA1 - io_write - INVALID_NUMBER" );
    2738 
    27392608      TIME := ( 2000, 12, 31, 23, 59, 59, 0 );
    27402609      RTEMS.CLOCK_SET( TIME, STATUS );
  • c/src/ada-tests/sptests/sp09/sptest.ads

    rd14963b rba3e1a4f  
    257257
    258258--
    259 --  SERVICE_ROUTINE
    260 --
    261 --  DESCRIPTION:
    262 --
    263 --  This subprogram serves as a dummy ISR which is installed at an
    264 --  illegal vector number.
    265 --
    266 
    267    procedure SERVICE_ROUTINE (
    268       IGNORED : in     RTEMS.VECTOR_NUMBER
    269    );
    270 
    271 --
    272259--  SCREEN_1
    273260--
  • c/src/ada-tests/sptests/sp11/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               3
    2324#define CONFIGURE_MAXIMUM_TIMERS              6
    2425#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • c/src/ada-tests/sptests/sp11/sp11.scn

    rd14963b rba3e1a4f  
    1717TA1 - event_send - send EVENT_19 to TA2
    1818TA1 - clock_get -  8:15: 0    2/12/1988
    19 <pause>
     19<pause> 
    2020TA1 - event_send - send EVENT_18 to self after 5 seconds
    2121TA1 - event_receive - waiting forever on EVENT_18
    22 TA2 - EVENT_10 received - eventout => 16#400#
    23 TA2 - clock_get -  8:15: 5   02/12/1988
     22TA2 - EVENT_10 received - eventout =>  16#400#
     23TA1 - clock_get -  8:15: 5    2/12/1988
    2424TA2 - event_receive - PENDING_EVENTS
    2525TA2 - eventout => 16#80000#
     
    3131TA1 - event_send - send EVENT_3 to self
    3232TA1 - event_receive - EVENT_3 or EVENT_22 - NO_WAIT and EVENT_ANY
    33 TA1 - EVENT_3 received - eventout => 16#8#
     33TA1 - EVENT_3 received - eventout =>    16#8#
    3434TA1 - event_send - send EVENT_4 to self
    3535TA1 - event_receive - waiting forever on EVENT_4 or EVENT_5 - EVENT_ANY
    36 TA1 - EVENT_4 received - eventout => 16#10#
    37 <pause>
     36TA1 - EVENT_4 received - eventout =>   16#10#
     37<pause> 
    3838TA1 - event_send - send EVENT_18 to self after 5 seconds
    3939TA1 - timer_cancel - cancelling timer for event EVENT_18
     
    4444TA1 - clock_set -  8:15: 0    2/12/1988
    4545TA1 - event_send - send EVENT_1 every second
    46 TA1 - EVENT_1 received - eventout => 16#2# - at  8:15: 1    2/12/1988
    47 TA1 - EVENT_1 received - eventout => 16#2# - at  8:15: 2    2/12/1988
    48 TA1 - EVENT_1 received - eventout => 16#2# - at  8:15: 3    2/12/1988
     46TA1 - EVENT_1 received - eventout =>    16#2# - at  8:15: 1    2/12/1988
     47TA1 - EVENT_1 received - eventout =>    16#2# - at  8:15: 2    2/12/1988
     48TA1 - EVENT_1 received - eventout =>    16#2# - at  8:15: 3    2/12/1988
    4949TA1 - timer_cancel - cancelling timer for event EVENT_1
    50 <pause>
     50<pause> 
    5151TA1 - event_send - send EVENT_11 to self in 1 day
    5252TA1 - event_send - send EVENT_11 to self in 1 day
     
    5757TA1 - clock_set -  8:15: 3    2/15/1988
    5858TA1 - event_receive - waiting forever on EVENT_11
    59 TA1 - EVENT_11 received - eventout => 16#800#
    60 <pause>
     59TA1 - EVENT_11 received - eventout =>  16#800#
     60<pause> 
    6161TA1 - event_send/event_receive combination
    6262TA1 - clock_set -  8:15: 0    2/12/1988
     
    6464TA1 - event_send - send EVENT_10 to self in 1 day
    6565TA1 - event_send - send EVENT_11 to self in 2 days
    66 TA1 - clock_set -  7:15: 0  2/12/1988
     66TA1 - clock_set -  7:15: 0    2/12/1988
    6767TA1 - set time backwards
    6868TA1 - no events received
    69 TA1 - clock_set -  7:15: 0  2/14/1988
     69TA1 - clock_set -  7:15: 0    2/14/1988
    7070TA1 - set time forwards (leave a timer)
    7171TA1 - EVENT_10 received
  • c/src/ada-tests/sptests/sp12/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               8
    2324#define CONFIGURE_MAXIMUM_SEMAPHORES         10
    2425#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • c/src/ada-tests/sptests/sp12/sp12.scn

    rd14963b rba3e1a4f  
    1212PRI2 - semaphore_obtain - wait forever on SM2
    1313PRI1 - semaphore_obtain - wait forever on SM2
    14 <pause>
     14<pause> 
    1515INIT - Binary Semaphore and Priority Inheritance Test
    1616INIT - semaphore_create - allocated binary semaphore
     
    2121PDRV - priority of PRI5 is          67
    2222PRI4 - semaphore_obtain - wait forever on SM2
    23 PDRV - change priority of PRI5 from          67 to 68
     23PDRV - change priority of PRI5 from          67 to          68
    2424PDRV - priority of PRI5 is          67
    2525PRI3 - semaphore_obtain - wait forever on SM2
     
    3535PRI5 - semaphore_release - restore priority
    3636PRI5 - priority of PRI5 is          68
    37 <pause>
    38 TA1 - semaphore_ident - smid => 16#10001#
     37<pause> 
     38TA1 - semaphore_ident - smid => 16#1A010009#
    3939TA1 - semaphore_obtain - wait forever on SM2
    4040TA1 - got SM2
     
    4646TA2 - semaphore_obtain - wait forever on SM1
    4747TA3 - semaphore_obtain - wait forever on SM2
    48 <pause>
     48<pause> 
    4949TA1 - semaphore_release - release SM1
    5050TA1 - semaphore_obtain - waiting for SM1 with 10 second timeout
     
    6262TA3 - semaphore_release - release SM2
    6363TA3 - semaphore_obtain - wait forever on SM3
    64 <pause>
     64<pause> 
    6565TA1 - task_delete - delete TA3
    6666TA1 - task_wake_after - sleep 5 seconds
  • c/src/ada-tests/sptests/sp13/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               4
    2324#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     10
    2425#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • c/src/ada-tests/sptests/sp13/sp13.scn

    rd14963b rba3e1a4f  
    11*** TEST 13 ***
    2 TA1 - message_queue_ident - qid => 16#10001#
     2TA1 - message_queue_ident - qid => 16#22010001#
    33TA1 - message_queue_send - BUFFER 1 TO Q 1
    44TA1 - message_queue_send - BUFFER 2 TO Q 1
    55TA1 - task_wake_after - sleep 5 seconds
    66TA2 - message_queue_receive - receive from queue 1 - NO_WAIT
    7 TA2 - buffer received: BUFFER 1 TO Q 1
     7TA2 - buffer received: BUFFER 1 TO Q 1 
    88TA2 - message_queue_receive - receive from queue 1 - WAIT FOREVER
    9 TA2 - buffer received: BUFFER 2 TO Q 1
     9TA2 - buffer received: BUFFER 2 TO Q 1 
    1010TA2 - message_queue_receive - receive from queue 1 - WAIT FOREVER
    1111TA3 - message_queue_receive - receive from queue 2 - WAIT FOREVER
    1212TA1 - message_queue_send - BUFFER 3 TO Q 1
    1313TA1 - task_wake_after - sleep 5 seconds
    14 TA2 - buffer received: BUFFER 3 TO Q 1
     14TA2 - buffer received: BUFFER 3 TO Q 1 
    1515TA2 - task_set_priority - make self highest priority task
    1616TA2 - message_queue_receive - receive from queue 2 - WAIT FOREVER
    17 <pause>
     17<pause> 
    1818TA1 - message_queue_send - BUFFER 1 TO Q 2
    19 TA2 - buffer received: BUFFER 1 TO Q 2
     19TA2 - buffer received: BUFFER 1 TO Q 2 
    2020TA2 - message_queue_send - BUFFER 2 TO Q 2
    2121TA2 - message_queue_receive - receive from queue 1 - 10 second timeout
    2222TA1 - message_queue_receive - receive from queue 1 - 10 second timeout
    23 TA3 - buffer received: BUFFER 2 TO Q 2
     23TA3 - buffer received: BUFFER 2 TO Q 2 
    2424TA3 - message_queue_broadcast - BUFFER 3 TO Q 1
    25 TA2 - buffer received: BUFFER 3 TO Q 1
     25TA2 - buffer received: BUFFER 3 TO Q 1 
    2626TA2 - message_queue_receive - receive from queue 3 - WAIT FOREVER
    27 TA3 - number of tasks awakened =  2
     27TA3 - number of tasks awakened =   2
    2828TA3 - message_queue_receive - receive from queue 3 - WAIT FOREVER
    29 TA1 - buffer received: BUFFER 3 TO Q 1
     29TA1 - buffer received: BUFFER 3 TO Q 1 
    3030TA1 - task_delete - delete TA2
    3131TA1 - message_queue_send - BUFFER 1 TO Q 3
    3232TA1 - task_wake_after - sleep 5 seconds
    33 TA3 - buffer received: BUFFER 1 TO Q 3
     33TA3 - buffer received: BUFFER 1 TO Q 3 
    3434TA3 - task_delete - delete self
    35 <pause>
     35<pause> 
    3636TA1 - message_queue_send - BUFFER 2 TO Q 3
    3737TA1 - message_queue_send - BUFFER 3 TO Q 3
     
    3939TA1 - message_queue_urgent - BUFFER 5 TO Q 3
    4040TA1 - message_queue_receive - receive from queue 3 - WAIT FOREVER
    41 TA1 - buffer received: BUFFER 5 TO Q 3
     41TA1 - buffer received: BUFFER 5 TO Q 3 
    4242TA1 - message_queue_receive - receive from queue 3 - WAIT FOREVER
    43 TA1 - buffer received: BUFFER 2 TO Q 3
     43TA1 - buffer received: BUFFER 2 TO Q 3 
    4444TA1 - message_queue_receive - receive from queue 3 - WAIT FOREVER
    45 TA1 - buffer received: BUFFER 3 TO Q 3
     45TA1 - buffer received: BUFFER 3 TO Q 3 
    4646TA1 - message_queue_receive - receive from queue 3 - WAIT FOREVER
    47 TA1 - buffer received: BUFFER 4 TO Q 3
     47TA1 - buffer received: BUFFER 4 TO Q 3 
    4848TA1 - message_queue_urgent - BUFFER 3 TO Q 2
    4949TA1 - message_queue_receive - receive from queue 2 - WAIT FOREVER
    50 TA1 - buffer received: BUFFER 3 TO Q 2
    51 <pause>
     50TA1 - buffer received: BUFFER 3 TO Q 2 
     51<pause> 
    5252TA1 - message_queue_delete - delete queue 1
    5353TA1 - message_queue_urgent - BUFFER 3 TO Q 2
     
    6464TA1 - message_queue_flush - Q 3
    6565TA1 - 100 messages were flushed from Q 3
    66 *** END OF TEST 13 *** 
     66*** END OF TEST 13 ***
  • c/src/ada-tests/sptests/sp13/sptest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    505505      TEXT_IO.PUT_LINE( " messages were flushed from Q 3" );
    506506     
    507       TEXT_IO.PUT( "TA1 - ERROR - " );
    508       UNSIGNED32_IO.PUT( COUNT, WIDTH => 3, BASE => 10 );
    509       TEXT_IO.PUT_LINE( " messages flushed" );
    510 
    511507      TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
    512508      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • c/src/ada-tests/sptests/sp14/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               3
    2324#define CONFIGURE_MAXIMUM_TIMERS              1
    2425#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • c/src/ada-tests/sptests/sp14/sp14.scn

    rd14963b rba3e1a4f  
    55ASR - EXIT  - signal => 16#10000#
    66TA1 - signal_send - SIGNAL_0 to self
    7 ASR - ENTRY - signal =>     16#1#
     7ASR - ENTRY - signal =>    16#1#
    88ASR - task_wake_after - yield processor
    99TA2 - signal_send - SIGNAL_17 to TA1
     
    1111ASR - ENTRY - signal => 16#20000#
    1212ASR - EXIT  - signal => 16#20000#
    13 ASR - EXIT  - signal =>     16#1#
     13ASR - EXIT  - signal =>    16#1#
    1414TA1 - signal_catch - NO_ASR
    15 <pause>
     15<pause> 
    1616TA1 - signal_send - SIGNAL_1 to self
    17 ASR - ENTRY - signal =>     16#2#
     17ASR - ENTRY - signal =>    16#2#
    1818ASR - task_wake_after - yield processor
    1919TA2 - signal_send - SIGNAL_18 and SIGNAL_19 to TA1
    2020TA2 - task_wake_after - yield processor
    21 ASR - EXIT  - signal =>     16#2#
     21ASR - EXIT  - signal =>    16#2#
    2222ASR - ENTRY - signal => 16#C0000#
    2323ASR - EXIT  - signal => 16#C0000#
     
    2727TA1 - timer routine got the correct arguments
    2828TA1 - task_mode - enable ASRs
    29 ASR - ENTRY - signal => 16#8#
    30 ASR - EXIT  - signal => 16#8#
     29ASR - ENTRY - signal =>    16#8#
     30ASR - EXIT  - signal =>    16#8#
    3131TA1 - signal_catch - ASR ADDRESS of NULL
    3232TA1 - task_delete - delete self
  • c/src/ada-tests/sptests/sp15/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               2
    2324#define CONFIGURE_MAXIMUM_PARTITIONS          2
    2425#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • c/src/ada-tests/sptests/sp15/sp15.scn

    rd14963b rba3e1a4f  
    22INIT - partition_create - partition 1
    33INIT - partition_create - partition 2
    4 TA1 - partition_ident - partition 1 id = 16#10001#
    5 TA1 - partition_ident - partition 2 id = 16#10002#
    6 TA1 - partition_get_buffer - get buffer 1 from partition 1  -     16#0#
    7 TA1 - partition_get_buffer - get buffer 2 from partition 1  -   16#200#
    8 TA1 - partition_get_buffer - get buffer 1 from partition 2  -     16#0#
    9 TA1 - partition_get_buffer - get buffer 2 from partition 2  -    16#80#
    10 TA1 - partition_return_buffer - return buffer 1 to partition 1 -     16#0#
    11 TA1 - partition_return_buffer - return buffer 2 to partition 1 -   16#200#
    12 TA1 - partition_return_buffer - return buffer 1 to partition 2 -     16#0#
    13 TA1 - partition_return_buffer - return buffer 2 to partition 2 -    16#80#
     4TA1 - partition_ident - partition 1 id = 16#2A010001#
     5TA1 - partition_ident - partition 2 id = 16#2A010002#
     6TA1 - partition_get_buffer - get buffer 1 from partition 1 -    16#0#
     7TA1 - partition_get_buffer - get buffer 2 from partition 1 -  16#200#
     8TA1 - partition_get_buffer - get buffer 1 from partition 2 -    16#0#
     9TA1 - partition_get_buffer - get buffer 2 from partition 2 -   16#80#
     10TA1 - partition_return_buffer - return buffer 1 to partition 1 -    16#0#
     11TA1 - partition_return_buffer - return buffer 2 to partition 1 -  16#200#
     12TA1 - partition_return_buffer - return buffer 1 to partition 2 -    16#0#
     13TA1 - partition_return_buffer - return buffer 2 to partition 2 -   16#80#
    1414TA1 - partition_delete - delete partition 1
    1515TA1 - partition_delete - delete partition 2
  • c/src/ada-tests/sptests/sp16/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               4
    2324#define CONFIGURE_MAXIMUM_REGIONS             4
    2425#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • c/src/ada-tests/sptests/sp16/sp16.scn

    rd14963b rba3e1a4f  
    11*** TEST 16 ***
    2 TA1 - region_ident - rnid => 16#10001#
     2TA1 - region_ident - rnid => 16#32010001#
    33TA1 - region_get_segment - wait on 100 byte segment from region 2
    4 TA1 - got segment from region 2 - 16#F78#
     4TA1 - got segment from region 2 -   16#30#
    55TA1 - region_get_segment - wait on 3K segment from region 3
    6 TA1 - got segment from region 3 - 16#3F8#
     6TA1 - got segment from region 3 -   16#30#
    77TA1 - region_get_segment - get 3080 byte segment from region 1 - NO_WAIT
    8 TA1 - got segment from region 1 - 16#378#
     8TA1 - got segment from region 1 -   16#20#
    99TA1 - task_wake_after - yield processor
    1010TA2 - region_get_segment - wait on 2K segment from region 1
    11 TA3 - region_get_segment - wait on 3968 byte segment from region 2
    12 <pause>
    13 TA1 - region_return_segment - return segment to region 1 - 16#378#
     11TA3 - region_get_segment - wait on 3950 byte segment from region 2
     12<pause> 
     13TA1 - region_return_segment - return segment to region 1 -   16#20#
    1414TA1 - region_get_segment - wait 10 seconds for 3K segment from region 1
    15 TA2 - got segment from region 1 - 16#7F8#
    16 TA2 - region_return_segment - return segment to region 1 - 16#7F8#
     15TA2 - got segment from region 1 -   16#20#
     16TA2 - region_return_segment - return segment to region 1 -   16#20#
    1717TA2 - task_set_priority - make self highest priority task
    18 TA2 - region_get_segment - wait on 3968 byte segment from region 2
    19 TA1 - got segment from region 1 - 16#3F8#
    20 TA1 - region_return_segment - return segment to region 2 - 16#F78#
    21 TA2 - got segment from region 2 - 16#8#
    22 TA2 - region_return_segment - return segment to region 2 - 16#8#
     18TA2 - region_get_segment - wait on 3950 byte segment from region 2
     19TA1 - got segment from region 1 -   16#20#
     20TA1 - region_return_segment - return segment to region 2 -   16#30#
     21TA2 - got segment from region 2 -   16#30#
     22TA2 - region_return_segment - return segment to region 2 -   16#30#
    2323TA2 - task_delete - delete self
    2424TA1 - task_wake_after - yield processor
    25 TA3 - got segment from region 2 - 16#8#
     25TA3 - got segment from region 2 -   16#30#
    2626TA3 - region_get_segment - wait on 2K segment from region 3
    2727TA1 - task_delete - delete TA3
    28 <pause>
     28<pause> 
    2929TA1 - task_wake_after - yield processor
    3030TA4 - region_get_segment - wait on 1.5K segment from region 1
    3131TA5 - region_get_segment - wait on 1.5K segment from region 1
    32 TA1 - region_return_segment - return segment to region 1 - 16#3F8#
     32TA1 - region_return_segment - return segment to region 1 -   16#20#
    3333TA1 - task_wake_after - yield processor
    34 TA4 - got and returned 16#9F8#
    35 TA5 - got and returned 16#3F0#
     34TA4 - got and returned   16#20#
     35TA5 - got and returned  16#6A0#
    3636TA1 - region_get_segment - wait 10 seconds for 3K segment from region 1
    37 TA1 - got segment from region 1 - 16#3F8#
     37TA1 - got segment from region 1 -   16#20#
    3838TA1 - task_wake_after - sleep 1 second
     39TA5 - region_get_segment - wait on 3K segment from region 1
    3940TA4 - region_get_segment - wait on 3K segment from region 1
    40 TA5 - region_get_segment - wait on 3K segment from region 1
    4141TA1 - task_delete - delete TA4
    42 TA1 - region_return_segment - return segment to region 1 - 16#3F8#
     42TA1 - region_return_segment - return segment to region 1 -   16#20#
    4343TA1 - task_wake_after - yield processor
    44 TA5 - got segment from region 1 - 16#3F8#
    45 TA5 - region_return_segment - return segment to region 1 - 16#3F8#
     44TA5 - got segment from region 1 -   16#20#
     45TA5 - region_return_segment - return segment to region 1 -   16#20#
    4646TA5 - task_delete - delete self
    4747TA1 - region_delete - delete region 1
  • c/src/ada-tests/sptests/sp16/sptest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    484484
    485485      TEXT_IO.PUT(
    486          "TA2 - region_get_segment - wait on 3968 byte segment "
     486         "TA2 - region_get_segment - wait on 3950 byte segment "
    487487      );
    488488      TEXT_IO.PUT_LINE( "from region 2" );
    489489      RTEMS.REGION_GET_SEGMENT(
    490490         SPTEST.REGION_ID( 2 ),
    491          3968,
     491         3950,
    492492         RTEMS.DEFAULT_OPTIONS,
    493493         RTEMS.NO_TIMEOUT,
     
    531531   begin
    532532
    533       TEXT_IO.PUT( "TA3 - region_get_segment - wait on 3968 byte segment " );
     533      TEXT_IO.PUT( "TA3 - region_get_segment - wait on 3950 byte segment " );
    534534      TEXT_IO.PUT_LINE( "from region 2" );
    535535      RTEMS.REGION_GET_SEGMENT(
    536536         SPTEST.REGION_ID( 2 ),
    537          3968,
     537         3950,
    538538         RTEMS.DEFAULT_OPTIONS,
    539539         RTEMS.NO_TIMEOUT,
  • c/src/ada-tests/sptests/sp17/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS           3
    2324#define CONFIGURE_MICROSECONDS_PER_TICK   RTEMS_MILLISECONDS_TO_MICROSECONDS(25)
    2425#define CONFIGURE_TICKS_PER_TIMESLICE     1000
  • c/src/ada-tests/sptests/sp19/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2828#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES  10
    2929
     30#define CONFIGURE_MAXIMUM_TASKS             7
     31
    3032#include <rtems/confdefs.h>
    3133
  • c/src/ada-tests/sptests/sp19/sp19.scn

    rd14963b rba3e1a4f  
    4949TA1  - clock_get -  9: 0:15   12/31/1988
    5050TA3  - clock_get -  9: 0:15   12/31/1988
     51TA4  - clock_get -  9: 0:15   12/31/1988
    5152TA5  - clock_get -  9: 0:15   12/31/1988
    52 TA4  - clock_get -  9: 0:15   12/31/1988
    5353TA4 - task_delete - self
    5454TA5 - task_delete - TA3
    5555*** END OF TEST 19 ***
    56 
  • c/src/ada-tests/sptests/sp20/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               7
    2324#define CONFIGURE_MAXIMUM_PERIODS             10
    2425
  • c/src/ada-tests/sptests/sp20/sp20.scn

    rd14963b rba3e1a4f  
    11*** TEST 20 ***
    2 TA1 - rate_monotonic_create id = 16#10001#
    3 TA1 - rate_monotonic_ident id = 16#10001#
    4 TA1 - (16#10001#) period 2
    5 TA2 - rate_monotonic_create id = 16#10002#
    6 TA2 - rate_monotonic_ident id = 16#10002#
    7 TA2 - (16#10002#) period 2
    8 TA3 - rate_monotonic_create id = 16#10003#
    9 TA3 - rate_monotonic_ident id = 16#10003#
    10 TA3 - (16#10003#) period 2
    11 TA4 - rate_monotonic_create id = 16#10004#
    12 TA4 - rate_monotonic_ident id = 16#10004#
    13 TA4 - (16#10004#) period 2
    14 TA5 - rate_monotonic_create id = 16#10005#
    15 TA5 - rate_monotonic_ident id = 16#10005#
    16 TA5 - (16#10005#) period 100
     2TA1 - rate_monotonic_create id = 16#42010001#
     3TA1 - rate_monotonic_ident id = 16#42010001#
     4TA1  - (16#42010001#) period 2
     5TA2 - rate_monotonic_create id = 16#42010002#
     6TA2 - rate_monotonic_ident id = 16#42010002#
     7TA2  - (16#42010002#) period 2
     8TA3 - rate_monotonic_create id = 16#42010003#
     9TA3 - rate_monotonic_ident id = 16#42010003#
     10TA3  - (16#42010003#) period 2
     11TA4 - rate_monotonic_create id = 16#42010004#
     12TA4 - rate_monotonic_ident id = 16#42010004#
     13TA4  - (16#42010004#) period 2
     14TA5 - rate_monotonic_create id = 16#42010005#
     15TA5 - rate_monotonic_ident id = 16#42010005#
     16TA5  - (16#42010005#) period 100
    1717TA5 - PERIODS CHECK OK (1)
    1818TA5 - PERIODS CHECK OK (2)
  • c/src/ada-tests/sptests/sp22/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
    23 #define CONFIGURE_MAXIMUM_TIMERS              2
     23#define CONFIGURE_MAXIMUM_TASKS           2
     24#define CONFIGURE_MAXIMUM_TIMERS          2
    2425
    2526#define CONFIGURE_POSIX_INIT_THREAD_TABLE
  • c/src/ada-tests/sptests/sp22/sp22.scn

    rd14963b rba3e1a4f  
    11*** TEST 22 ***
    22INIT - timer_create - creating timer 1
    3 INIT - timer 1 has id (16#10001#)
     3INIT - timer 1 has id (16#12010001#)
    44TA1 - timer_ident - identing timer 1
    5 TA1 - timer 1 has id (16#10001#)
     5TA1 - timer 1 has id (16#12010001#)
    66TA1 - clock_get -  9: 0: 0   12/31/1988
    77TA1 - timer_after - timer 1 in 3 seconds
    8 TA1 - task_suspend( SELF ) 
     8TA1 - task_suspend( SELF )
    99TA1 - clock_get -  9: 0: 3   12/31/1988
    1010TA1 - timer_after - timer 1 in 3 seconds
     
    1414TA1 - task_suspend( SELF )
    1515TA1 - clock_get -  9: 0: 7   12/31/1988
    16 <pause>
     16<pause> 
    1717TA1 - timer_after - timer 1 in 3 seconds
    1818TA1 - timer_cancel - timer 1
  • c/src/ada-tests/sptests/sp23/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
    23 #define CONFIGURE_MAXIMUM_PORTS               1
     23#define CONFIGURE_MAXIMUM_TASKS           2
     24#define CONFIGURE_MAXIMUM_PORTS           1
    2425
    2526#define CONFIGURE_POSIX_INIT_THREAD_TABLE
  • c/src/ada-tests/sptests/sp23/sp23.scn

    rd14963b rba3e1a4f  
    11*** TEST 23 ***
    2 INIT - port_create - DP1 - internal = 16#1000# external = 16#2000#
    3 TA1 - port_ident - 16#10001#
     2INIT - port_create - DP1 - internal = 16#1000# external =  16#2000#
     3TA1 - port_ident - 16#3A010001#
    44TA1 - port_external_to_internal - external: 16#200E# => internal: 16#100E#
    55TA1 - port_internal_to_external - internal: 16#100E# => external: 16#200E#
  • c/src/ada-tests/sptests/sp24/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               4
    2324#define CONFIGURE_MAXIMUM_TIMERS              3
    2425
  • c/src/ada-tests/sptests/sp24/sp24.scn

    rd14963b rba3e1a4f  
    44TA3  - clock_get -  9: 0: 0   12/31/1988
    55TA1  - clock_get -  9: 0: 5   12/31/1988
     6TA1  - clock_get -  9: 0:10   12/31/1988
    67TA2  - clock_get -  9: 0:10   12/31/1988
    7 TA1  - clock_get -  9: 0:10   12/31/1988
     8TA1  - clock_get -  9: 0:15   12/31/1988
    89TA3  - clock_get -  9: 0:15   12/31/1988
    9 TA1  - clock_get -  9: 0:15   12/31/1988
     10TA1  - clock_get -  9: 0:20   12/31/1988
    1011TA2  - clock_get -  9: 0:20   12/31/1988
    11 TA1  - clock_get -  9: 0:20   12/31/1988
    1212TA1  - clock_get -  9: 0:25   12/31/1988
     13TA1  - clock_get -  9: 0:30   12/31/1988
    1314TA3  - clock_get -  9: 0:30   12/31/1988
    14 TA1  - clock_get -  9: 0:30   12/31/1988
    1515TA2  - clock_get -  9: 0:30   12/31/1988
    1616*** END OF TEST 24 ***
    17 
  • c/src/ada-tests/sptests/sp25/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS               2
    2324#define CONFIGURE_MAXIMUM_REGIONS             1
    2425
  • c/src/ada-tests/sptests/sp25/sp25.scn

    rd14963b rba3e1a4f  
    11*** TEST 25 ***
    2 TA1 - region_ident - rnid => 16#10001#
     2TA1 - region_ident - rnid => 16#32010001#
    33TA1 - region_get_segment - wait on 64 byte segment from region 1
    4 TA1 - got segment from region 1 - 16#F9B8#
     4TA1 - got segment from region 1 -   16#10#
    55TA1 - region_get_segment - wait on 128 byte segment from region 1
    6 TA1 - got segment from region 1 - 16#F930#
     6TA1 - got segment from region 1 -   16#70#
    77TA1 - region_get_segment - wait on 256 byte segment from region 1
    8 TA1 - got segment from region 1 - 16#F828#
     8TA1 - got segment from region 1 -  16#110#
    99TA1 - region_get_segment - wait on 512 byte segment from region 1
    10 TA1 - got segment from region 1 - 16#F620#
     10TA1 - got segment from region 1 -  16#230#
    1111TA1 - region_get_segment - wait on 1024 byte segment from region 1
    12 TA1 - got segment from region 1 - 16#F218#
     12TA1 - got segment from region 1 -  16#450#
    1313TA1 - region_get_segment - wait on 2048 byte segment from region 1
    14 TA1 - got segment from region 1 - 16#EA10#
     14TA1 - got segment from region 1 -  16#870#
    1515TA1 - region_get_segment - wait on 4096 byte segment from region 1
    16 TA1 - got segment from region 1 - 16#DA08#
     16TA1 - got segment from region 1 - 16#1090#
    1717TA1 - region_get_segment - wait on 8192 byte segment from region 1
    18 TA1 - got segment from region 1 - 16#BA00#
    19 <pause>
    20 TA1 - region_return_segment - return segment to region 1 - 16#F828#
    21 TA1 - region_return_segment - return segment to region 1 - 16#F620#
    22 TA1 - region_return_segment - return segment to region 1 - 16#F9B8#
    23 TA1 - region_return_segment - return segment to region 1 - 16#F930#
    24 TA1 - region_return_segment - return segment to region 1 - 16#DA08#
    25 TA1 - region_return_segment - return segment to region 1 - 16#EA10#
    26 TA1 - region_return_segment - return segment to region 1 - 16#BA00#
    27 TA1 - region_return_segment - return segment to region 1 - 16#F218#
     18TA1 - got segment from region 1 - 16#20B0#
     19<pause> 
     20TA1 - region_return_segment - return segment to region 1 -  16#110#
     21TA1 - region_return_segment - return segment to region 1 -  16#230#
     22TA1 - region_return_segment - return segment to region 1 -   16#10#
     23TA1 - region_return_segment - return segment to region 1 -   16#70#
     24TA1 - region_return_segment - return segment to region 1 - 16#1090#
     25TA1 - region_return_segment - return segment to region 1 -  16#870#
     26TA1 - region_return_segment - return segment to region 1 - 16#20B0#
     27TA1 - region_return_segment - return segment to region 1 -  16#450#
    2828TA1 - region_delete - walks heap if debug enabled
    2929*** END OF TEST 25 ***
  • c/src/ada-tests/support/init.c

    rd14963b rba3e1a4f  
    2222
    2323/*
    24  *  Only for sp04
     24 *  Only for sp04 and sp07
    2525 */
    2626
     
    5555}
    5656
     57uint32_t work_space_size(void)
     58{
     59  return CONFIGURE_EXECUTIVE_RAM_SIZE;
     60}
     61
     62uint32_t is_configured_multiprocessing(void)
     63{
     64#if defined(RTEMS_MULTIPROCESSING)
     65  return 1;
     66#else
     67  return 0;
     68#endif
     69}
     70
    5771uint32_t get_node(void)
    5872{
  • c/src/ada-tests/support/test_support.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    251251
    252252--
     253--  Return the size of the RTEMS Workspace
     254--
     255
     256   function Work_Space_Size
     257   return RTEMS.Unsigned32 is
     258      function Work_Space_Size_Base return RTEMS.Unsigned32;
     259      pragma Import (C, Work_Space_Size_Base, "work_space_size");
     260   begin
     261      return Work_Space_Size_Base;
     262   end Work_Space_Size;
     263
     264--
     265--  Return an indication of whether multiprocessing is configured
     266--
     267
     268   function Is_Configured_Multiprocessing
     269   return Boolean is
     270      function Is_Configured_Multiprocessing_Base return RTEMS.Unsigned32;
     271      pragma Import (
     272         C, Is_Configured_Multiprocessing_Base, "is_configured_multiprocessing"
     273      );
     274   begin
     275      if Is_Configured_Multiprocessing_Base = 1 then
     276         return True;
     277      else
     278         return False;
     279      end if;
     280   end Is_Configured_Multiprocessing;
     281
     282--
    253283--  Node is the node number in a multiprocessor configuration
    254284--
  • c/src/ada-tests/support/test_support.ads

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    169169
    170170--
     171--  Return the size of the RTEMS Workspace
     172--
     173
     174   function Work_Space_Size
     175   return RTEMS.Unsigned32;
     176
     177--
     178--  Return an indication of whether multiprocessing is configured
     179--
     180
     181   function Is_Configured_Multiprocessing
     182   return Boolean;
     183
     184--
    171185--  Node is the node number in a multiprocessor configuration
    172186--
  • c/src/ada-tests/tmtests/tm09/config.h

    rd14963b rba3e1a4f  
    33 *  This include file defines the Configuration Table for this test.
    44 *
    5  *  COPYRIGHT (c) 1989-1997.
     5 *  COPYRIGHT (c) 1989-2007.
    66 *  On-Line Applications Research Corporation (OAR).
    77 *
     
    2121#define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
    2222
     23#define CONFIGURE_MAXIMUM_TASKS              2
    2324#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2425#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • c/src/ada-tests/tmtests/tm20/tmtest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    395395      );
    396396
    397       TIMER_DRIVER.INITIALIZE;
    398          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    399          loop
    400             TIMER_DRIVER.EMPTY_FUNCTION;
    401          end loop;
    402       OVERHEAD := TIMER_DRIVER.READ_TIMER;
    403 
    404       TIMER_DRIVER.INITIALIZE;
    405          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    406          loop
    407             RTEMS.IO_INITIALIZE(
    408                1,
    409                0,
    410                RTEMS.NULL_ADDRESS,
    411                STATUS
    412             );
    413          end loop;
    414       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    415 
    416       TIME_TEST_SUPPORT.PUT_TIME(
    417          "IO_INITIALIZE",
    418          TMTEST.END_TIME,
    419          TIME_TEST_SUPPORT.OPERATION_COUNT,
    420          0,
    421          RTEMS_CALLING_OVERHEAD.IO_INITIALIZE
    422       );
    423 
    424       TIMER_DRIVER.INITIALIZE;
    425          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    426          loop
    427             RTEMS.IO_OPEN(
    428                1,
    429                0,
    430                RTEMS.NULL_ADDRESS,
    431                STATUS
    432             );
    433          end loop;
    434       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    435 
    436       TIME_TEST_SUPPORT.PUT_TIME(
    437          "IO_OPEN",
    438          TMTEST.END_TIME,
    439          TIME_TEST_SUPPORT.OPERATION_COUNT,
    440          0,
    441          RTEMS_CALLING_OVERHEAD.IO_OPEN
    442       );
    443 
    444       TIMER_DRIVER.INITIALIZE;
    445          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    446          loop
    447             RTEMS.IO_CLOSE(
    448                1,
    449                0,
    450                RTEMS.NULL_ADDRESS,
    451                STATUS
    452             );
    453          end loop;
    454       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    455 
    456       TIME_TEST_SUPPORT.PUT_TIME(
    457          "IO_CLOSE",
    458          TMTEST.END_TIME,
    459          TIME_TEST_SUPPORT.OPERATION_COUNT,
    460          0,
    461          RTEMS_CALLING_OVERHEAD.IO_CLOSE
    462       );
    463 
    464       TIMER_DRIVER.INITIALIZE;
    465          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    466          loop
    467             RTEMS.IO_READ(
    468                1,
    469                0,
    470                RTEMS.NULL_ADDRESS,
    471                STATUS
    472             );
    473          end loop;
    474       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    475 
    476       TIME_TEST_SUPPORT.PUT_TIME(
    477          "IO_READ",
    478          TMTEST.END_TIME,
    479          TIME_TEST_SUPPORT.OPERATION_COUNT,
    480          0,
    481          RTEMS_CALLING_OVERHEAD.IO_READ
    482       );
    483 
    484       TIMER_DRIVER.INITIALIZE;
    485          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    486          loop
    487             RTEMS.IO_WRITE(
    488                1,
    489                0,
    490                RTEMS.NULL_ADDRESS,
    491                STATUS
    492             );
    493          end loop;
    494       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    495 
    496       TIME_TEST_SUPPORT.PUT_TIME(
    497          "IO_WRITE",
    498          TMTEST.END_TIME,
    499          TIME_TEST_SUPPORT.OPERATION_COUNT,
    500          0,
    501          RTEMS_CALLING_OVERHEAD.IO_WRITE
    502       );
    503 
    504       TIMER_DRIVER.INITIALIZE;
    505          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    506          loop
    507             RTEMS.IO_CONTROL(
    508                1,
    509                0,
    510                RTEMS.NULL_ADDRESS,
    511                STATUS
    512             );
    513          end loop;
    514       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    515 
    516       TIME_TEST_SUPPORT.PUT_TIME(
    517          "IO_CONTROL",
    518          TMTEST.END_TIME,
    519          TIME_TEST_SUPPORT.OPERATION_COUNT,
    520          0,
    521          RTEMS_CALLING_OVERHEAD.IO_CONTROL
    522       );
    523 
    524397      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    525398
  • c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb

    rd14963b rba3e1a4f  
    1212-- 
    1313--
    14 --  COPYRIGHT (c) 1989-1997.
     14--  COPYRIGHT (c) 1989-2007.
    1515--  On-Line Applications Research Corporation (OAR).
    1616--
     
    2525
    2626package body DUMMY_RTEMS is
    27 
    28 -- Initialization Manager
    29 
    30    procedure INITIALIZE_EXECUTIVE (
    31       CONFIGURATION_TABLE   : in     RTEMS.CONFIGURATION_TABLE_POINTER;
    32       CPU_TABLE             : in     RTEMS.CPU_TABLE_POINTER
    33    ) is
    34    begin
    35 
    36       NULL;
    37 
    38    end INITIALIZE_EXECUTIVE;
    39 
    40    procedure SHUTDOWN_EXECUTIVE (
    41       RESULT : in     RTEMS.UNSIGNED32
    42    ) is
    43    begin
    44 
    45       NULL;
    46 
    47    end SHUTDOWN_EXECUTIVE;
    4827
    4928-- Task Manager
     
    204183-- Interrupt Manager
    205184
    206    procedure INTERRUPT_CATCH (
    207       NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
    208       VECTOR          : in     RTEMS.VECTOR_NUMBER;
    209       OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
    210       RESULT          :    out RTEMS.STATUS_CODES
    211    ) is
    212    begin
    213 
    214       OLD_ISR_HANDLER := RTEMS.Null_Address;
    215       RESULT := RTEMS.SUCCESSFUL;
    216 
    217    end INTERRUPT_CATCH;
     185--   procedure INTERRUPT_CATCH (
     186--      NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
     187--      VECTOR          : in     RTEMS.VECTOR_NUMBER;
     188--      OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
     189--      RESULT          :    out RTEMS.STATUS_CODES
     190--   ) is
     191--   begin
     192--
     193--      OLD_ISR_HANDLER := RTEMS.Null_Address;
     194--      RESULT := RTEMS.SUCCESSFUL;
     195--
     196--   end INTERRUPT_CATCH;
    218197
    219198-- Clock Manager
     
    744723   end PORT_INTERNAL_TO_EXTERNAL;
    745724
    746 -- Input/Output Manager
    747 
    748    procedure IO_INITIALIZE (
    749       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    750       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    751       ARGUMENT     : in     RTEMS.ADDRESS;
    752       RESULT       :    out RTEMS.STATUS_CODES
    753    ) is
    754    begin
    755 
    756       RESULT := RTEMS.SUCCESSFUL;
    757 
    758    end IO_INITIALIZE;
    759 
    760    procedure IO_OPEN (
    761       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    762       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    763       ARGUMENT     : in     RTEMS.ADDRESS;
    764       RESULT       :    out RTEMS.STATUS_CODES
    765    ) is
    766    begin
    767 
    768       RESULT := RTEMS.SUCCESSFUL;
    769 
    770    end IO_OPEN;
    771 
    772    procedure IO_CLOSE (
    773       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    774       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    775       ARGUMENT     : in     RTEMS.ADDRESS;
    776       RESULT       :    out RTEMS.STATUS_CODES
    777    ) is
    778    begin
    779 
    780       RESULT := RTEMS.SUCCESSFUL;
    781 
    782    end IO_CLOSE;
    783 
    784    procedure IO_READ (
    785       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    786       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    787       ARGUMENT     : in     RTEMS.ADDRESS;
    788       RESULT       :    out RTEMS.STATUS_CODES
    789    ) is
    790    begin
    791 
    792       RESULT := RTEMS.SUCCESSFUL;
    793 
    794    end IO_READ;
    795 
    796    procedure IO_WRITE (
    797       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    798       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    799       ARGUMENT     : in     RTEMS.ADDRESS;
    800       RESULT       :    out RTEMS.STATUS_CODES
    801    ) is
    802    begin
    803 
    804       RESULT := RTEMS.SUCCESSFUL;
    805 
    806    end IO_WRITE;
    807 
    808    procedure IO_CONTROL (
    809       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    810       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    811       ARGUMENT     : in     RTEMS.ADDRESS;
    812       RESULT       :    out RTEMS.STATUS_CODES
    813    ) is
    814    begin
    815 
    816       RESULT := RTEMS.SUCCESSFUL;
    817 
    818    end IO_CONTROL;
    819 
    820725-- Fatal Error Manager
    821726
  • c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads

    rd14963b rba3e1a4f  
    1212-- 
    1313--
    14 --  COPYRIGHT (c) 1989-1997.
     14--  COPYRIGHT (c) 1989-2007.
    1515--  On-Line Applications Research Corporation (OAR).
    1616--
     
    2525
    2626package DUMMY_RTEMS is
    27 
    28 -- Initialization Manager
    29 
    30    procedure INITIALIZE_EXECUTIVE (
    31       CONFIGURATION_TABLE   : in     RTEMS.CONFIGURATION_TABLE_POINTER;
    32       CPU_TABLE             : in     RTEMS.CPU_TABLE_POINTER
    33    );
    34 
    35    procedure SHUTDOWN_EXECUTIVE (
    36       RESULT : in     RTEMS.UNSIGNED32
    37    );
    3827
    3928-- Task Manager
     
    124113-- Interrupt Manager
    125114
    126    procedure INTERRUPT_CATCH (
    127       NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
    128       VECTOR          : in     RTEMS.VECTOR_NUMBER;
    129       OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
    130       RESULT          :    out RTEMS.STATUS_CODES
    131    );
     115--   procedure INTERRUPT_CATCH (
     116--      NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
     117--      VECTOR          : in     RTEMS.VECTOR_NUMBER;
     118--      OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
     119--      RESULT          :    out RTEMS.STATUS_CODES
     120--   );
    132121
    133122-- Clock Manager
     
    428417   );
    429418
    430 -- Input/Output Manager
    431 
    432    procedure IO_INITIALIZE (
    433       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    434       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    435       ARGUMENT     : in     RTEMS.ADDRESS;
    436       RESULT       :    out RTEMS.STATUS_CODES
    437    );
    438 
    439    procedure IO_OPEN (
    440       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    441       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    442       ARGUMENT     : in     RTEMS.ADDRESS;
    443       RESULT       :    out RTEMS.STATUS_CODES
    444    );
    445 
    446    procedure IO_CLOSE (
    447       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    448       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    449       ARGUMENT     : in     RTEMS.ADDRESS;
    450       RESULT       :    out RTEMS.STATUS_CODES
    451    );
    452 
    453    procedure IO_READ (
    454       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    455       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    456       ARGUMENT     : in     RTEMS.ADDRESS;
    457       RESULT       :    out RTEMS.STATUS_CODES
    458    );
    459 
    460    procedure IO_WRITE (
    461       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    462       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    463       ARGUMENT     : in     RTEMS.ADDRESS;
    464       RESULT       :    out RTEMS.STATUS_CODES
    465    );
    466 
    467    procedure IO_CONTROL (
    468       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
    469       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
    470       ARGUMENT     : in     RTEMS.ADDRESS;
    471       RESULT       :    out RTEMS.STATUS_CODES
    472    );
    473 
    474419-- Fatal Error Manager
    475420
  • c/src/ada-tests/tmtests/tmoverhd/tmtest.adb

    rd14963b rba3e1a4f  
    1111-- 
    1212--
    13 --  COPYRIGHT (c) 1989-1997.
     13--  COPYRIGHT (c) 1989-2007.
    1414--  On-Line Applications Research Corporation (OAR).
    1515--
     
    9393--
    9494
    95    procedure ISR_HANDLER (
    96       VECTOR : in     RTEMS.VECTOR_NUMBER
    97    ) is
    98    begin
    99 
    100       NULL;
    101 
    102    end ISR_HANDLER;
     95--   procedure ISR_HANDLER (
     96--      VECTOR : in     RTEMS.VECTOR_NUMBER
     97--   ) is
     98--   begin
     99--
     100--      NULL;
     101--
     102--   end ISR_HANDLER;
    103103
    104104--PAGE
     
    120120--  TASK_1
    121121--
    122 
    123    CPU_TABLE      : aliased RTEMS.CPU_TABLE;
    124122
    125123   procedure TASK_1 (
     
    163161      ERROR := 0;
    164162     
    165 -- INITIALIZE_EXECUTIVE
    166 
    167       TIMER_DRIVER.INITIALIZE;
    168          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    169          loop
    170             DUMMY_RTEMS.INITIALIZE_EXECUTIVE(
    171                RTEMS.CONFIGURATION,
    172                CPU_TABLE'ACCESS
    173             );
    174          end loop;
    175       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    176 
    177       TIME_TEST_SUPPORT.PUT_TIME(
    178          "INITIALIZE_EXECUTIVE",
    179          TMTEST.END_TIME,
    180          TIME_TEST_SUPPORT.OPERATION_COUNT,
    181          OVERHEAD,
    182          0
    183       );
    184 
    185 -- SHUTDOWN_EXECUTIVE
    186 
    187       TIMER_DRIVER.INITIALIZE;
    188          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    189          loop
    190             DUMMY_RTEMS.SHUTDOWN_EXECUTIVE( ERROR );
    191          end loop;
    192       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    193 
    194       TIME_TEST_SUPPORT.PUT_TIME(
    195          "SHUTDOWN_EXECUTIVE",
    196          TMTEST.END_TIME,
    197          TIME_TEST_SUPPORT.OPERATION_COUNT,
    198          OVERHEAD,
    199          0
    200       );
    201 
    202163-- TASK_CREATE
    203164
     
    456417-- INTERRUPT_CATCH
    457418
    458       TIMER_DRIVER.INITIALIZE;
    459          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    460          loop
    461             DUMMY_RTEMS.INTERRUPT_CATCH(
    462                TMTEST.ISR_HANDLER'ADDRESS, 
    463                RTEMS.VECTOR_NUMBER'FIRST,
    464                ADDRESS_1,
    465                STATUS
    466             );
    467          end loop;
    468       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    469 
    470       TIME_TEST_SUPPORT.PUT_TIME(
    471          "INTERRUPT_CATCH",
    472          TMTEST.END_TIME,
    473          TIME_TEST_SUPPORT.OPERATION_COUNT,
    474          OVERHEAD,
    475          0
    476       );
     419--      TIMER_DRIVER.INITIALIZE;
     420--         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
     421--         loop
     422--            DUMMY_RTEMS.INTERRUPT_CATCH(
     423--               TMTEST.ISR_HANDLER'ADDRESS, 
     424--               RTEMS.VECTOR_NUMBER'FIRST,
     425--               ADDRESS_1,
     426--               STATUS
     427--            );
     428--         end loop;
     429--      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
     430--
     431--      TIME_TEST_SUPPORT.PUT_TIME(
     432--         "INTERRUPT_CATCH",
     433--         TMTEST.END_TIME,
     434--         TIME_TEST_SUPPORT.OPERATION_COUNT,
     435--         OVERHEAD,
     436--         0
     437--      );
    477438
    478439-- CLOCK_GET
     
    13131274TEST_SUPPORT.PAUSE;
    13141275
    1315 -- IO_INITIALIZE
    1316 
    1317       TIMER_DRIVER.INITIALIZE;
    1318          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    1319          loop
    1320             DUMMY_RTEMS.IO_INITIALIZE(
    1321                MAJOR,
    1322                MINOR,
    1323                ADDRESS_1,
    1324                STATUS
    1325             );
    1326          end loop;
    1327       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    1328 
    1329       TIME_TEST_SUPPORT.PUT_TIME(
    1330          "IO_INITIALIZE",
    1331          TMTEST.END_TIME,
    1332          TIME_TEST_SUPPORT.OPERATION_COUNT,
    1333          OVERHEAD,
    1334          0
    1335       );
    1336 
    1337 -- IO_OPEN
    1338 
    1339       TIMER_DRIVER.INITIALIZE;
    1340          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    1341          loop
    1342             DUMMY_RTEMS.IO_OPEN(
    1343                MAJOR,
    1344                MINOR,
    1345                ADDRESS_1,
    1346                STATUS
    1347             );
    1348          end loop;
    1349       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    1350 
    1351       TIME_TEST_SUPPORT.PUT_TIME(
    1352          "IO_OPEN",
    1353          TMTEST.END_TIME,
    1354          TIME_TEST_SUPPORT.OPERATION_COUNT,
    1355          OVERHEAD,
    1356          0
    1357       );
    1358 
    1359 -- IO_CLOSE
    1360 
    1361       TIMER_DRIVER.INITIALIZE;
    1362          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    1363          loop
    1364             DUMMY_RTEMS.IO_CLOSE(
    1365                MAJOR,
    1366                MINOR,
    1367                ADDRESS_1,
    1368                STATUS
    1369             );
    1370          end loop;
    1371       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    1372 
    1373       TIME_TEST_SUPPORT.PUT_TIME(
    1374          "IO_CLOSE",
    1375          TMTEST.END_TIME,
    1376          TIME_TEST_SUPPORT.OPERATION_COUNT,
    1377          OVERHEAD,
    1378          0
    1379       );
    1380 
    1381 -- IO_READ
    1382 
    1383       TIMER_DRIVER.INITIALIZE;
    1384          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    1385          loop
    1386             DUMMY_RTEMS.IO_READ(
    1387                MAJOR,
    1388                MINOR,
    1389                ADDRESS_1,
    1390                STATUS
    1391             );
    1392          end loop;
    1393       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    1394 
    1395       TIME_TEST_SUPPORT.PUT_TIME(
    1396          "IO_READ",
    1397          TMTEST.END_TIME,
    1398          TIME_TEST_SUPPORT.OPERATION_COUNT,
    1399          OVERHEAD,
    1400          0
    1401       );
    1402 
    1403 -- IO_WRITE
    1404 
    1405       TIMER_DRIVER.INITIALIZE;
    1406          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    1407          loop
    1408             DUMMY_RTEMS.IO_WRITE(
    1409                MAJOR,
    1410                MINOR,
    1411                ADDRESS_1,
    1412                STATUS
    1413             );
    1414          end loop;
    1415       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    1416 
    1417       TIME_TEST_SUPPORT.PUT_TIME(
    1418          "IO_WRITE",
    1419          TMTEST.END_TIME,
    1420          TIME_TEST_SUPPORT.OPERATION_COUNT,
    1421          OVERHEAD,
    1422          0
    1423       );
    1424 
    1425 -- IO_CONTROL
    1426 
    1427       TIMER_DRIVER.INITIALIZE;
    1428          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    1429          loop
    1430             DUMMY_RTEMS.IO_CONTROL(
    1431                MAJOR,
    1432                MINOR,
    1433                ADDRESS_1,
    1434                STATUS
    1435             );
    1436          end loop;
    1437       TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    1438 
    1439       TIME_TEST_SUPPORT.PUT_TIME(
    1440          "IO_CONTROL",
    1441          TMTEST.END_TIME,
    1442          TIME_TEST_SUPPORT.OPERATION_COUNT,
    1443          OVERHEAD,
    1444          0
    1445       );
    1446 
    14471276-- FATAL_ERROR_OCCURRED
    14481277
  • c/src/ada-tests/tmtests/tmoverhd/tmtest.ads

    rd14963b rba3e1a4f  
    122122--
    123123
    124    procedure ISR_HANDLER (
    125       VECTOR : in     RTEMS.VECTOR_NUMBER
    126    );
     124--   procedure ISR_HANDLER (
     125--      VECTOR : in     RTEMS.VECTOR_NUMBER
     126--   );
    127127
    128128--
Note: See TracChangeset for help on using the changeset viewer.