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/tm10/tmtest.adb

    rbc35a6ef re17ffea  
    6565      OVERHEAD       : RTEMS.UNSIGNED32;
    6666      TASK_ID        : RTEMS.ID;
    67       BUFFER         : RTEMS.BUFFER;
    68       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     67      BUFFER         : TMTEST.BUFFER;
     68      BUFFER_POINTER : RTEMS.ADDRESS;
     69      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    6970      STATUS         : RTEMS.STATUS_CODES;
    7071   begin
    7172
    72       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     73      BUFFER_POINTER := BUFFER'ADDRESS;
    7374
    7475      PRIORITY := 5;
     
    126127               RTEMS.NO_WAIT,
    127128               RTEMS.NO_TIMEOUT,
     129               MESSAGE_SIZE,
    128130               STATUS
    129131            );
     
    148150      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    149151   ) is
    150       BUFFER         : RTEMS.BUFFER;
    151       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     152      BUFFER         : TMTEST.BUFFER;
     153      BUFFER_POINTER : RTEMS.ADDRESS;
     154      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    152155      STATUS         : RTEMS.STATUS_CODES;
    153156   begin
    154157
    155       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     158      BUFFER_POINTER := BUFFER'ADDRESS;
    156159
    157160      TIMER_DRIVER.INITIALIZE;
     
    162165         RTEMS.DEFAULT_OPTIONS,
    163166         RTEMS.NO_TIMEOUT,
     167         MESSAGE_SIZE,
    164168         STATUS
    165169      );
     
    175179      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    176180   ) is
    177       BUFFER         : RTEMS.BUFFER;
    178       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     181      BUFFER         : TMTEST.BUFFER;
     182      BUFFER_POINTER : RTEMS.ADDRESS;
     183      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    179184      STATUS         : RTEMS.STATUS_CODES;
    180185   begin
    181186 
    182       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     187      BUFFER_POINTER := BUFFER'ADDRESS;
    183188
    184189      RTEMS.MESSAGE_QUEUE_RECEIVE(
     
    187192         RTEMS.DEFAULT_OPTIONS,
    188193         RTEMS.NO_TIMEOUT,
     194         MESSAGE_SIZE,
    189195         STATUS
    190196      );
Note: See TracChangeset for help on using the changeset viewer.