Changeset bc96f3b4 in rtems for testsuites


Ignore:
Timestamp:
01/23/18 08:53:06 (6 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
5, 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.

Location:
testsuites/ada
Files:
15 edited

Legend:

Unmodified
Added
Removed
  • 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.