diff options
Diffstat (limited to 'c/src/ada-tests/support/integer.inc')
-rw-r--r-- | c/src/ada-tests/support/integer.inc | 145 |
1 files changed, 0 insertions, 145 deletions
diff --git a/c/src/ada-tests/support/integer.inc b/c/src/ada-tests/support/integer.inc deleted file mode 100644 index b7be26e8b6..0000000000 --- a/c/src/ada-tests/support/integer.inc +++ /dev/null @@ -1,145 +0,0 @@ --- --- integer.inc --- --- Macros to produce a large number of LOCAL integer variables. This --- preprocessing is necessary to insure that the variables are --- scoped properly and to avoid duplicating hundreds of lines --- of code. --- --- COPYRIGHT (c) 1989-1997. --- On-Line Applications Research Corporation (OAR). --- Copyright assigned to U.S. Government, 1994. --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.OARcorp.com/rtems/license.html. --- --- $Id$ - --- --- private definitions for macro use --- - --- macro usage INTEGER_CHECK_ONE( value, base, factor ) -define(`INTEGER_CHECK_ONE',` - if $1 /= ($2 + $3) then - UNSIGNED32_IO.PUT( TASK_INDEX ); - TEXT_IO.PUT( ": $1 wrong -- (" ); - UNSIGNED32_IO.PUT( $1, BASE => 16); - TEXT_IO.PUT( " not " ); - UNSIGNED32_IO.PUT( $2, BASE => 16 ); - TEXT_IO.PUT_LINE( ")" ); - end if -' -) - --- macro usage INTEGER_DECLARE -define(`INTEGER_DECLARE', ` - INT01 : RTEMS.UNSIGNED32 := 1; - INT02 : RTEMS.UNSIGNED32 := 2; - INT03 : RTEMS.UNSIGNED32 := 3; - INT04 : RTEMS.UNSIGNED32 := 4; - INT05 : RTEMS.UNSIGNED32 := 5; - INT06 : RTEMS.UNSIGNED32 := 6; - INT07 : RTEMS.UNSIGNED32 := 7; - INT08 : RTEMS.UNSIGNED32 := 8; - INT09 : RTEMS.UNSIGNED32 := 9; - INT10 : RTEMS.UNSIGNED32 := 10; - INT11 : RTEMS.UNSIGNED32 := 11; - INT12 : RTEMS.UNSIGNED32 := 12; - INT13 : RTEMS.UNSIGNED32 := 13; - INT14 : RTEMS.UNSIGNED32 := 14; - INT15 : RTEMS.UNSIGNED32 := 15; - INT16 : RTEMS.UNSIGNED32 := 16; - INT17 : RTEMS.UNSIGNED32 := 17; - INT18 : RTEMS.UNSIGNED32 := 18; - INT19 : RTEMS.UNSIGNED32 := 19; - INT20 : RTEMS.UNSIGNED32 := 20; - INT21 : RTEMS.UNSIGNED32 := 21; - INT22 : RTEMS.UNSIGNED32 := 22; - INT23 : RTEMS.UNSIGNED32 := 23; - INT24 : RTEMS.UNSIGNED32 := 24; - INT25 : RTEMS.UNSIGNED32 := 25; - INT26 : RTEMS.UNSIGNED32 := 26; - INT27 : RTEMS.UNSIGNED32 := 27; - INT28 : RTEMS.UNSIGNED32 := 28; - INT29 : RTEMS.UNSIGNED32 := 29; - INT30 : RTEMS.UNSIGNED32 := 30; - INT31 : RTEMS.UNSIGNED32 := 31; - INT32 : RTEMS.UNSIGNED32 := 32 -' -) - - --- macro usage INTEGER_LOAD( factor ) -define(`INTEGER_LOAD',` - INT01 := INT01 + $1; - INT02 := INT02 + $1; - INT03 := INT03 + $1; - INT04 := INT04 + $1; - INT05 := INT05 + $1; - INT06 := INT06 + $1; - INT07 := INT07 + $1; - INT08 := INT08 + $1; - INT09 := INT09 + $1; - INT10 := INT10 + $1; - INT11 := INT11 + $1; - INT12 := INT12 + $1; - INT13 := INT13 + $1; - INT14 := INT14 + $1; - INT15 := INT15 + $1; - INT16 := INT16 + $1; - INT17 := INT17 + $1; - INT18 := INT18 + $1; - INT19 := INT19 + $1; - INT20 := INT20 + $1; - INT21 := INT21 + $1; - INT22 := INT22 + $1; - INT23 := INT23 + $1; - INT24 := INT24 + $1; - INT25 := INT25 + $1; - INT26 := INT26 + $1; - INT27 := INT27 + $1; - INT28 := INT28 + $1; - INT29 := INT29 + $1; - INT30 := INT30 + $1; - INT31 := INT31 + $1; - INT32 := INT32 + $1 -') - --- macro usage INTEGER_CHECK( factor ) -define(`INTEGER_CHECK',` - INTEGER_CHECK_ONE( INT01, 1, $1 ); - INTEGER_CHECK_ONE( INT02, 2, $1 ); - INTEGER_CHECK_ONE( INT03, 3, $1 ); - INTEGER_CHECK_ONE( INT04, 4, $1 ); - INTEGER_CHECK_ONE( INT05, 5, $1 ); - INTEGER_CHECK_ONE( INT06, 6, $1 ); - INTEGER_CHECK_ONE( INT07, 7, $1 ); - INTEGER_CHECK_ONE( INT08, 8, $1 ); - INTEGER_CHECK_ONE( INT09, 9, $1 ); - INTEGER_CHECK_ONE( INT10, 10, $1 ); - INTEGER_CHECK_ONE( INT11, 11, $1 ); - INTEGER_CHECK_ONE( INT12, 12, $1 ); - INTEGER_CHECK_ONE( INT13, 13, $1 ); - INTEGER_CHECK_ONE( INT14, 14, $1 ); - INTEGER_CHECK_ONE( INT15, 15, $1 ); - INTEGER_CHECK_ONE( INT16, 16, $1 ); - INTEGER_CHECK_ONE( INT17, 17, $1 ); - INTEGER_CHECK_ONE( INT18, 18, $1 ); - INTEGER_CHECK_ONE( INT19, 19, $1 ); - INTEGER_CHECK_ONE( INT20, 20, $1 ); - INTEGER_CHECK_ONE( INT21, 21, $1 ); - INTEGER_CHECK_ONE( INT22, 22, $1 ); - INTEGER_CHECK_ONE( INT23, 23, $1 ); - INTEGER_CHECK_ONE( INT24, 24, $1 ); - INTEGER_CHECK_ONE( INT25, 25, $1 ); - INTEGER_CHECK_ONE( INT26, 26, $1 ); - INTEGER_CHECK_ONE( INT27, 27, $1 ); - INTEGER_CHECK_ONE( INT28, 28, $1 ); - INTEGER_CHECK_ONE( INT29, 29, $1 ); - INTEGER_CHECK_ONE( INT30, 30, $1 ); - INTEGER_CHECK_ONE( INT31, 31, $1 ); - INTEGER_CHECK_ONE( INT32, 32, $1 ) -' -) |