new file

1 files changed, 145 insertions, 0 deletions

diff --git a/c/src/ada-tests/support/integer.inc b/c/src/ada-tests/support/integer.inc
new file mode 100644
index 0000000000..b7be26e8b6
--- /dev/null
+++ b/c/src/ada-tests/support/integer.inc
@@ -0,0 +1,145 @@
+--
+--  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 )
+'
+)