Changeset bc96f3b4 in rtems for testsuites/ada/sptests


Ignore:
Timestamp:
Jan 23, 2018, 8:53:06 AM (2 years 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.

Location:
testsuites/ada/sptests
Files:
5 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
Note: See TracChangeset for help on using the changeset viewer.