[dc300df] | 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 | ) |
---|