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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/tmtests/tm13/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;
     87      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    8788      STATUS         : RTEMS.STATUS_CODES;
    8889   begin
    8990
    90       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     91      BUFFER_POINTER := BUFFER'ADDRESS;
    9192
    9293-- As each task is started, it preempts this task and performs a blocking
     
    99100         RTEMS.DEFAULT_OPTIONS,
    100101         TMTEST.QUEUE_ID,
     102         MESSAGE_SIZE,
    101103         STATUS
    102104      );
     
    135137         TMTEST.QUEUE_ID,
    136138         BUFFER_POINTER,
     139         16,
    137140         STATUS
    138141      );
     
    148151      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    149152   ) is
    150       BUFFER         : RTEMS.BUFFER;
    151       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     153      BUFFER         : TMTEST.BUFFER;
     154      BUFFER_POINTER : RTEMS.ADDRESS;
     155      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    152156      STATUS         : RTEMS.STATUS_CODES;
    153157   begin
    154158
    155       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     159      BUFFER_POINTER := BUFFER'ADDRESS;
    156160
    157161      RTEMS.MESSAGE_QUEUE_RECEIVE(
     
    160164         RTEMS.DEFAULT_OPTIONS,
    161165         RTEMS.NO_TIMEOUT,
     166         MESSAGE_SIZE,
    162167         STATUS
    163168      );
     
    184189      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    185190   ) is
    186       BUFFER         : RTEMS.BUFFER;
    187       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     191      BUFFER         : TMTEST.BUFFER;
     192      BUFFER_POINTER : RTEMS.ADDRESS;
     193      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    188194      STATUS         : RTEMS.STATUS_CODES;
    189195   begin
    190196 
    191       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     197      BUFFER_POINTER := BUFFER'ADDRESS;
    192198
    193199      RTEMS.MESSAGE_QUEUE_RECEIVE(
     
    196202         RTEMS.DEFAULT_OPTIONS,
    197203         RTEMS.NO_TIMEOUT,
     204         MESSAGE_SIZE,
    198205         STATUS
    199206      );
     
    202209         TMTEST.QUEUE_ID,
    203210         BUFFER_POINTER,
     211         16,
    204212         STATUS
    205213      );
Note: See TracChangeset for help on using the changeset viewer.