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


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/tm12
Files:
2 edited

Legend:

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

    rbc35a6ef re17ffea  
    8383      PRIORITY       : RTEMS.TASK_PRIORITY;
    8484      TASK_ID        : RTEMS.ID;
    85       BUFFER         : RTEMS.BUFFER;
    86       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     85      BUFFER         : TMTEST.BUFFER;
     86      BUFFER_POINTER : RTEMS.ADDRESS;
    8787      STATUS         : RTEMS.STATUS_CODES;
    8888   begin
    8989
    90       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     90      BUFFER_POINTER := BUFFER'ADDRESS;
    9191
    9292      RTEMS.MESSAGE_QUEUE_CREATE(
     
    138138      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    139139   ) is
    140       BUFFER         : RTEMS.BUFFER;
    141       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     140      BUFFER         : TMTEST.BUFFER;
     141      BUFFER_POINTER : RTEMS.ADDRESS;
    142142      INDEX          : RTEMS.UNSIGNED32;
    143143      OVERHEAD       : RTEMS.UNSIGNED32;
     
    145145   begin
    146146
    147       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     147      BUFFER_POINTER := BUFFER'ADDRESS;
    148148
    149149      TIMER_DRIVER.INITIALIZE;
     
    160160            TMTEST.QUEUE_ID,
    161161            BUFFER_POINTER,
     162            16,
    162163            STATUS
    163164         );
     
    188189      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    189190   ) is
    190       BUFFER         : RTEMS.BUFFER;
    191       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     191      BUFFER         : TMTEST.BUFFER;
     192      BUFFER_POINTER : RTEMS.ADDRESS;
     193      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    192194      STATUS         : RTEMS.STATUS_CODES;
    193195   begin
    194196 
    195       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     197      BUFFER_POINTER := BUFFER'ADDRESS;
    196198
    197199      RTEMS.MESSAGE_QUEUE_RECEIVE(
     
    200202         RTEMS.DEFAULT_OPTIONS,
    201203         RTEMS.NO_TIMEOUT,
     204         MESSAGE_SIZE,
    202205         STATUS
    203206      );
  • c/src/ada-tests/tmtests/tm12/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.