source: rtems/c/src/ada-tests/sptests/spsize/sptest.ads @ bf9ae83

4.104.114.84.95
Last change on this file since bf9ae83 was bf9ae83, checked in by Joel Sherrill <joel.sherrill@…>, on 06/02/97 at 20:32:11

modified copyright notice to be the same as RTEMS 4.0.0.

changed the CVS ID string to be a "development" version.

  • Property mode set to 100644
File size: 3.1 KB
Line 
1--
2--  SPTEST / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package is the specification for Test 1 of the RTEMS
7--  Single Processor Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-1997.
14--  On-Line Applications Research Corporation (OAR).
15--  Copyright assigned to U.S. Government, 1994.
16--
17--  The license and distribution terms for this file may in
18--  the file LICENSE in this distribution or at
19--  http://www.OARcorp.com/rtems/license.html.
20--
21--  $Id$
22--
23
24with CLOCK_DRIVER;
25with RTEMS;
26
27package SPTEST is
28
29--
30--  INIT
31--
32--  DESCRIPTION:
33--
34--  This RTEMS task initializes the application.
35--
36
37   procedure INIT (
38      ARGUMENT : in     RTEMS.TASK_ARGUMENT
39   );
40
41--
42--  PUT_SIZE
43--
44--  DESCRIPTION:
45--
46--  This procedure outputs the size information about the specified
47--  object in a standard format.
48--
49
50   procedure PUT_SIZE (
51      DESCRIPTION    : in     STRING;
52      HAS_FIELD_NAME : in     BOOLEAN;
53      FIELD_NAME     : in     STRING             := "";
54      REQUIREMENT    : in     RTEMS.UNSIGNED32   := 0
55   );
56
57--
58--  This is the Driver Address Table for this test.
59--
60
61   DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
62   (1=>
63      (
64        CLOCK_DRIVER.INITIALIZE'ACCESS,              -- Initialization
65        RTEMS.NO_DRIVER_ENTRY,                       -- Open
66        RTEMS.NO_DRIVER_ENTRY,                       -- Close
67        RTEMS.NO_DRIVER_ENTRY,                       -- Read
68        RTEMS.NO_DRIVER_ENTRY,                       -- Write
69        RTEMS.NO_DRIVER_ENTRY                        -- Control
70      )
71   );
72
73--
74--  This is the Initialization Tasks Table for this test.
75--
76
77   INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
78   (1=>
79     (
80       RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
81       2048,                                          -- stack size
82       1,                                             -- priority
83       RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
84       SPTEST.INIT'ACCESS,                            -- entry point
85       RTEMS.NO_PREEMPT,                              -- initial mode
86       0                                              -- argument list
87     )
88   );
89
90--
91--  This is the Configuration Table for this test.
92--
93
94   CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
95      RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
96      64 * 1024,                 -- executive RAM size
97      10,                        -- maximum # tasks
98      0,                         -- maximum # timers
99      0,                         -- maximum # semaphores
100      0,                         -- maximum # message queues
101      0,                         -- maximum # messages
102      0,                         -- maximum # partitions
103      0,                         -- maximum # regions
104      0,                         -- maximum # dp memory areas
105      0,                         -- maximum # periods
106      0,                         -- maximum # user extensions
107      RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
108      50                         -- # ticks in a timeslice
109  );
110
111end SPTEST;
Note: See TracBrowser for help on using the repository browser.