source: rtems/c/src/ada-tests/support/integer.inc @ 948a069

Last change on this file since 948a069 was f6bcc8f, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 4, 2003 at 1:25:16 PM

2003-09-04 Joel Sherrill <joel@…>

  • samples/base_sp/base_sp.adb, samples/base_sp/config.h, samples/base_sp/sptest.adb, samples/base_sp/sptest.ads, samples/hello/config.h, samples/hello/hello.adb, samples/hello/sptest.adb, samples/hello/sptest.ads, samples/ticker/config.h, samples/ticker/sptest.adb, samples/ticker/sptest.ads, samples/ticker/ticker.adb, sptests/sp01/config.h, sptests/sp01/sp01.adb, sptests/sp01/sptest.adb, sptests/sp01/sptest.ads, sptests/sp02/config.h, sptests/sp02/sp02.adb, sptests/sp02/sptest.adb, sptests/sp02/sptest.ads, sptests/sp03/config.h, sptests/sp03/sp03.adb, sptests/sp03/sptest.adb, sptests/sp03/sptest.ads, sptests/sp04/config.h, sptests/sp04/sp04.adb, sptests/sp04/sptest.adb, sptests/sp04/sptest.ads, sptests/sp05/config.h, sptests/sp05/sp05.adb, sptests/sp05/sptest.adb, sptests/sp05/sptest.ads, sptests/sp06/config.h, sptests/sp06/sp06.adb, sptests/sp06/sptest.adb, sptests/sp06/sptest.ads, sptests/sp07/config.h, sptests/sp07/sp07.adb, sptests/sp07/sptest.adb, sptests/sp07/sptest.ads, sptests/sp08/config.h, sptests/sp08/sp08.adb, sptests/sp08/sptest.adb, sptests/sp08/sptest.ads, sptests/sp09/config.h, sptests/sp09/sp09.adb, sptests/sp09/sptest.adb, sptests/sp09/sptest.ads, sptests/sp11/config.h, sptests/sp11/sp11.adb, sptests/sp11/sptest.adb, sptests/sp11/sptest.ads, sptests/sp12/config.h, sptests/sp12/sp12.adb, sptests/sp12/sptest.adb, sptests/sp12/sptest.ads, sptests/sp13/config.h, sptests/sp13/sp13.adb, sptests/sp13/sptest.adb, sptests/sp13/sptest.ads, sptests/sp14/config.h, sptests/sp14/sp14.adb, sptests/sp14/sptest.adb, sptests/sp14/sptest.ads, sptests/sp15/config.h, sptests/sp15/sp15.adb, sptests/sp15/sptest.adb, sptests/sp15/sptest.ads, sptests/sp16/config.h, sptests/sp16/sp16.adb, sptests/sp16/sptest.adb, sptests/sp16/sptest.ads, sptests/sp17/config.h, sptests/sp17/sp17.adb, sptests/sp17/sptest.adb, sptests/sp17/sptest.ads, sptests/sp19/config.h, sptests/sp19/sp19.adb, sptests/sp19/sptest.adp, sptests/sp19/sptest.ads, sptests/sp20/config.h, sptests/sp20/sp20.adb, sptests/sp20/sptest.adb, sptests/sp20/sptest.ads, sptests/sp21/config.h, sptests/sp21/sp21.adb, sptests/sp21/sptest.adb, sptests/sp21/sptest.ads, sptests/sp22/config.h, sptests/sp22/sp22.adb, sptests/sp22/sptest.adb, sptests/sp22/sptest.ads, sptests/sp23/config.h, sptests/sp23/sp23.adb, sptests/sp23/sptest.adb, sptests/sp23/sptest.ads, sptests/sp24/config.h, sptests/sp24/sp24.adb, sptests/sp24/sptest.adb, sptests/sp24/sptest.ads, sptests/sp25/config.h, sptests/sp25/sp25.adb, sptests/sp25/sptest.adb, sptests/sp25/sptest.ads, sptests/spsize/spsize.adb, sptests/spsize/sptest.adb, sptests/spsize/sptest.ads, support/address_io.adb, support/address_io.ads, support/float_io.ads, support/fp.inc, support/init.c, support/integer.inc, support/rtems_calling_overhead.ads, support/status_io.ads, support/test_support.adb, support/test_support.ads, support/time_test_support.adb, support/time_test_support.ads, support/timer_driver.adb, support/timer_driver.ads, support/unsigned32_io.ads, tmtests/tm01/config.h, tmtests/tm01/tm01.adb, tmtests/tm01/tmtest.adb, tmtests/tm01/tmtest.ads, tmtests/tm02/config.h, tmtests/tm02/tm02.adb, tmtests/tm02/tmtest.adb, tmtests/tm02/tmtest.ads, tmtests/tm03/config.h, tmtests/tm03/tm03.adb, tmtests/tm03/tmtest.adb, tmtests/tm03/tmtest.ads, tmtests/tm04/config.h, tmtests/tm04/tm04.adb, tmtests/tm04/tmtest.adb, tmtests/tm04/tmtest.ads, tmtests/tm05/config.h, tmtests/tm05/tm05.adb, tmtests/tm05/tmtest.adb, tmtests/tm05/tmtest.ads, tmtests/tm06/config.h, tmtests/tm06/tm06.adb, tmtests/tm06/tmtest.adb, tmtests/tm06/tmtest.ads, tmtests/tm07/config.h, tmtests/tm07/tm07.adb, tmtests/tm07/tmtest.adb, tmtests/tm07/tmtest.ads, tmtests/tm08/config.h, tmtests/tm08/tm08.adb, tmtests/tm08/tmtest.adb, tmtests/tm08/tmtest.ads, tmtests/tm09/config.h, tmtests/tm09/tm09.adb, tmtests/tm09/tmtest.adb, tmtests/tm09/tmtest.ads, tmtests/tm10/config.h, tmtests/tm10/tm10.adb, tmtests/tm10/tmtest.adb, tmtests/tm10/tmtest.ads, tmtests/tm11/config.h, tmtests/tm11/tm11.adb, tmtests/tm11/tmtest.adb, tmtests/tm11/tmtest.ads, tmtests/tm12/config.h, tmtests/tm12/tm12.adb, tmtests/tm12/tmtest.adb, tmtests/tm12/tmtest.ads, tmtests/tm13/config.h, tmtests/tm13/tm13.adb, tmtests/tm13/tmtest.adb, tmtests/tm13/tmtest.ads, tmtests/tm14/config.h, tmtests/tm14/tm14.adb, tmtests/tm14/tmtest.adb, tmtests/tm14/tmtest.ads, tmtests/tm15/config.h, tmtests/tm15/tm15.adb, tmtests/tm15/tmtest.adb, tmtests/tm15/tmtest.ads, tmtests/tm16/config.h, tmtests/tm16/tm16.adb, tmtests/tm16/tmtest.adb, tmtests/tm16/tmtest.ads, tmtests/tm17/config.h, tmtests/tm17/tm17.adb, tmtests/tm17/tmtest.adb, tmtests/tm17/tmtest.ads, tmtests/tm18/config.h, tmtests/tm18/tm18.adb, tmtests/tm18/tmtest.adb, tmtests/tm18/tmtest.ads, tmtests/tm19/config.h, tmtests/tm19/tm19.adb, tmtests/tm19/tmtest.adb, tmtests/tm19/tmtest.ads, tmtests/tm20/config.h, tmtests/tm20/tm20.adb, tmtests/tm20/tmtest.adb, tmtests/tm20/tmtest.ads, tmtests/tm21/config.h, tmtests/tm21/tm21.adb, tmtests/tm21/tmtest.adb, tmtests/tm21/tmtest.ads, tmtests/tm22/config.h, tmtests/tm22/tm22.adb, tmtests/tm22/tmtest.adb, tmtests/tm22/tmtest.ads, tmtests/tm23/config.h, tmtests/tm23/tm23.adb, tmtests/tm23/tmtest.adb, tmtests/tm23/tmtest.ads, tmtests/tm24/config.h, tmtests/tm24/tm24.adb, tmtests/tm24/tmtest.adb, tmtests/tm24/tmtest.ads, tmtests/tm25/config.h, tmtests/tm25/tm25.adb, tmtests/tm25/tmtest.adb, tmtests/tm25/tmtest.ads, tmtests/tm28/config.h, tmtests/tm28/tm28.adb, tmtests/tm28/tmtest.adb, tmtests/tm28/tmtest.ads, tmtests/tm29/config.h, tmtests/tm29/tm29.adb, tmtests/tm29/tmtest.adb, tmtests/tm29/tmtest.ads, tmtests/tmck/config.h, tmtests/tmck/tmck.adb, tmtests/tmck/tmtest.adb, tmtests/tmck/tmtest.ads, tmtests/tmoverhd/config.h, tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/dummy_rtems.ads, tmtests/tmoverhd/tmoverhd.adb, tmtests/tmoverhd/tmtest.adb, tmtests/tmoverhd/tmtest.ads: Removed incorrect statement about copyright assignment.
  • 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.OARcorp.com/rtems/license.html.
15--
16--  $Id$
17
18--
19-- private definitions for macro use
20--
21
22-- macro usage INTEGER_CHECK_ONE( value, base, factor )
23define(`INTEGER_CHECK_ONE',`
24  if $1 /= ($2 + $3) then
25     UNSIGNED32_IO.PUT( TASK_INDEX );
26     TEXT_IO.PUT( ": $1 wrong -- (" );
27     UNSIGNED32_IO.PUT( $1, BASE => 16);
28     TEXT_IO.PUT( " not " );
29     UNSIGNED32_IO.PUT( $2, BASE => 16 );
30     TEXT_IO.PUT_LINE( ")" );
31  end if
32'
33)
34
35-- macro usage INTEGER_DECLARE
36define(`INTEGER_DECLARE', `
37  INT01 : RTEMS.UNSIGNED32 :=  1;
38  INT02 : RTEMS.UNSIGNED32 :=  2;
39  INT03 : RTEMS.UNSIGNED32 :=  3;
40  INT04 : RTEMS.UNSIGNED32 :=  4;
41  INT05 : RTEMS.UNSIGNED32 :=  5;
42  INT06 : RTEMS.UNSIGNED32 :=  6;
43  INT07 : RTEMS.UNSIGNED32 :=  7;
44  INT08 : RTEMS.UNSIGNED32 :=  8;
45  INT09 : RTEMS.UNSIGNED32 :=  9;
46  INT10 : RTEMS.UNSIGNED32 := 10;
47  INT11 : RTEMS.UNSIGNED32 := 11;
48  INT12 : RTEMS.UNSIGNED32 := 12;
49  INT13 : RTEMS.UNSIGNED32 := 13;
50  INT14 : RTEMS.UNSIGNED32 := 14;
51  INT15 : RTEMS.UNSIGNED32 := 15;
52  INT16 : RTEMS.UNSIGNED32 := 16;
53  INT17 : RTEMS.UNSIGNED32 := 17;
54  INT18 : RTEMS.UNSIGNED32 := 18;
55  INT19 : RTEMS.UNSIGNED32 := 19;
56  INT20 : RTEMS.UNSIGNED32 := 20;
57  INT21 : RTEMS.UNSIGNED32 := 21;
58  INT22 : RTEMS.UNSIGNED32 := 22;
59  INT23 : RTEMS.UNSIGNED32 := 23;
60  INT24 : RTEMS.UNSIGNED32 := 24;
61  INT25 : RTEMS.UNSIGNED32 := 25;
62  INT26 : RTEMS.UNSIGNED32 := 26;
63  INT27 : RTEMS.UNSIGNED32 := 27;
64  INT28 : RTEMS.UNSIGNED32 := 28;
65  INT29 : RTEMS.UNSIGNED32 := 29;
66  INT30 : RTEMS.UNSIGNED32 := 30;
67  INT31 : RTEMS.UNSIGNED32 := 31;
68  INT32 : RTEMS.UNSIGNED32 := 32
69'
70)
71
72
73-- macro usage INTEGER_LOAD( factor )
74define(`INTEGER_LOAD',`
75  INT01 := INT01 + $1;
76  INT02 := INT02 + $1;
77  INT03 := INT03 + $1;
78  INT04 := INT04 + $1;
79  INT05 := INT05 + $1;
80  INT06 := INT06 + $1;
81  INT07 := INT07 + $1;
82  INT08 := INT08 + $1;
83  INT09 := INT09 + $1;
84  INT10 := INT10 + $1;
85  INT11 := INT11 + $1;
86  INT12 := INT12 + $1;
87  INT13 := INT13 + $1;
88  INT14 := INT14 + $1;
89  INT15 := INT15 + $1;
90  INT16 := INT16 + $1;
91  INT17 := INT17 + $1;
92  INT18 := INT18 + $1;
93  INT19 := INT19 + $1;
94  INT20 := INT20 + $1;
95  INT21 := INT21 + $1;
96  INT22 := INT22 + $1;
97  INT23 := INT23 + $1;
98  INT24 := INT24 + $1;
99  INT25 := INT25 + $1;
100  INT26 := INT26 + $1;
101  INT27 := INT27 + $1;
102  INT28 := INT28 + $1;
103  INT29 := INT29 + $1;
104  INT30 := INT30 + $1;
105  INT31 := INT31 + $1;
106  INT32 := INT32 + $1
107')
108
109-- macro usage INTEGER_CHECK( factor )
110define(`INTEGER_CHECK',`
111  INTEGER_CHECK_ONE( INT01,  1, $1 );
112  INTEGER_CHECK_ONE( INT02,  2, $1 );
113  INTEGER_CHECK_ONE( INT03,  3, $1 );
114  INTEGER_CHECK_ONE( INT04,  4, $1 );
115  INTEGER_CHECK_ONE( INT05,  5, $1 );
116  INTEGER_CHECK_ONE( INT06,  6, $1 );
117  INTEGER_CHECK_ONE( INT07,  7, $1 );
118  INTEGER_CHECK_ONE( INT08,  8, $1 );
119  INTEGER_CHECK_ONE( INT09,  9, $1 );
120  INTEGER_CHECK_ONE( INT10, 10, $1 );
121  INTEGER_CHECK_ONE( INT11, 11, $1 );
122  INTEGER_CHECK_ONE( INT12, 12, $1 );
123  INTEGER_CHECK_ONE( INT13, 13, $1 );
124  INTEGER_CHECK_ONE( INT14, 14, $1 );
125  INTEGER_CHECK_ONE( INT15, 15, $1 );
126  INTEGER_CHECK_ONE( INT16, 16, $1 );
127  INTEGER_CHECK_ONE( INT17, 17, $1 );
128  INTEGER_CHECK_ONE( INT18, 18, $1 );
129  INTEGER_CHECK_ONE( INT19, 19, $1 );
130  INTEGER_CHECK_ONE( INT20, 20, $1 );
131  INTEGER_CHECK_ONE( INT21, 21, $1 );
132  INTEGER_CHECK_ONE( INT22, 22, $1 );
133  INTEGER_CHECK_ONE( INT23, 23, $1 );
134  INTEGER_CHECK_ONE( INT24, 24, $1 );
135  INTEGER_CHECK_ONE( INT25, 25, $1 );
136  INTEGER_CHECK_ONE( INT26, 26, $1 );
137  INTEGER_CHECK_ONE( INT27, 27, $1 );
138  INTEGER_CHECK_ONE( INT28, 28, $1 );
139  INTEGER_CHECK_ONE( INT29, 29, $1 );
140  INTEGER_CHECK_ONE( INT30, 30, $1 );
141  INTEGER_CHECK_ONE( INT31, 31, $1 );
142  INTEGER_CHECK_ONE( INT32, 32, $1 )
143'
144)
Note: See TracBrowser for help on using the repository browser.