source: rtems/c/src/ada-tests/tmtests/tmck/tmtest.adb @ fff840e

4.104.114.84.95
Last change on this file since fff840e 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.8 KB
Line 
1--
2--  TMTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation of Timer Check Test 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 TIMER_DRIVER;
25with INTERFACES; use INTERFACES;
26with RTEMS;
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      STATUS : RTEMS.STATUS_CODES;
43   begin
44
45      TEXT_IO.NEW_LINE( 2 );
46      TEXT_IO.PUT_LINE( "*** TIME TEST CHECK ***" );
47
48      TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE );
49
50      TMTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
51
52      RTEMS.TASK_CREATE( 
53         TMTEST.TASK_NAME( 1 ), 
54         1, 
55         2048, 
56         RTEMS.DEFAULT_MODES,
57         RTEMS.DEFAULT_ATTRIBUTES,
58         TMTEST.TASK_ID( 1 ),
59         STATUS
60      );
61      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
62
63      RTEMS.TASK_START(
64         TMTEST.TASK_ID( 1 ),
65         TMTEST.TASK_1'ACCESS,
66         0,
67         STATUS
68      );
69      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
70
71      RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
72      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
73
74   end INIT;
75
76--PAGE
77--
78--  TASK_1
79--
80
81   procedure TASK_1 (
82      ARGUMENT : in     RTEMS.TASK_ARGUMENT
83   ) is
84      INDEX                    : RTEMS.UNSIGNED32;
85   begin
86
87      TMTEST.CHECK_READ_TIMER;
88
89TEST_SUPPORT.PAUSE;
90
91      TIMER_DRIVER.INITIALIZE;
92      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
93      TIME_TEST_SUPPORT.PUT_TIME( 
94         "NULL timer stopped at", 
95         TMTEST.END_TIME, 
96         1, 
97         0,
98         0
99      );
100
101      TIMER_DRIVER.INITIALIZE;
102         for INDEX in 0 .. 1000
103         loop
104            TIMER_DRIVER.EMPTY_FUNCTION;
105         end loop;
106      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
107      TIME_TEST_SUPPORT.PUT_TIME( 
108         "LOOP (1000) timer stopped at", 
109         TMTEST.END_TIME, 
110         1, 
111         0,
112         0
113      );
114
115      TIMER_DRIVER.INITIALIZE;
116         for INDEX in 0 .. 10000
117         loop
118            TIMER_DRIVER.EMPTY_FUNCTION;
119         end loop;
120      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
121      TIME_TEST_SUPPORT.PUT_TIME( 
122         "LOOP (10000) timer stopped at", 
123         TMTEST.END_TIME, 
124         1, 
125         0,
126         0
127      );
128
129      TIMER_DRIVER.INITIALIZE;
130         for INDEX in 0 .. 50000
131         loop
132            TIMER_DRIVER.EMPTY_FUNCTION;
133         end loop;
134      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
135      TIME_TEST_SUPPORT.PUT_TIME( 
136         "LOOP (50000) timer stopped at", 
137         TMTEST.END_TIME, 
138         1, 
139         0,
140         0
141      );
142
143      TIMER_DRIVER.INITIALIZE;
144         for INDEX in 0 .. 100000
145         loop
146            TIMER_DRIVER.EMPTY_FUNCTION;
147         end loop;
148      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
149      TIME_TEST_SUPPORT.PUT_TIME( 
150         "LOOP (100000) timer stopped at", 
151         TMTEST.END_TIME, 
152         1, 
153         0,
154         0
155      );
156
157      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
158   
159   end TASK_1;
160
161--PAGE
162--
163--  CHECK_READ_TIMER
164--
165
166   procedure CHECK_READ_TIMER 
167   is
168      INDEX : RTEMS.UNSIGNED32;
169      TIME  : RTEMS.UNSIGNED32;
170   begin
171
172      for INDEX in TMTEST.DISTRIBUTION'FIRST .. TMTEST.DISTRIBUTION'LAST
173      loop
174          TMTEST.DISTRIBUTION( INDEX ) := 0;
175      end loop;
176
177      for INDEX in 1 .. TMTEST.OPERATION_COUNT
178      loop
179
180         loop
181            TIMER_DRIVER.INITIALIZE;
182            TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
183     
184            exit when 
185               TMTEST.END_TIME <= RTEMS.UNSIGNED32( TMTEST.DISTRIBUTION'LAST );
186
187            TEXT_IO.PUT( "TOO LONG (" );
188            UNSIGNED32_IO.PUT( TMTEST.END_TIME );
189            TEXT_IO.PUT_LINE( ")!!!" );
190         end loop;
191
192         TMTEST.DISTRIBUTION( TMTEST.END_TIME ) :=
193             TMTEST.DISTRIBUTION( TMTEST.END_TIME ) + 1;
194
195      end loop;
196
197      TEXT_IO.PUT_LINE( 
198         "Units may not be in microseconds for this test!!!"
199      );
200
201      TIME := 0;
202
203      for INDEX in TMTEST.DISTRIBUTION'FIRST .. TMTEST.DISTRIBUTION'LAST
204      loop
205         if TMTEST.DISTRIBUTION( INDEX ) /= 0 then
206            TIME := TIME + (TMTEST.DISTRIBUTION( INDEX ) * INDEX);
207            UNSIGNED32_IO.PUT( INDEX );
208            TEXT_IO.PUT( " " );
209            UNSIGNED32_IO.PUT( TMTEST.DISTRIBUTION( INDEX ) );
210            TEXT_IO.NEW_LINE;
211         end if;
212      end loop;
213
214      TEXT_IO.PUT( "Total time = " );
215      UNSIGNED32_IO.PUT( TIME );
216      TEXT_IO.NEW_LINE;
217
218   end CHECK_READ_TIMER;
219
220end TMTEST;
Note: See TracBrowser for help on using the repository browser.