source: rtems/c/src/ada-tests/support/integer.inc @ 1bce637

4.104.114.84.95
Last change on this file since 1bce637 was dc300df, checked in by Joel Sherrill <joel.sherrill@…>, on Jun 3, 1997 at 6:37:40 PM

new file

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