source: rtems/testsuites/ada/support/integer.inc @ 48aa4b5d

Last change on this file since 48aa4b5d was ee537ea, checked in by Sebastian Huber <sebastian.huber@…>, on Oct 12, 2017 at 8:00:10 AM

ada-tests: Move to testsuites/ada

This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.

Close #3079.

  • Property mode set to 100644
File size: 4.0 KB
Line 
1--
2--  integer.inc
3--
4--  Macros to produce a large number of LOCAL integer variables.  This
5--  preprocessing is necessary to insure that the variables are
6--  scoped properly and to avoid duplicating hundreds of lines
7--  of code.
8--
9--  COPYRIGHT (c) 1989-1997.
10--  On-Line Applications Research Corporation (OAR).
11--
12--  The license and distribution terms for this file may in
13--  the file LICENSE in this distribution or at
14--  http://www.rtems.org/license/LICENSE.
15
16--
17-- private definitions for macro use
18--
19
20-- macro usage INTEGER_CHECK_ONE( value, base, factor )
21define(`INTEGER_CHECK_ONE',`
22  if $1 /= ($2 + $3) then
23     UNSIGNED32_IO.PUT( TASK_INDEX );
24     TEXT_IO.PUT( ": $1 wrong -- (" );
25     UNSIGNED32_IO.PUT( $1, BASE => 16);
26     TEXT_IO.PUT( " not " );
27     UNSIGNED32_IO.PUT( $2, BASE => 16 );
28     TEXT_IO.PUT_LINE( ")" );
29  end if
30'
31)
32
33-- macro usage INTEGER_DECLARE
34define(`INTEGER_DECLARE', `
35  INT01 : RTEMS.UNSIGNED32 :=  1;
36  INT02 : RTEMS.UNSIGNED32 :=  2;
37  INT03 : RTEMS.UNSIGNED32 :=  3;
38  INT04 : RTEMS.UNSIGNED32 :=  4;
39  INT05 : RTEMS.UNSIGNED32 :=  5;
40  INT06 : RTEMS.UNSIGNED32 :=  6;
41  INT07 : RTEMS.UNSIGNED32 :=  7;
42  INT08 : RTEMS.UNSIGNED32 :=  8;
43  INT09 : RTEMS.UNSIGNED32 :=  9;
44  INT10 : RTEMS.UNSIGNED32 := 10;
45  INT11 : RTEMS.UNSIGNED32 := 11;
46  INT12 : RTEMS.UNSIGNED32 := 12;
47  INT13 : RTEMS.UNSIGNED32 := 13;
48  INT14 : RTEMS.UNSIGNED32 := 14;
49  INT15 : RTEMS.UNSIGNED32 := 15;
50  INT16 : RTEMS.UNSIGNED32 := 16;
51  INT17 : RTEMS.UNSIGNED32 := 17;
52  INT18 : RTEMS.UNSIGNED32 := 18;
53  INT19 : RTEMS.UNSIGNED32 := 19;
54  INT20 : RTEMS.UNSIGNED32 := 20;
55  INT21 : RTEMS.UNSIGNED32 := 21;
56  INT22 : RTEMS.UNSIGNED32 := 22;
57  INT23 : RTEMS.UNSIGNED32 := 23;
58  INT24 : RTEMS.UNSIGNED32 := 24;
59  INT25 : RTEMS.UNSIGNED32 := 25;
60  INT26 : RTEMS.UNSIGNED32 := 26;
61  INT27 : RTEMS.UNSIGNED32 := 27;
62  INT28 : RTEMS.UNSIGNED32 := 28;
63  INT29 : RTEMS.UNSIGNED32 := 29;
64  INT30 : RTEMS.UNSIGNED32 := 30;
65  INT31 : RTEMS.UNSIGNED32 := 31;
66  INT32 : RTEMS.UNSIGNED32 := 32
67'
68)
69
70
71-- macro usage INTEGER_LOAD( factor )
72define(`INTEGER_LOAD',`
73  INT01 := INT01 + $1;
74  INT02 := INT02 + $1;
75  INT03 := INT03 + $1;
76  INT04 := INT04 + $1;
77  INT05 := INT05 + $1;
78  INT06 := INT06 + $1;
79  INT07 := INT07 + $1;
80  INT08 := INT08 + $1;
81  INT09 := INT09 + $1;
82  INT10 := INT10 + $1;
83  INT11 := INT11 + $1;
84  INT12 := INT12 + $1;
85  INT13 := INT13 + $1;
86  INT14 := INT14 + $1;
87  INT15 := INT15 + $1;
88  INT16 := INT16 + $1;
89  INT17 := INT17 + $1;
90  INT18 := INT18 + $1;
91  INT19 := INT19 + $1;
92  INT20 := INT20 + $1;
93  INT21 := INT21 + $1;
94  INT22 := INT22 + $1;
95  INT23 := INT23 + $1;
96  INT24 := INT24 + $1;
97  INT25 := INT25 + $1;
98  INT26 := INT26 + $1;
99  INT27 := INT27 + $1;
100  INT28 := INT28 + $1;
101  INT29 := INT29 + $1;
102  INT30 := INT30 + $1;
103  INT31 := INT31 + $1;
104  INT32 := INT32 + $1
105')
106
107-- macro usage INTEGER_CHECK( factor )
108define(`INTEGER_CHECK',`
109  INTEGER_CHECK_ONE( INT01,  1, $1 );
110  INTEGER_CHECK_ONE( INT02,  2, $1 );
111  INTEGER_CHECK_ONE( INT03,  3, $1 );
112  INTEGER_CHECK_ONE( INT04,  4, $1 );
113  INTEGER_CHECK_ONE( INT05,  5, $1 );
114  INTEGER_CHECK_ONE( INT06,  6, $1 );
115  INTEGER_CHECK_ONE( INT07,  7, $1 );
116  INTEGER_CHECK_ONE( INT08,  8, $1 );
117  INTEGER_CHECK_ONE( INT09,  9, $1 );
118  INTEGER_CHECK_ONE( INT10, 10, $1 );
119  INTEGER_CHECK_ONE( INT11, 11, $1 );
120  INTEGER_CHECK_ONE( INT12, 12, $1 );
121  INTEGER_CHECK_ONE( INT13, 13, $1 );
122  INTEGER_CHECK_ONE( INT14, 14, $1 );
123  INTEGER_CHECK_ONE( INT15, 15, $1 );
124  INTEGER_CHECK_ONE( INT16, 16, $1 );
125  INTEGER_CHECK_ONE( INT17, 17, $1 );
126  INTEGER_CHECK_ONE( INT18, 18, $1 );
127  INTEGER_CHECK_ONE( INT19, 19, $1 );
128  INTEGER_CHECK_ONE( INT20, 20, $1 );
129  INTEGER_CHECK_ONE( INT21, 21, $1 );
130  INTEGER_CHECK_ONE( INT22, 22, $1 );
131  INTEGER_CHECK_ONE( INT23, 23, $1 );
132  INTEGER_CHECK_ONE( INT24, 24, $1 );
133  INTEGER_CHECK_ONE( INT25, 25, $1 );
134  INTEGER_CHECK_ONE( INT26, 26, $1 );
135  INTEGER_CHECK_ONE( INT27, 27, $1 );
136  INTEGER_CHECK_ONE( INT28, 28, $1 );
137  INTEGER_CHECK_ONE( INT29, 29, $1 );
138  INTEGER_CHECK_ONE( INT30, 30, $1 );
139  INTEGER_CHECK_ONE( INT31, 31, $1 );
140  INTEGER_CHECK_ONE( INT32, 32, $1 )
141'
142)
Note: See TracBrowser for help on using the repository browser.