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


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/tm10
Files:
2 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      );
  • c/src/ada-tests/tmtests/tm10/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.