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 ) |
---|
24 | define(`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 |
---|
37 | define(`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 ) |
---|
75 | define(`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 ) |
---|
111 | define(`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 | ) |
---|