Changeset bc96f3b4 in rtems for testsuites
- Timestamp:
- 01/23/18 08:53:06 (6 years ago)
- 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)
- Location:
- testsuites/ada
- Files:
-
- 15 edited
Legend:
- Unmodified
- Added
- Removed
-
testsuites/ada/sptests/sp09/sptest.adb
rd8de6b9 rbc96f3b4 31 31 with RTEMS.SEMAPHORE; 32 32 with RTEMS.TIMER; 33 with Interfaces.C; 34 use Interfaces.C; 33 35 34 36 package body SPTEST is … … 1127 1129 BUFFER_POINTER : RTEMS.ADDRESS; 1128 1130 COUNT : RTEMS.UNSIGNED32; 1129 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;1131 MESSAGE_SIZE : RTEMS.Size := 0; 1130 1132 STATUS : RTEMS.STATUS_CODES; 1131 1133 begin … … 3036 3038 BUFFER : SPTEST.BUFFER; 3037 3039 BUFFER_POINTER : RTEMS.ADDRESS; 3038 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;3040 MESSAGE_SIZE : RTEMS.Size := 0; 3039 3041 STATUS : RTEMS.STATUS_CODES; 3040 3042 begin -
testsuites/ada/sptests/sp09/sptest.ads
rd8de6b9 rbc96f3b4 162 162 -- 163 163 164 REGION_GOOD_AREA : array ( RTEMS. UNSIGNED32range 0 .. 4095 )165 of RTEMS. UNSIGNED32;164 REGION_GOOD_AREA : array ( RTEMS.Size range 0 .. 4095 ) 165 of RTEMS.Size; 166 166 for REGION_GOOD_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT; 167 167 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; 170 170 171 171 -- -
testsuites/ada/sptests/sp12/sp12.adb
rd8de6b9 rbc96f3b4 23 23 with SPTEST; 24 24 with TEST_SUPPORT; 25 with Interfaces.C; 26 use Interfaces.C; 25 27 26 28 procedure SP12 is -
testsuites/ada/sptests/sp13/sptest.adb
rd8de6b9 rbc96f3b4 26 26 with UNSIGNED32_IO; 27 27 use type RTEMS.STATUS_CODES; 28 use type RTEMS.Size; 28 29 29 30 package body SPTEST is … … 228 229 BUFFER_POINTER : constant RTEMS.ADDRESS := BUFFER'ADDRESS; 229 230 COUNT : RTEMS.UNSIGNED32; 230 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;231 MESSAGE_SIZE : RTEMS.Size := 0; 231 232 STATUS : RTEMS.STATUS_CODES; 232 SIZE : RTEMS. UNSIGNED32:= 0;233 SIZE : RTEMS.Size := 0; 233 234 begin 234 235 … … 579 580 SPTEST.QUEUE_NAME( 1 ), 580 581 2, -- just 2 msgs each 581 RTEMS. UNSIGNED32( QUEUE_SIZE ),582 RTEMS.Size( QUEUE_SIZE ), 582 583 RTEMS.DEFAULT_ATTRIBUTES, 583 584 QUEUE_ID( 1 ), … … 607 608 SPTEST.QUEUE_NAME( 1 ), 608 609 2, -- just 2 msgs each 609 RTEMS. UNSIGNED32( QUEUE_SIZE ),610 RTEMS.Size( QUEUE_SIZE ), 610 611 RTEMS.DEFAULT_ATTRIBUTES, 611 612 SPTEST.QUEUE_ID( 1 ), … … 621 622 SPTEST.QUEUE_ID( 1 ), 622 623 BIG_SEND_BUFFER_POINTER, 623 RTEMS. UNSIGNED32( QUEUE_SIZE + 1 ),624 RTEMS.Size( QUEUE_SIZE + 1 ), 624 625 STATUS 625 626 ); … … 632 633 SPTEST.QUEUE_ID( 1 ), 633 634 BIG_SEND_BUFFER_POINTER, 634 RTEMS. UNSIGNED32( QUEUE_SIZE ),635 RTEMS.Size( QUEUE_SIZE ), 635 636 STATUS 636 637 ); … … 640 641 641 642 -- now read and verify the message just sent 642 SIZE := INTERFACES.UNSIGNED_32(QUEUE_SIZE);643 SIZE := RTEMS.Size(QUEUE_SIZE); 643 644 RTEMS.MESSAGE_QUEUE.RECEIVE( 644 645 SPTEST.QUEUE_ID( 1 ), … … 652 653 STATUS, "message_queue_receive exact size" 653 654 ); 654 if SIZE /= RTEMS. UNSIGNED32( QUEUE_SIZE ) then655 if SIZE /= RTEMS.Size( QUEUE_SIZE ) then 655 656 TEXT_IO.PUT( 656 657 "TA1 - exact size size match failed for queue_size = " … … 695 696 BUFFER_POINTER : RTEMS.ADDRESS; 696 697 PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY; 697 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;698 MESSAGE_SIZE : RTEMS.Size := 0; 698 699 STATUS : RTEMS.STATUS_CODES; 699 700 begin … … 831 832 BUFFER_POINTER : RTEMS.ADDRESS; 832 833 COUNT : RTEMS.UNSIGNED32; 833 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;834 MESSAGE_SIZE : RTEMS.Size := 0; 834 835 STATUS : RTEMS.STATUS_CODES; 835 836 begin -
testsuites/ada/sptests/sp14/sptest.adb
rd8de6b9 rbc96f3b4 26 26 with RTEMS.TIMER; 27 27 with RTEMS.SIGNAL; 28 with Interfaces.C; 29 use Interfaces.C; 28 30 29 31 package body SPTEST is -
testsuites/ada/support/init.c
rd8de6b9 rbc96f3b4 36 36 uint32_t milliseconds_per_tick(void); 37 37 uint32_t ticks_per_second(void); 38 uint32_t work_space_size(void);38 size_t work_space_size(void); 39 39 uint32_t is_configured_multiprocessing(void); 40 40 uint32_t get_node(void); … … 85 85 } 86 86 87 uint32_t work_space_size(void)87 size_t work_space_size(void) 88 88 { 89 89 return rtems_configuration_get_work_space_size() -
testsuites/ada/support/test_support.adb
rd8de6b9 rbc96f3b4 228 228 229 229 function Work_Space_Size 230 return RTEMS. Unsigned32 is231 function Work_Space_Size_Base return RTEMS. Unsigned32;230 return RTEMS.Size is 231 function Work_Space_Size_Base return RTEMS.Size; 232 232 pragma Import (C, Work_Space_Size_Base, "work_space_size"); 233 233 begin -
testsuites/ada/support/test_support.ads
rd8de6b9 rbc96f3b4 182 182 183 183 function Work_Space_Size 184 return RTEMS. Unsigned32;184 return RTEMS.Size; 185 185 186 186 -- -
testsuites/ada/tmtests/tm09/tmtest.adb
rd8de6b9 rbc96f3b4 132 132 BUFFER : TMTEST.BUFFER; 133 133 BUFFER_POINTER : RTEMS.ADDRESS; 134 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;134 MESSAGE_SIZE : RTEMS.Size := 0; 135 135 STATUS : RTEMS.STATUS_CODES; 136 136 begin -
testsuites/ada/tmtests/tm10/tmtest.adb
rd8de6b9 rbc96f3b4 62 62 BUFFER : TMTEST.BUFFER; 63 63 BUFFER_POINTER : RTEMS.ADDRESS; 64 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;64 MESSAGE_SIZE : RTEMS.Size := 0; 65 65 STATUS : RTEMS.STATUS_CODES; 66 66 begin … … 148 148 BUFFER : TMTEST.BUFFER; 149 149 BUFFER_POINTER : RTEMS.ADDRESS; 150 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;150 MESSAGE_SIZE : RTEMS.Size := 0; 151 151 STATUS : RTEMS.STATUS_CODES; 152 152 begin … … 177 177 BUFFER : TMTEST.BUFFER; 178 178 BUFFER_POINTER : RTEMS.ADDRESS; 179 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;179 MESSAGE_SIZE : RTEMS.Size := 0; 180 180 STATUS : RTEMS.STATUS_CODES; 181 181 begin -
testsuites/ada/tmtests/tm11/tmtest.adb
rd8de6b9 rbc96f3b4 150 150 BUFFER : TMTEST.BUFFER; 151 151 BUFFER_POINTER : RTEMS.ADDRESS; 152 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;152 MESSAGE_SIZE : RTEMS.Size := 0; 153 153 STATUS : RTEMS.STATUS_CODES; 154 154 begin … … 190 190 BUFFER : TMTEST.BUFFER; 191 191 BUFFER_POINTER : RTEMS.ADDRESS; 192 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;192 MESSAGE_SIZE : RTEMS.Size := 0; 193 193 STATUS : RTEMS.STATUS_CODES; 194 194 begin -
testsuites/ada/tmtests/tm12/tmtest.adb
rd8de6b9 rbc96f3b4 184 184 BUFFER : TMTEST.BUFFER; 185 185 BUFFER_POINTER : RTEMS.ADDRESS; 186 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;186 MESSAGE_SIZE : RTEMS.Size := 0; 187 187 STATUS : RTEMS.STATUS_CODES; 188 188 begin -
testsuites/ada/tmtests/tm13/tmtest.adb
rd8de6b9 rbc96f3b4 149 149 BUFFER : TMTEST.BUFFER; 150 150 BUFFER_POINTER : RTEMS.ADDRESS; 151 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;151 MESSAGE_SIZE : RTEMS.Size := 0; 152 152 STATUS : RTEMS.STATUS_CODES; 153 153 begin … … 188 188 BUFFER : TMTEST.BUFFER; 189 189 BUFFER_POINTER : RTEMS.ADDRESS; 190 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;190 MESSAGE_SIZE : RTEMS.Size := 0; 191 191 STATUS : RTEMS.STATUS_CODES; 192 192 begin -
testsuites/ada/tmtests/tm14/tmtest.adb
rd8de6b9 rbc96f3b4 195 195 BUFFER : TMTEST.BUFFER; 196 196 BUFFER_POINTER : RTEMS.ADDRESS; 197 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;197 MESSAGE_SIZE : RTEMS.Size := 0; 198 198 STATUS : RTEMS.STATUS_CODES; 199 199 begin -
testsuites/ada/tmtests/tm22/tmtest.adb
rd8de6b9 rbc96f3b4 138 138 OVERHEAD : RTEMS.UNSIGNED32; 139 139 COUNT : RTEMS.UNSIGNED32; 140 MESSAGE_SIZE : RTEMS. UNSIGNED32:= 0;140 MESSAGE_SIZE : RTEMS.Size := 0; 141 141 STATUS : RTEMS.STATUS_CODES; 142 142 begin
Note: See TracChangeset
for help on using the changeset viewer.