Changeset bc96f3b4 in rtems


Ignore:
Timestamp:
Jan 23, 2018, 8:53:06 AM (10 months ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
master
Children:
865b3027
Parents:
d8de6b9
git-author:
Sebastian Huber <sebastian.huber@…> (01/23/18 08:53:06)
git-committer:
Sebastian Huber <sebastian.huber@…> (01/29/18 05:58:28)
Message:

ada: Introduce RTEMS.Size type

Some time ago the Classic API object size related parameters were
changed to use size_t. Reflect this in the Ada bindings.

Update #3082.

Files:
27 edited

Legend:

Unmodified
Added
Removed
  • cpukit/include/adainclude/rtems-message_queue.adb

    rd8de6b9 rbc96f3b4  
    2828     (Name             : in RTEMS.Name;
    2929      Count            : in RTEMS.Unsigned32;
    30       Max_Message_Size : in RTEMS.Unsigned32;
     30      Max_Message_Size : in RTEMS.Size;
    3131      Attribute_Set    : in RTEMS.Attribute;
    3232      ID               : out RTEMS.ID;
     
    3737        (Name             : RTEMS.Name;
    3838         Count            : RTEMS.Unsigned32;
    39          Max_Message_Size : RTEMS.Unsigned32;
     39         Max_Message_Size : RTEMS.Size;
    4040         Attribute_Set    : RTEMS.Attribute;
    4141         ID               : access RTEMS.ID)
     
    102102     (ID     : in RTEMS.ID;
    103103      Buffer : in RTEMS.Address;
    104       Size   : in RTEMS.Unsigned32;
     104      Size   : in RTEMS.Size;
    105105      Result : out RTEMS.Status_Codes)
    106106   is
     
    108108        (ID     : RTEMS.ID;
    109109         Buffer : RTEMS.Address;
    110          Size   : RTEMS.Unsigned32)
     110         Size   : RTEMS.Size)
    111111         return   RTEMS.Status_Codes;
    112112      pragma Import (C, Send_Base, "rtems_message_queue_send");
     
    120120     (ID     : in RTEMS.ID;
    121121      Buffer : in RTEMS.Address;
    122       Size   : in RTEMS.Unsigned32;
     122      Size   : in RTEMS.Size;
    123123      Result : out RTEMS.Status_Codes)
    124124   is
     
    126126        (ID     : RTEMS.ID;
    127127         Buffer : RTEMS.Address;
    128          Size   : RTEMS.Unsigned32)
     128         Size   : RTEMS.Size)
    129129         return   RTEMS.Status_Codes;
    130130      pragma Import
     
    141141     (ID     : in RTEMS.ID;
    142142      Buffer : in RTEMS.Address;
    143       Size   : in RTEMS.Unsigned32;
     143      Size   : in RTEMS.Size;
    144144      Count  : out RTEMS.Unsigned32;
    145145      Result : out RTEMS.Status_Codes)
     
    148148        (ID     : RTEMS.ID;
    149149         Buffer : RTEMS.Address;
    150          Size   : RTEMS.Unsigned32;
     150         Size   : RTEMS.Size;
    151151         Count  : access RTEMS.Unsigned32)
    152152         return   RTEMS.Status_Codes;
     
    169169      Option_Set : in RTEMS.Option;
    170170      Timeout    : in RTEMS.Interval;
    171       Size       : in out RTEMS.Unsigned32;
     171      Size       : in out RTEMS.Size;
    172172      Result     : out RTEMS.Status_Codes)
    173173   is
     
    175175        (ID         : RTEMS.ID;
    176176         Buffer     : RTEMS.Address;
    177          Size       : access RTEMS.Unsigned32;
     177         Size       : access RTEMS.Size;
    178178         Option_Set : RTEMS.Option;
    179179         Timeout    : RTEMS.Interval)
     
    183183         Receive_Base,
    184184         "rtems_message_queue_receive");
    185       Size_Base : aliased RTEMS.Unsigned32;
     185      Size_Base : aliased RTEMS.Size;
    186186   begin
    187187
  • cpukit/include/adainclude/rtems-message_queue.ads

    rd8de6b9 rbc96f3b4  
    2929      Name             : in     RTEMS.Name;
    3030      Count            : in     RTEMS.Unsigned32;
    31       Max_Message_Size : in     RTEMS.Unsigned32;
     31      Max_Message_Size : in     RTEMS.Size;
    3232      Attribute_Set    : in     RTEMS.Attribute;
    3333      ID               :    out RTEMS.ID;
     
    5050      ID     : in     RTEMS.ID;
    5151      Buffer : in     RTEMS.Address;
    52       Size   : in     RTEMS.Unsigned32;
     52      Size   : in     RTEMS.Size;
    5353      Result :    out RTEMS.Status_Codes
    5454   );
     
    5757      ID     : in     RTEMS.ID;
    5858      Buffer : in     RTEMS.Address;
    59       Size   : in     RTEMS.Unsigned32;
     59      Size   : in     RTEMS.Size;
    6060      Result :    out RTEMS.Status_Codes
    6161   );
     
    6464      ID     : in     RTEMS.ID;
    6565      Buffer : in     RTEMS.Address;
    66       Size   : in     RTEMS.Unsigned32;
     66      Size   : in     RTEMS.Size;
    6767      Count  :    out RTEMS.Unsigned32;
    6868      Result :    out RTEMS.Status_Codes
     
    7474      Option_Set : in     RTEMS.Option;
    7575      Timeout    : in     RTEMS.Interval;
    76       Size       : in out RTEMS.Unsigned32;
     76      Size       : in out RTEMS.Size;
    7777      Result     :    out RTEMS.Status_Codes
    7878   );
  • cpukit/include/adainclude/rtems-partition.adb

    rd8de6b9 rbc96f3b4  
    2828     (Name             : in RTEMS.Name;
    2929      Starting_Address : in RTEMS.Address;
    30       Length           : in RTEMS.Unsigned32;
    31       Buffer_Size      : in RTEMS.Unsigned32;
     30      Length           : in RTEMS.Size;
     31      Buffer_Size      : in RTEMS.Size;
    3232      Attribute_Set    : in RTEMS.Attribute;
    3333      ID               : out RTEMS.ID;
     
    3737        (Name             : RTEMS.Name;
    3838         Starting_Address : RTEMS.Address;
    39          Length           : RTEMS.Unsigned32;
    40          Buffer_Size      : RTEMS.Unsigned32;
     39         Length           : RTEMS.Size;
     40         Buffer_Size      : RTEMS.Size;
    4141         Attribute_Set    : RTEMS.Attribute;
    4242         ID               : access RTEMS.Event_Set)
  • cpukit/include/adainclude/rtems-partition.ads

    rd8de6b9 rbc96f3b4  
    2929      Name             : in     RTEMS.Name;
    3030      Starting_Address : in     RTEMS.Address;
    31       Length           : in     RTEMS.Unsigned32;
    32       Buffer_Size      : in     RTEMS.Unsigned32;
     31      Length           : in     RTEMS.Size;
     32      Buffer_Size      : in     RTEMS.Size;
    3333      Attribute_Set    : in     RTEMS.Attribute;
    3434      ID               :    out RTEMS.ID;
  • cpukit/include/adainclude/rtems-region.adb

    rd8de6b9 rbc96f3b4  
    2828     (Name             : in RTEMS.Name;
    2929      Starting_Address : in RTEMS.Address;
    30       Length           : in RTEMS.Unsigned32;
    31       Page_Size        : in RTEMS.Unsigned32;
     30      Length           : in RTEMS.Size;
     31      Page_Size        : in RTEMS.Size;
    3232      Attribute_Set    : in RTEMS.Attribute;
    3333      ID               : out RTEMS.ID;
     
    3737        (Name             : RTEMS.Name;
    3838         Starting_Address : RTEMS.Address;
    39          Length           : RTEMS.Unsigned32;
    40          Page_Size        : RTEMS.Unsigned32;
     39         Length           : RTEMS.Size;
     40         Page_Size        : RTEMS.Size;
    4141         Attribute_Set    : RTEMS.Attribute;
    4242         ID               : access RTEMS.ID)
     
    9191     (ID               : in RTEMS.ID;
    9292      Starting_Address : in RTEMS.Address;
    93       Length           : in RTEMS.Unsigned32;
     93      Length           : in RTEMS.Size;
    9494      Result           : out RTEMS.Status_Codes)
    9595   is
     
    9797        (ID               : RTEMS.ID;
    9898         Starting_Address : RTEMS.Address;
    99          Length           : RTEMS.Unsigned32)
     99         Length           : RTEMS.Size)
    100100         return             RTEMS.Status_Codes;
    101101      pragma Import (C, Extend_Base, "rtems_region_extend");
     
    108108   procedure Get_Segment
    109109     (ID         : in RTEMS.ID;
    110       Size       : in RTEMS.Unsigned32;
     110      Size       : in RTEMS.Size;
    111111      Option_Set : in RTEMS.Option;
    112112      Timeout    : in RTEMS.Interval;
     
    116116      function Get_Segment_Base
    117117        (ID         : RTEMS.ID;
    118          Size       : RTEMS.Unsigned32;
     118         Size       : RTEMS.Size;
    119119         Option_Set : RTEMS.Option;
    120120         Timeout    : RTEMS.Interval;
     
    139139     (ID      : in RTEMS.ID;
    140140      Segment : in RTEMS.Address;
    141       Size    : out RTEMS.Unsigned32;
     141      Size    : out RTEMS.Size;
    142142      Result  : out RTEMS.Status_Codes)
    143143   is
     
    145145        (ID      : RTEMS.ID;
    146146         Segment : RTEMS.Address;
    147          Size    : access RTEMS.Unsigned32)
     147         Size    : access RTEMS.Size)
    148148         return    RTEMS.Status_Codes;
    149149      pragma Import
     
    151151         Get_Segment_Size_Base,
    152152         "rtems_region_get_segment_size");
    153       Size_Base : aliased RTEMS.Unsigned32;
     153      Size_Base : aliased RTEMS.Size;
    154154   begin
    155155
     
    181181     (ID       : in RTEMS.ID;
    182182      Segment  : in RTEMS.Address;
    183       Size     : in RTEMS.Unsigned32;
    184       Old_Size : out RTEMS.Unsigned32;
     183      Size     : in RTEMS.Size;
     184      Old_Size : out RTEMS.Size;
    185185      Result   : out RTEMS.Status_Codes)
    186186   is
     
    188188        (ID       : RTEMS.ID;
    189189         Segment  : RTEMS.Address;
    190          Size     : RTEMS.Unsigned32;
    191          Old_Size : access RTEMS.Unsigned32)
     190         Size     : RTEMS.Size;
     191         Old_Size : access RTEMS.Size)
    192192         return     RTEMS.Status_Codes;
    193193      pragma Import
     
    195195         Resize_Segment_Base,
    196196         "rtems_region_resize_segment");
    197       Old_Size_Base : aliased RTEMS.Unsigned32;
     197      Old_Size_Base : aliased RTEMS.Size;
    198198   begin
    199199
  • cpukit/include/adainclude/rtems-region.ads

    rd8de6b9 rbc96f3b4  
    2929      Name             : in     RTEMS.Name;
    3030      Starting_Address : in     RTEMS.Address;
    31       Length           : in     RTEMS.Unsigned32;
    32       Page_Size        : in     RTEMS.Unsigned32;
     31      Length           : in     RTEMS.Size;
     32      Page_Size        : in     RTEMS.Size;
    3333      Attribute_Set    : in     RTEMS.Attribute;
    3434      ID               :    out RTEMS.ID;
     
    5050      ID               : in     RTEMS.ID;
    5151      Starting_Address : in     RTEMS.Address;
    52       Length           : in     RTEMS.Unsigned32;
     52      Length           : in     RTEMS.Size;
    5353      Result           :    out RTEMS.Status_Codes
    5454   );
     
    5656   procedure Get_Segment (
    5757      ID         : in     RTEMS.ID;
    58       Size       : in     RTEMS.Unsigned32;
     58      Size       : in     RTEMS.Size;
    5959      Option_Set : in     RTEMS.Option;
    6060      Timeout    : in     RTEMS.Interval;
     
    6666      ID         : in     RTEMS.ID;
    6767      Segment    : in     RTEMS.Address;
    68       Size       :    out RTEMS.Unsigned32;
     68      Size       :    out RTEMS.Size;
    6969      Result     :    out RTEMS.Status_Codes
    7070   );
     
    7979      ID         : in     RTEMS.ID;
    8080      Segment    : in     RTEMS.Address;
    81       Size       : in     RTEMS.Unsigned32;
    82       Old_Size   :    out RTEMS.Unsigned32;
     81      Size       : in     RTEMS.Size;
     82      Old_Size   :    out RTEMS.Size;
    8383      Result     :    out RTEMS.Status_Codes
    8484   );
  • cpukit/include/adainclude/rtems-tasks.adb

    rd8de6b9 rbc96f3b4  
    2828     (Name             : in RTEMS.Name;
    2929      Initial_Priority : in Priority;
    30       Stack_Size       : in RTEMS.Unsigned32;
     30      Stack_Size       : in RTEMS.Size;
    3131      Initial_Modes    : in RTEMS.Mode;
    3232      Attribute_Set    : in RTEMS.Attribute;
     
    3737        (Name             : RTEMS.Name;
    3838         Initial_Priority : Priority;
    39          Stack_Size       : RTEMS.Unsigned32;
     39         Stack_Size       : RTEMS.Size;
    4040         Initial_Modes    : RTEMS.Mode;
    4141         Attribute_Set    : RTEMS.Attribute;
  • cpukit/include/adainclude/rtems-tasks.ads

    rd8de6b9 rbc96f3b4  
    4343      Name             : in     RTEMS.Name;
    4444      Initial_Priority : in     Priority;
    45       Stack_Size       : in     Unsigned32;
     45      Stack_Size       : in     RTEMS.Size;
    4646      Initial_Modes    : in     RTEMS.Mode;
    4747      Attribute_Set    : in     RTEMS.Attribute;
  • cpukit/include/adainclude/rtems-timer.adb

    rd8de6b9 rbc96f3b4  
    185185   procedure Initiate_Server
    186186     (Server_Priority : in RTEMS.Tasks.Priority;
    187       Stack_Size      : in RTEMS.Unsigned32;
     187      Stack_Size      : in RTEMS.Size;
    188188      Attribute_Set   : in RTEMS.Attribute;
    189189      Result          : out RTEMS.Status_Codes)
     
    191191      function Initiate_Server_Base
    192192        (Server_Priority : RTEMS.Tasks.Priority;
    193          Stack_Size      : RTEMS.Unsigned32;
     193         Stack_Size      : RTEMS.Size;
    194194         Attribute_Set   : RTEMS.Attribute)
    195195         return            RTEMS.Status_Codes;
  • cpukit/include/adainclude/rtems-timer.ads

    rd8de6b9 rbc96f3b4  
    9999   procedure Initiate_Server (
    100100      Server_Priority : in     RTEMS.Tasks.Priority;
    101       Stack_Size      : in     Unsigned32;
     101      Stack_Size      : in     RTEMS.Size;
    102102      Attribute_Set   : in     RTEMS.Attribute;
    103103      Result          :    out RTEMS.Status_Codes
  • cpukit/include/adainclude/rtems.adb

    rd8de6b9 rbc96f3b4  
    230230   end Shutdown_Executive;
    231231
     232   function Minimum_Stack_Size return RTEMS.Size is
     233      size : RTEMS.Unsigned32;
     234      pragma Import (C, size, "rtems_minimum_stack_size");
     235   begin
     236      return RTEMS.Size (size);
     237   end Minimum_Stack_Size;
     238
    232239end RTEMS;
  • cpukit/include/adainclude/rtems.ads

    rd8de6b9 rbc96f3b4  
    4747   subtype Single              is Interfaces.C.C_float;
    4848   subtype Double              is Interfaces.C.Double;
     49   subtype Size                is Interfaces.C.size_t;
    4950
    5051   --
     
    207208   pragma Import (C, Interrupt_Level, "rtems_interrupt_level_body");
    208209
    209    Minimum_Stack_Size : RTEMS.Unsigned32;
    210    pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
     210   function Minimum_Stack_Size return RTEMS.Size;
    211211
    212212   --
  • testsuites/ada/sptests/sp09/sptest.adb

    rd8de6b9 rbc96f3b4  
    3131with RTEMS.SEMAPHORE;
    3232with RTEMS.TIMER;
     33with Interfaces.C;
     34use Interfaces.C;
    3335
    3436package body SPTEST is
     
    11271129      BUFFER_POINTER : RTEMS.ADDRESS;
    11281130      COUNT          : RTEMS.UNSIGNED32;
    1129       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     1131      MESSAGE_SIZE   : RTEMS.Size := 0;
    11301132      STATUS         : RTEMS.STATUS_CODES;
    11311133   begin
     
    30363038      BUFFER         : SPTEST.BUFFER;
    30373039      BUFFER_POINTER : RTEMS.ADDRESS;
    3038       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     3040      MESSAGE_SIZE   : RTEMS.Size := 0;
    30393041      STATUS         : RTEMS.STATUS_CODES;
    30403042   begin
  • testsuites/ada/sptests/sp09/sptest.ads

    rd8de6b9 rbc96f3b4  
    162162--
    163163
    164    REGION_GOOD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 4095 )
    165       of RTEMS.UNSIGNED32;
     164   REGION_GOOD_AREA : array ( RTEMS.Size range 0 .. 4095 )
     165      of RTEMS.Size;
    166166   for REGION_GOOD_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
    167167
    168    REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 2048;
    169    REGION_LENGTH       : constant RTEMS.UNSIGNED32 := 512;
     168   REGION_START_OFFSET : constant RTEMS.Size := 2048;
     169   REGION_LENGTH       : constant RTEMS.Size := 512;
    170170
    171171--
  • testsuites/ada/sptests/sp12/sp12.adb

    rd8de6b9 rbc96f3b4  
    2323with SPTEST;
    2424with TEST_SUPPORT;
     25with Interfaces.C;
     26use Interfaces.C;
    2527
    2628procedure SP12 is
  • testsuites/ada/sptests/sp13/sptest.adb

    rd8de6b9 rbc96f3b4  
    2626with UNSIGNED32_IO;
    2727use type RTEMS.STATUS_CODES;
     28use type RTEMS.Size;
    2829
    2930package body SPTEST is
     
    228229      BUFFER_POINTER             : constant RTEMS.ADDRESS := BUFFER'ADDRESS;
    229230      COUNT                      : RTEMS.UNSIGNED32;
    230       MESSAGE_SIZE               : RTEMS.UNSIGNED32 := 0;
     231      MESSAGE_SIZE               : RTEMS.Size := 0;
    231232      STATUS                     : RTEMS.STATUS_CODES;
    232       SIZE                       : RTEMS.UNSIGNED32 := 0;
     233      SIZE                       : RTEMS.Size := 0;
    233234   begin
    234235
     
    579580              SPTEST.QUEUE_NAME( 1 ),
    580581              2,            -- just 2 msgs each
    581               RTEMS.UNSIGNED32( QUEUE_SIZE ),
     582              RTEMS.Size( QUEUE_SIZE ),
    582583              RTEMS.DEFAULT_ATTRIBUTES,
    583584              QUEUE_ID( 1 ),
     
    607608              SPTEST.QUEUE_NAME( 1 ),
    608609              2,            -- just 2 msgs each
    609               RTEMS.UNSIGNED32( QUEUE_SIZE ),
     610              RTEMS.Size( QUEUE_SIZE ),
    610611              RTEMS.DEFAULT_ATTRIBUTES,
    611612              SPTEST.QUEUE_ID( 1 ),
     
    621622             SPTEST.QUEUE_ID( 1 ),
    622623             BIG_SEND_BUFFER_POINTER,
    623              RTEMS.UNSIGNED32( QUEUE_SIZE + 1 ),
     624             RTEMS.Size( QUEUE_SIZE + 1 ),
    624625             STATUS
    625626          );
     
    632633             SPTEST.QUEUE_ID( 1 ),
    633634             BIG_SEND_BUFFER_POINTER,
    634              RTEMS.UNSIGNED32( QUEUE_SIZE ),
     635             RTEMS.Size( QUEUE_SIZE ),
    635636             STATUS
    636637          );
     
    640641
    641642          -- now read and verify the message just sent
    642           SIZE := INTERFACES.UNSIGNED_32(QUEUE_SIZE);
     643          SIZE := RTEMS.Size(QUEUE_SIZE);
    643644          RTEMS.MESSAGE_QUEUE.RECEIVE(
    644645             SPTEST.QUEUE_ID( 1 ),
     
    652653             STATUS, "message_queue_receive exact size"
    653654          );
    654           if SIZE /= RTEMS.UNSIGNED32( QUEUE_SIZE ) then
     655          if SIZE /= RTEMS.Size( QUEUE_SIZE ) then
    655656              TEXT_IO.PUT(
    656657                 "TA1 - exact size size match failed for queue_size = "
     
    695696      BUFFER_POINTER    : RTEMS.ADDRESS;
    696697      PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
    697       MESSAGE_SIZE      : RTEMS.UNSIGNED32 := 0;
     698      MESSAGE_SIZE      : RTEMS.Size := 0;
    698699      STATUS            : RTEMS.STATUS_CODES;
    699700   begin
     
    831832      BUFFER_POINTER : RTEMS.ADDRESS;
    832833      COUNT          : RTEMS.UNSIGNED32;
    833       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     834      MESSAGE_SIZE   : RTEMS.Size := 0;
    834835      STATUS         : RTEMS.STATUS_CODES;
    835836   begin
  • testsuites/ada/sptests/sp14/sptest.adb

    rd8de6b9 rbc96f3b4  
    2626with RTEMS.TIMER;
    2727with RTEMS.SIGNAL;
     28with Interfaces.C;
     29use Interfaces.C;
    2830
    2931package body SPTEST is
  • testsuites/ada/support/init.c

    rd8de6b9 rbc96f3b4  
    3636uint32_t milliseconds_per_tick(void);
    3737uint32_t ticks_per_second(void);
    38 uint32_t work_space_size(void);
     38size_t work_space_size(void);
    3939uint32_t is_configured_multiprocessing(void);
    4040uint32_t get_node(void);
     
    8585}
    8686
    87 uint32_t work_space_size(void)
     87size_t work_space_size(void)
    8888{
    8989  return rtems_configuration_get_work_space_size()
  • testsuites/ada/support/test_support.adb

    rd8de6b9 rbc96f3b4  
    228228
    229229   function Work_Space_Size
    230    return RTEMS.Unsigned32 is
    231       function Work_Space_Size_Base return RTEMS.Unsigned32;
     230   return RTEMS.Size is
     231      function Work_Space_Size_Base return RTEMS.Size;
    232232      pragma Import (C, Work_Space_Size_Base, "work_space_size");
    233233   begin
  • testsuites/ada/support/test_support.ads

    rd8de6b9 rbc96f3b4  
    182182
    183183   function Work_Space_Size
    184    return RTEMS.Unsigned32;
     184   return RTEMS.Size;
    185185
    186186--
  • testsuites/ada/tmtests/tm09/tmtest.adb

    rd8de6b9 rbc96f3b4  
    132132      BUFFER            : TMTEST.BUFFER;
    133133      BUFFER_POINTER    : RTEMS.ADDRESS;
    134       MESSAGE_SIZE      : RTEMS.UNSIGNED32 := 0;
     134      MESSAGE_SIZE      : RTEMS.Size := 0;
    135135      STATUS            : RTEMS.STATUS_CODES;
    136136   begin
  • testsuites/ada/tmtests/tm10/tmtest.adb

    rd8de6b9 rbc96f3b4  
    6262      BUFFER         : TMTEST.BUFFER;
    6363      BUFFER_POINTER : RTEMS.ADDRESS;
    64       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     64      MESSAGE_SIZE   : RTEMS.Size := 0;
    6565      STATUS         : RTEMS.STATUS_CODES;
    6666   begin
     
    148148      BUFFER         : TMTEST.BUFFER;
    149149      BUFFER_POINTER : RTEMS.ADDRESS;
    150       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     150      MESSAGE_SIZE   : RTEMS.Size := 0;
    151151      STATUS         : RTEMS.STATUS_CODES;
    152152   begin
     
    177177      BUFFER         : TMTEST.BUFFER;
    178178      BUFFER_POINTER : RTEMS.ADDRESS;
    179       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     179      MESSAGE_SIZE   : RTEMS.Size := 0;
    180180      STATUS         : RTEMS.STATUS_CODES;
    181181   begin
  • testsuites/ada/tmtests/tm11/tmtest.adb

    rd8de6b9 rbc96f3b4  
    150150      BUFFER         : TMTEST.BUFFER;
    151151      BUFFER_POINTER : RTEMS.ADDRESS;
    152       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     152      MESSAGE_SIZE   : RTEMS.Size := 0;
    153153      STATUS         : RTEMS.STATUS_CODES;
    154154   begin
     
    190190      BUFFER         : TMTEST.BUFFER;
    191191      BUFFER_POINTER : RTEMS.ADDRESS;
    192       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     192      MESSAGE_SIZE   : RTEMS.Size := 0;
    193193      STATUS         : RTEMS.STATUS_CODES;
    194194   begin
  • testsuites/ada/tmtests/tm12/tmtest.adb

    rd8de6b9 rbc96f3b4  
    184184      BUFFER         : TMTEST.BUFFER;
    185185      BUFFER_POINTER : RTEMS.ADDRESS;
    186       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     186      MESSAGE_SIZE   : RTEMS.Size := 0;
    187187      STATUS         : RTEMS.STATUS_CODES;
    188188   begin
  • testsuites/ada/tmtests/tm13/tmtest.adb

    rd8de6b9 rbc96f3b4  
    149149      BUFFER         : TMTEST.BUFFER;
    150150      BUFFER_POINTER : RTEMS.ADDRESS;
    151       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     151      MESSAGE_SIZE   : RTEMS.Size := 0;
    152152      STATUS         : RTEMS.STATUS_CODES;
    153153   begin
     
    188188      BUFFER         : TMTEST.BUFFER;
    189189      BUFFER_POINTER : RTEMS.ADDRESS;
    190       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     190      MESSAGE_SIZE   : RTEMS.Size := 0;
    191191      STATUS         : RTEMS.STATUS_CODES;
    192192   begin
  • testsuites/ada/tmtests/tm14/tmtest.adb

    rd8de6b9 rbc96f3b4  
    195195      BUFFER         : TMTEST.BUFFER;
    196196      BUFFER_POINTER : RTEMS.ADDRESS;
    197       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     197      MESSAGE_SIZE   : RTEMS.Size := 0;
    198198      STATUS         : RTEMS.STATUS_CODES;
    199199   begin
  • testsuites/ada/tmtests/tm22/tmtest.adb

    rd8de6b9 rbc96f3b4  
    138138      OVERHEAD       : RTEMS.UNSIGNED32;
    139139      COUNT          : RTEMS.UNSIGNED32;
    140       MESSAGE_SIZE   : RTEMS.UNSIGNED32 := 0;
     140      MESSAGE_SIZE   : RTEMS.Size := 0;
    141141      STATUS         : RTEMS.STATUS_CODES;
    142142   begin
Note: See TracChangeset for help on using the changeset viewer.