Changeset e17ffea in rtems for c/src/ada-tests/tmtests/tm09


Ignore:
Timestamp:
Jun 3, 1997, 10:06:49 PM (24 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
688ecaa0
Parents:
bc35a6ef
Message:

Changed to variable length messages.

Location:
c/src/ada-tests/tmtests/tm09
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/tmtests/tm09/tmtest.adb

    rbc35a6ef re17ffea  
    8181            1,
    8282            TIME_TEST_SUPPORT.OPERATION_COUNT,
     83            16,
    8384            RTEMS.DEFAULT_OPTIONS,
    8485            TMTEST.QUEUE_ID,
     
    134135      ITERATIONS        : RTEMS.UNSIGNED32;
    135136      LOOP_COUNT        : RTEMS.UNSIGNED32;
    136       BUFFER            : RTEMS.BUFFER;
    137       BUFFER_POINTER    : RTEMS.BUFFER_POINTER;
     137      BUFFER            : TMTEST.BUFFER;
     138      BUFFER_POINTER    : RTEMS.ADDRESS;
     139      MESSAGE_SIZE      : RTEMS.UNSIGNED32;
    138140      STATUS            : RTEMS.STATUS_CODES;
    139141   begin
     
    150152      EMPTY_FLUSH_COUNT := 0;
    151153
    152       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     154      BUFFER_POINTER := BUFFER'ADDRESS;
    153155
    154156      for ITERATIONS in 1 .. TIME_TEST_SUPPORT.ITERATION_COUNT
     
    182184                  TMTEST.QUEUE_ID,
    183185                  BUFFER_POINTER,
     186                  16,
    184187                  STATUS
    185188               );
     
    195198                  RTEMS.DEFAULT_OPTIONS,
    196199                  RTEMS.NO_TIMEOUT,
     200                  MESSAGE_SIZE,
    197201                  STATUS
    198202               );
     
    206210                  TMTEST.QUEUE_ID,
    207211                  BUFFER_POINTER,
     212                  16,
    208213                  STATUS
    209214               );
     
    219224                  RTEMS.DEFAULT_OPTIONS,
    220225                  RTEMS.NO_TIMEOUT,
     226                  MESSAGE_SIZE,
    221227                  STATUS
    222228               );
     
    236242            TMTEST.QUEUE_ID,
    237243            BUFFER_POINTER,
     244            16,
    238245            STATUS
    239246         );
  • c/src/ada-tests/tmtests/tm09/tmtest.ads

    rbc35a6ef re17ffea  
    2626
    2727package TMTEST is
     28
     29--
     30--  Buffer Record similar to that used by RTEMS 3.2.1.  Using this
     31--  avoids changes to the test.
     32--
     33
     34   type BUFFER is
     35      record
     36         FIELD1 : RTEMS.UNSIGNED32;   -- TEMPORARY UNTIL VARIABLE LENGTH
     37         FIELD2 : RTEMS.UNSIGNED32;
     38         FIELD3 : RTEMS.UNSIGNED32;
     39         FIELD4 : RTEMS.UNSIGNED32;
     40      end record;
    2841
    2942--
Note: See TracChangeset for help on using the changeset viewer.