source: rtems/c/src/ada-tests/tmtests/tm28/tmtest.adb @ d0d73ec

4.104.114.84.95
Last change on this file since d0d73ec was bf9ae83, checked in by Joel Sherrill <joel.sherrill@…>, on Jun 2, 1997 at 8:32:11 PM

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: 4.3 KB
Line 
1--
2--  TMTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation of Test 28 of the RTEMS
7--  Timing 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 INTERFACES; use INTERFACES;
25with RTEMS;
26with RTEMS_CALLING_OVERHEAD;
27with TEST_SUPPORT;
28with TEXT_IO;
29with TIME_TEST_SUPPORT;
30with UNSIGNED32_IO;
31
32package body TMTEST is
33
34--PAGE
35--
36--  INIT
37--
38
39   procedure INIT (
40      ARGUMENT : in     RTEMS.TASK_ARGUMENT
41   ) is
42      TASK_ID : RTEMS.ID;
43      STATUS  : RTEMS.STATUS_CODES;
44   begin
45
46      TEXT_IO.NEW_LINE( 2 );
47      TEXT_IO.PUT_LINE( "*** TIME TEST 28 ***" );
48
49      RTEMS.TASK_CREATE( 
50         RTEMS.BUILD_NAME( 'T', 'E', 'S', 'T' ),
51         128, 
52         1024, 
53         RTEMS.DEFAULT_MODES,
54         RTEMS.DEFAULT_ATTRIBUTES,
55         TMTEST.TASK_ID( 1 ),
56         STATUS
57      );
58      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
59
60      RTEMS.TASK_START( 
61         TMTEST.TASK_ID( 1 ),
62         TMTEST.TEST_TASK'ACCESS, 
63         0, 
64         STATUS
65      );
66      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
67
68      RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
69      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
70
71   end INIT;
72
73--PAGE
74--
75--  TEST_TASK
76--
77
78   procedure TEST_TASK (
79      ARGUMENT : in     RTEMS.TASK_ARGUMENT
80   ) is
81      NAME      : RTEMS.NAME;
82      OVERHEAD  : RTEMS.UNSIGNED32;
83      CONVERTED : RTEMS.ADDRESS;
84      STATUS    : RTEMS.STATUS_CODES;
85   begin
86
87      TIMER_DRIVER.INITIALIZE;
88         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
89         loop
90            TIMER_DRIVER.EMPTY_FUNCTION;
91         end loop;
92      OVERHEAD := TIMER_DRIVER.READ_TIMER;
93
94      NAME := RTEMS.BUILD_NAME( 'P', 'O', 'R', 'T' );
95      TIMER_DRIVER.INITIALIZE;
96         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
97         loop
98            RTEMS.PORT_CREATE(
99               NAME,
100               TMTEST.INTERNAL_PORT_AREA'ADDRESS,
101               TMTEST.EXTERNAL_PORT_AREA'ADDRESS,
102               16#FF#,
103               TMTEST.PORT_ID( INDEX ),
104               STATUS
105            );
106         end loop;
107      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
108
109      TIME_TEST_SUPPORT.PUT_TIME( 
110         "PORT_CREATE",
111         TMTEST.END_TIME, 
112         TIME_TEST_SUPPORT.OPERATION_COUNT, 
113         OVERHEAD,
114         RTEMS_CALLING_OVERHEAD.PORT_CREATE
115      );
116 
117      TIMER_DRIVER.INITIALIZE;
118         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
119         loop
120            RTEMS.PORT_EXTERNAL_TO_INTERNAL(
121               TMTEST.PORT_ID( 1 ),
122               TMTEST.EXTERNAL_PORT_AREA( 16#F# )'ADDRESS,
123               CONVERTED,
124               STATUS
125            );
126         end loop;
127      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
128
129      TIME_TEST_SUPPORT.PUT_TIME( 
130         "PORT_EXTERNAL_TO_INTERNAL",
131         TMTEST.END_TIME, 
132         TIME_TEST_SUPPORT.OPERATION_COUNT, 
133         OVERHEAD,
134         RTEMS_CALLING_OVERHEAD.PORT_EXTERNAL_TO_INTERNAL
135      );
136 
137      TIMER_DRIVER.INITIALIZE;
138         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
139         loop
140            RTEMS.PORT_INTERNAL_TO_EXTERNAL(
141               TMTEST.PORT_ID( 1 ),
142               TMTEST.INTERNAL_PORT_AREA( 16#F# )'ADDRESS,
143               CONVERTED,
144               STATUS
145            );
146         end loop;
147      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
148
149      TIME_TEST_SUPPORT.PUT_TIME( 
150         "PORT_INTERNAL_TO_EXTERNAL",
151         TMTEST.END_TIME, 
152         TIME_TEST_SUPPORT.OPERATION_COUNT, 
153         OVERHEAD,
154         RTEMS_CALLING_OVERHEAD.PORT_INTERNAL_TO_EXTERNAL
155      );
156 
157      TIMER_DRIVER.INITIALIZE;
158         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
159         loop
160            RTEMS.PORT_DELETE( TMTEST.PORT_ID( INDEX ), STATUS );
161         end loop;
162      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
163
164      TIME_TEST_SUPPORT.PUT_TIME( 
165         "PORT_DELETE",
166         TMTEST.END_TIME, 
167         TIME_TEST_SUPPORT.OPERATION_COUNT, 
168         OVERHEAD,
169         RTEMS_CALLING_OVERHEAD.PORT_DELETE
170      );
171
172      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
173 
174   end TEST_TASK;
175
176end TMTEST;
Note: See TracBrowser for help on using the repository browser.