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


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
Files:
17 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--

  • 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--

  • c/src/ada-tests/tmtests/tm11/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      );
    … …  
    136138            TMTEST.QUEUE_ID,
    137139            BUFFER_POINTER,
     140            16,
    138141            STATUS
    139142         );
    … …  
    149152      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    150153   ) is
    151       BUFFER         : RTEMS.BUFFER;
    152       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     154      BUFFER         : TMTEST.BUFFER;
     155      BUFFER_POINTER : RTEMS.ADDRESS;
     156      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    153157      STATUS         : RTEMS.STATUS_CODES;
    154158   begin
    155159
    156       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     160      BUFFER_POINTER := BUFFER'ADDRESS;
    157161
    158162      RTEMS.MESSAGE_QUEUE_RECEIVE(
    … …  
    161165         RTEMS.DEFAULT_OPTIONS,
    162166         RTEMS.NO_TIMEOUT,
     167         MESSAGE_SIZE,
    163168         STATUS
    164169      );
    … …  
    186191      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    187192   ) is
    188       BUFFER         : RTEMS.BUFFER;
    189       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     193      BUFFER         : TMTEST.BUFFER;
     194      BUFFER_POINTER : RTEMS.ADDRESS;
     195      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    190196      STATUS         : RTEMS.STATUS_CODES;
    191197   begin
    192198 
    193       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     199      BUFFER_POINTER := BUFFER'ADDRESS;
    194200
    195201      RTEMS.MESSAGE_QUEUE_RECEIVE(
    … …  
    198204         RTEMS.DEFAULT_OPTIONS,
    199205         RTEMS.NO_TIMEOUT,
     206         MESSAGE_SIZE,
    200207         STATUS
    201208      );
    … …  
    204211         TMTEST.QUEUE_ID,
    205212         BUFFER_POINTER,
     213         16,
    206214         STATUS
    207215      );

  • c/src/ada-tests/tmtests/tm11/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--

  • 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--

  • 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      );

  • c/src/ada-tests/tmtests/tm13/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--

  • c/src/ada-tests/tmtests/tm14/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(
    … …  
    131131         TMTEST.QUEUE_ID,
    132132         BUFFER_POINTER,
     133         16,
    133134         STATUS
    134135      );
    … …  
    144145      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    145146   ) is
    146       BUFFER         : RTEMS.BUFFER;
    147       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     147      BUFFER         : TMTEST.BUFFER;
     148      BUFFER_POINTER : RTEMS.ADDRESS;
    148149      OVERHEAD       : RTEMS.UNSIGNED32;
    149150      STATUS         : RTEMS.STATUS_CODES;
    150151   begin
    151152
    152       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     153      BUFFER_POINTER := BUFFER'ADDRESS;
    153154
    154155      TIMER_DRIVER.INITIALIZE;
    … …  
    165166            TMTEST.QUEUE_ID,
    166167            BUFFER_POINTER,
     168            16,
    167169            STATUS
    168170         );
    … …  
    192194      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    193195   ) is
    194       BUFFER         : RTEMS.BUFFER;
    195       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     196      BUFFER         : TMTEST.BUFFER;
     197      BUFFER_POINTER : RTEMS.ADDRESS;
     198      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    196199      STATUS         : RTEMS.STATUS_CODES;
    197200   begin
    198201 
    199       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     202      BUFFER_POINTER := BUFFER'ADDRESS;
    200203
    201204      RTEMS.MESSAGE_QUEUE_RECEIVE(
    … …  
    204207         RTEMS.DEFAULT_OPTIONS,
    205208         RTEMS.NO_TIMEOUT,
     209         MESSAGE_SIZE,
    206210         STATUS
    207211      );

  • c/src/ada-tests/tmtests/tm14/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--

  • c/src/ada-tests/tmtests/tm22/tmtest.adb

    rbc35a6ef re17ffea  
    9797      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    9898   ) is
    99       BUFFER         : RTEMS.BUFFER;
    100       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     99      BUFFER         : TMTEST.BUFFER;
     100      BUFFER_POINTER : RTEMS.ADDRESS;
    101101      COUNT          : RTEMS.UNSIGNED32;
    102102      STATUS         : RTEMS.STATUS_CODES;
    103103   begin
    104104
    105       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     105      BUFFER_POINTER := BUFFER'ADDRESS;
    106106
    107107      TIMER_DRIVER.INITIALIZE;
    … …  
    109109            TMTEST.MESSAGE_QUEUE_ID,
    110110            BUFFER_POINTER,
     111            16,
    111112            COUNT,
    112113            STATUS
    … …  
    136137   ) is
    137138      ID             : RTEMS.ID;
    138       BUFFER         : RTEMS.BUFFER;
    139       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     139      BUFFER         : TMTEST.BUFFER;
     140      BUFFER_POINTER : RTEMS.ADDRESS;
    140141      INDEX          : RTEMS.UNSIGNED32;
    141142      OVERHEAD       : RTEMS.UNSIGNED32;
    142143      COUNT          : RTEMS.UNSIGNED32;
     144      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    143145      STATUS         : RTEMS.STATUS_CODES;
    144146   begin
    145147
    146       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     148      BUFFER_POINTER := BUFFER'ADDRESS;
    147149
    148150      RTEMS.TASK_CREATE(
    … …  
    165167         RTEMS.DEFAULT_MODES,
    166168         RTEMS.NO_TIMEOUT,
     169         MESSAGE_SIZE,
    167170         STATUS
    168171      );
    … …  
    181184               TMTEST.MESSAGE_QUEUE_ID,
    182185               BUFFER_POINTER,
     186               16,
    183187               COUNT,
    184188               STATUS
    … …  
    200204         RTEMS.DEFAULT_MODES,
    201205         RTEMS.NO_TIMEOUT,
     206         MESSAGE_SIZE,
    202207         STATUS
    203208      );
    … …  
    227232      ARGUMENT : in     RTEMS.TASK_ARGUMENT
    228233   ) is
    229       BUFFER         : RTEMS.BUFFER;
    230       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     234      BUFFER         : TMTEST.BUFFER;
     235      BUFFER_POINTER : RTEMS.ADDRESS;
    231236      COUNT          : RTEMS.UNSIGNED32;
    232237      STATUS         : RTEMS.STATUS_CODES;
    233238   begin
    234239
    235       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     240      BUFFER_POINTER := BUFFER'ADDRESS;
    236241
    237242      TIMER_DRIVER.INITIALIZE;
    … …  
    239244            TMTEST.MESSAGE_QUEUE_ID,
    240245            BUFFER_POINTER,
     246            16,
    241247            COUNT,
    242248            STATUS

  • c/src/ada-tests/tmtests/tm22/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--

  • c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb

    rbc35a6ef re17ffea  
    428428   procedure MESSAGE_QUEUE_SEND (
    429429      ID     : in     RTEMS.ID;
    430       BUFFER : in     RTEMS.BUFFER_POINTER;
     430      BUFFER : in     RTEMS.ADDRESS;
     431      Size   : in     RTEMS.Unsigned32;
    431432      RESULT :    out RTEMS.STATUS_CODES
    432433   ) is
    … …  
    439440   procedure MESSAGE_QUEUE_URGENT (
    440441      ID     : in     RTEMS.ID;
    441       BUFFER : in     RTEMS.BUFFER_POINTER;
     442      BUFFER : in     RTEMS.ADDRESS;
     443      Size   : in     RTEMS.Unsigned32;
    442444      RESULT :    out RTEMS.STATUS_CODES
    443445   ) is
    … …  
    450452   procedure MESSAGE_QUEUE_BROADCAST (
    451453      ID     : in     RTEMS.ID;
    452       BUFFER : in     RTEMS.BUFFER_POINTER;
     454      BUFFER : in     RTEMS.ADDRESS;
     455      Size   : in     RTEMS.Unsigned32;
    453456      COUNT  :    out RTEMS.UNSIGNED32;
    454457      RESULT :    out RTEMS.STATUS_CODES
    … …  
    462465   procedure MESSAGE_QUEUE_RECEIVE (
    463466      ID         : in     RTEMS.ID;
    464       BUFFER     : in     RTEMS.BUFFER_POINTER;
     467      BUFFER     : in     RTEMS.ADDRESS;
    465468      OPTION_SET : in     RTEMS.OPTION;
    466469      TIMEOUT    : in     RTEMS.INTERVAL;
     470      Size       :    out RTEMS.Unsigned32;
    467471      RESULT     :    out RTEMS.STATUS_CODES
    468472   ) is

  • c/src/ada-tests/tmtests/tmoverhd/tmtest.adb

    rbc35a6ef re17ffea  
    143143      ADDRESS_1      : RTEMS.ADDRESS;
    144144      EVENTS         : RTEMS.SIGNAL_SET;
    145       BUFFER         : RTEMS.BUFFER;
    146       BUFFER_POINTER : RTEMS.BUFFER_POINTER;
     145      BUFFER         : TMTEST.BUFFER;
     146      BUFFER_POINTER : RTEMS.ADDRESS;
     147      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
    147148      COUNT          : RTEMS.UNSIGNED32;
    148149      MAJOR          : RTEMS.DEVICE_MAJOR_NUMBER;
    … …  
    155156      NAME := RTEMS.BUILD_NAME(  'N', 'A', 'M', 'E' );
    156157
    157       BUFFER_POINTER := RTEMS.TO_BUFFER_POINTER( BUFFER'ADDRESS );
     158      BUFFER_POINTER := BUFFER'ADDRESS;
    158159     
    159160-- INITIALIZE_EXECUTIVE
    … …  
    822823         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    823824         loop
    824             DUMMY_RTEMS.MESSAGE_QUEUE_SEND( ID, BUFFER_POINTER, STATUS );
     825            DUMMY_RTEMS.MESSAGE_QUEUE_SEND( ID, BUFFER_POINTER, 16, STATUS );
    825826         end loop;
    826827      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    … …  
    839840         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
    840841         loop
    841             DUMMY_RTEMS.MESSAGE_QUEUE_URGENT( ID, BUFFER_POINTER, STATUS );
     842            DUMMY_RTEMS.MESSAGE_QUEUE_URGENT( ID, BUFFER_POINTER, 16, STATUS );
    842843         end loop;
    843844      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
    … …  
    859860               ID,
    860861               BUFFER_POINTER,
     862               16,
    861863               COUNT,
    862864               STATUS
    … …  
    883885               RTEMS.DEFAULT_OPTIONS,
    884886               TIMEOUT,
     887               MESSAGE_SIZE,
    885888               STATUS
    886889            );

  • c/src/ada-tests/tmtests/tmoverhd/tmtest.ads

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