RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

ada: Introduce RTEMS.Size type

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

Update #3082.
This commit is contained in:
Sebastian Huber
2018-01-23 09:53:06 +01:00
parent d8de6b9dbe
commit bc96f3b4b8
27 changed files with 99 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
cpukit/include/adainclude/rtems-message_queue.adb
View File

@@ -27,7 +27,7 @@ package body RTEMS.Message_Queue is
procedure Create
(Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Max_Message_Size : in RTEMS.Unsigned32;
Max_Message_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes)
@@ -36,7 +36,7 @@ package body RTEMS.Message_Queue is
function Create_Base
(Name : RTEMS.Name;
Count : RTEMS.Unsigned32;
Max_Message_Size : RTEMS.Unsigned32;
Max_Message_Size : RTEMS.Size;
Attribute_Set : RTEMS.Attribute;
ID : access RTEMS.ID)
return RTEMS.Status_Codes;
@@ -101,13 +101,13 @@ package body RTEMS.Message_Queue is
procedure Send
(ID : in RTEMS.ID;
Buffer : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Result : out RTEMS.Status_Codes)
is
function Send_Base
(ID : RTEMS.ID;
Buffer : RTEMS.Address;
Size : RTEMS.Unsigned32)
Size : RTEMS.Size)
return RTEMS.Status_Codes;
pragma Import (C, Send_Base, "rtems_message_queue_send");
begin
@@ -119,13 +119,13 @@ package body RTEMS.Message_Queue is
procedure Urgent
(ID : in RTEMS.ID;
Buffer : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Result : out RTEMS.Status_Codes)
is
function Urgent_Base
(ID : RTEMS.ID;
Buffer : RTEMS.Address;
Size : RTEMS.Unsigned32)
Size : RTEMS.Size)
return RTEMS.Status_Codes;
pragma Import
(C,
@@ -140,14 +140,14 @@ package body RTEMS.Message_Queue is
procedure Broadcast
(ID : in RTEMS.ID;
Buffer : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Count : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes)
is
function Broadcast_Base
(ID : RTEMS.ID;
Buffer : RTEMS.Address;
Size : RTEMS.Unsigned32;
Size : RTEMS.Size;
Count : access RTEMS.Unsigned32)
return RTEMS.Status_Codes;
pragma Import
@@ -168,13 +168,13 @@ package body RTEMS.Message_Queue is
Buffer : in RTEMS.Address;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval;
Size : in out RTEMS.Unsigned32;
Size : in out RTEMS.Size;
Result : out RTEMS.Status_Codes)
is
function Receive_Base
(ID : RTEMS.ID;
Buffer : RTEMS.Address;
Size : access RTEMS.Unsigned32;
Size : access RTEMS.Size;
Option_Set : RTEMS.Option;
Timeout : RTEMS.Interval)
return RTEMS.Status_Codes;
@@ -182,7 +182,7 @@ package body RTEMS.Message_Queue is
(C,
Receive_Base,
"rtems_message_queue_receive");
Size_Base : aliased RTEMS.Unsigned32;
Size_Base : aliased RTEMS.Size;
begin
Size_Base := Size;

10
cpukit/include/adainclude/rtems-message_queue.ads
View File

@@ -28,7 +28,7 @@ package RTEMS.Message_Queue is
procedure Create (
Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Max_Message_Size : in RTEMS.Unsigned32;
Max_Message_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
@@ -49,21 +49,21 @@ package RTEMS.Message_Queue is
procedure Send (
ID : in RTEMS.ID;
Buffer : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Result : out RTEMS.Status_Codes
);
procedure Urgent (
ID : in RTEMS.ID;
Buffer : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Result : out RTEMS.Status_Codes
);
procedure Broadcast (
ID : in RTEMS.ID;
Buffer : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Count : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes
);
@@ -73,7 +73,7 @@ package RTEMS.Message_Queue is
Buffer : in RTEMS.Address;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval;
Size : in out RTEMS.Unsigned32;
Size : in out RTEMS.Size;
Result : out RTEMS.Status_Codes
);

8
cpukit/include/adainclude/rtems-partition.adb
View File

@@ -27,8 +27,8 @@ package body RTEMS.Partition is
procedure Create
(Name : in RTEMS.Name;
Starting_Address : in RTEMS.Address;
Length : in RTEMS.Unsigned32;
Buffer_Size : in RTEMS.Unsigned32;
Length : in RTEMS.Size;
Buffer_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes)
@@ -36,8 +36,8 @@ package body RTEMS.Partition is
function Create_Base
(Name : RTEMS.Name;
Starting_Address : RTEMS.Address;
Length : RTEMS.Unsigned32;
Buffer_Size : RTEMS.Unsigned32;
Length : RTEMS.Size;
Buffer_Size : RTEMS.Size;
Attribute_Set : RTEMS.Attribute;
ID : access RTEMS.Event_Set)
return RTEMS.Status_Codes;

4
cpukit/include/adainclude/rtems-partition.ads
View File

@@ -28,8 +28,8 @@ package RTEMS.Partition is
procedure Create (
Name : in RTEMS.Name;
Starting_Address : in RTEMS.Address;
Length : in RTEMS.Unsigned32;
Buffer_Size : in RTEMS.Unsigned32;
Length : in RTEMS.Size;
Buffer_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes

32
cpukit/include/adainclude/rtems-region.adb
View File

@@ -27,8 +27,8 @@ package body RTEMS.Region is
procedure Create
(Name : in RTEMS.Name;
Starting_Address : in RTEMS.Address;
Length : in RTEMS.Unsigned32;
Page_Size : in RTEMS.Unsigned32;
Length : in RTEMS.Size;
Page_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes)
@@ -36,8 +36,8 @@ package body RTEMS.Region is
function Create_Base
(Name : RTEMS.Name;
Starting_Address : RTEMS.Address;
Length : RTEMS.Unsigned32;
Page_Size : RTEMS.Unsigned32;
Length : RTEMS.Size;
Page_Size : RTEMS.Size;
Attribute_Set : RTEMS.Attribute;
ID : access RTEMS.ID)
return RTEMS.Status_Codes;
@@ -90,13 +90,13 @@ package body RTEMS.Region is
procedure Extend
(ID : in RTEMS.ID;
Starting_Address : in RTEMS.Address;
Length : in RTEMS.Unsigned32;
Length : in RTEMS.Size;
Result : out RTEMS.Status_Codes)
is
function Extend_Base
(ID : RTEMS.ID;
Starting_Address : RTEMS.Address;
Length : RTEMS.Unsigned32)
Length : RTEMS.Size)
return RTEMS.Status_Codes;
pragma Import (C, Extend_Base, "rtems_region_extend");
begin
@@ -107,7 +107,7 @@ package body RTEMS.Region is
procedure Get_Segment
(ID : in RTEMS.ID;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval;
Segment : out RTEMS.Address;
@@ -115,7 +115,7 @@ package body RTEMS.Region is
is
function Get_Segment_Base
(ID : RTEMS.ID;
Size : RTEMS.Unsigned32;
Size : RTEMS.Size;
Option_Set : RTEMS.Option;
Timeout : RTEMS.Interval;
Segment : access RTEMS.Address)
@@ -138,19 +138,19 @@ package body RTEMS.Region is
procedure Get_Segment_Size
(ID : in RTEMS.ID;
Segment : in RTEMS.Address;
Size : out RTEMS.Unsigned32;
Size : out RTEMS.Size;
Result : out RTEMS.Status_Codes)
is
function Get_Segment_Size_Base
(ID : RTEMS.ID;
Segment : RTEMS.Address;
Size : access RTEMS.Unsigned32)
Size : access RTEMS.Size)
return RTEMS.Status_Codes;
pragma Import
(C,
Get_Segment_Size_Base,
"rtems_region_get_segment_size");
Size_Base : aliased RTEMS.Unsigned32;
Size_Base : aliased RTEMS.Size;
begin
Result := Get_Segment_Size_Base (ID, Segment, Size_Base'Access);
@@ -180,21 +180,21 @@ package body RTEMS.Region is
procedure Resize_Segment
(ID : in RTEMS.ID;
Segment : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Old_Size : out RTEMS.Unsigned32;
Size : in RTEMS.Size;
Old_Size : out RTEMS.Size;
Result : out RTEMS.Status_Codes)
is
function Resize_Segment_Base
(ID : RTEMS.ID;
Segment : RTEMS.Address;
Size : RTEMS.Unsigned32;
Old_Size : access RTEMS.Unsigned32)
Size : RTEMS.Size;
Old_Size : access RTEMS.Size)
return RTEMS.Status_Codes;
pragma Import
(C,
Resize_Segment_Base,
"rtems_region_resize_segment");
Old_Size_Base : aliased RTEMS.Unsigned32;
Old_Size_Base : aliased RTEMS.Size;
begin
Result :=

14
cpukit/include/adainclude/rtems-region.ads
View File

@@ -28,8 +28,8 @@ package RTEMS.Region is
procedure Create (
Name : in RTEMS.Name;
Starting_Address : in RTEMS.Address;
Length : in RTEMS.Unsigned32;
Page_Size : in RTEMS.Unsigned32;
Length : in RTEMS.Size;
Page_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
@@ -49,13 +49,13 @@ package RTEMS.Region is
procedure Extend (
ID : in RTEMS.ID;
Starting_Address : in RTEMS.Address;
Length : in RTEMS.Unsigned32;
Length : in RTEMS.Size;
Result : out RTEMS.Status_Codes
);
procedure Get_Segment (
ID : in RTEMS.ID;
Size : in RTEMS.Unsigned32;
Size : in RTEMS.Size;
Option_Set : in RTEMS.Option;
Timeout : in RTEMS.Interval;
Segment : out RTEMS.Address;
@@ -65,7 +65,7 @@ package RTEMS.Region is
procedure Get_Segment_Size (
ID : in RTEMS.ID;
Segment : in RTEMS.Address;
Size : out RTEMS.Unsigned32;
Size : out RTEMS.Size;
Result : out RTEMS.Status_Codes
);
@@ -78,8 +78,8 @@ package RTEMS.Region is
procedure Resize_Segment (
ID : in RTEMS.ID;
Segment : in RTEMS.Address;
Size : in RTEMS.Unsigned32;
Old_Size : out RTEMS.Unsigned32;
Size : in RTEMS.Size;
Old_Size : out RTEMS.Size;
Result : out RTEMS.Status_Codes
);

4
cpukit/include/adainclude/rtems-tasks.adb
View File

@@ -27,7 +27,7 @@ package body RTEMS.Tasks is
procedure Create
(Name : in RTEMS.Name;
Initial_Priority : in Priority;
Stack_Size : in RTEMS.Unsigned32;
Stack_Size : in RTEMS.Size;
Initial_Modes : in RTEMS.Mode;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;
@@ -36,7 +36,7 @@ package body RTEMS.Tasks is
function Create_Base
(Name : RTEMS.Name;
Initial_Priority : Priority;
Stack_Size : RTEMS.Unsigned32;
Stack_Size : RTEMS.Size;
Initial_Modes : RTEMS.Mode;
Attribute_Set : RTEMS.Attribute;
ID : access RTEMS.ID)

2
cpukit/include/adainclude/rtems-tasks.ads
View File

@@ -42,7 +42,7 @@ package RTEMS.Tasks is
procedure Create (
Name : in RTEMS.Name;
Initial_Priority : in Priority;
Stack_Size : in Unsigned32;
Stack_Size : in RTEMS.Size;
Initial_Modes : in RTEMS.Mode;
Attribute_Set : in RTEMS.Attribute;
ID : out RTEMS.ID;

4
cpukit/include/adainclude/rtems-timer.adb
View File

@@ -184,13 +184,13 @@ package body RTEMS.Timer is
procedure Initiate_Server
(Server_Priority : in RTEMS.Tasks.Priority;
Stack_Size : in RTEMS.Unsigned32;
Stack_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
Result : out RTEMS.Status_Codes)
is
function Initiate_Server_Base
(Server_Priority : RTEMS.Tasks.Priority;
Stack_Size : RTEMS.Unsigned32;
Stack_Size : RTEMS.Size;
Attribute_Set : RTEMS.Attribute)
return RTEMS.Status_Codes;
pragma Import

2
cpukit/include/adainclude/rtems-timer.ads
View File

@@ -98,7 +98,7 @@ package RTEMS.Timer is
procedure Initiate_Server (
Server_Priority : in RTEMS.Tasks.Priority;
Stack_Size : in Unsigned32;
Stack_Size : in RTEMS.Size;
Attribute_Set : in RTEMS.Attribute;
Result : out RTEMS.Status_Codes
);

7
cpukit/include/adainclude/rtems.adb
View File

@@ -229,4 +229,11 @@ package body RTEMS is
Shutdown_Executive_Base (Status);
end Shutdown_Executive;
function Minimum_Stack_Size return RTEMS.Size is
size : RTEMS.Unsigned32;
pragma Import (C, size, "rtems_minimum_stack_size");
begin
return RTEMS.Size (size);
end Minimum_Stack_Size;
end RTEMS;

4
cpukit/include/adainclude/rtems.ads
View File

@@ -46,6 +46,7 @@ pragma Elaborate_Body (RTEMS);
subtype Address is System.Address;
subtype Single is Interfaces.C.C_float;
subtype Double is Interfaces.C.Double;
subtype Size is Interfaces.C.size_t;
--
-- The following define the size of each of the base types in
@@ -206,8 +207,7 @@ pragma Elaborate_Body (RTEMS);
) return RTEMS.Mode;
pragma Import (C, Interrupt_Level, "rtems_interrupt_level_body");
Minimum_Stack_Size : RTEMS.Unsigned32;
pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
function Minimum_Stack_Size return RTEMS.Size;
--
-- Notepad index constants

6
testsuites/ada/sptests/sp09/sptest.adb
View File

@@ -30,6 +30,8 @@ with RTEMS.RATE_MONOTONIC;
with RTEMS.REGION;
with RTEMS.SEMAPHORE;
with RTEMS.TIMER;
with Interfaces.C;
use Interfaces.C;
package body SPTEST is
@@ -1126,7 +1128,7 @@ package body SPTEST is
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -3035,7 +3037,7 @@ package body SPTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

8
testsuites/ada/sptests/sp09/sptest.ads
View File

@@ -161,12 +161,12 @@ package SPTEST is
-- starting area and length.
--
REGION_GOOD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 4095 )
of RTEMS.UNSIGNED32;
REGION_GOOD_AREA : array ( RTEMS.Size range 0 .. 4095 )
of RTEMS.Size;
for REGION_GOOD_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 2048;
REGION_LENGTH : constant RTEMS.UNSIGNED32 := 512;
REGION_START_OFFSET : constant RTEMS.Size := 2048;
REGION_LENGTH : constant RTEMS.Size := 512;
--
-- The following area defines a memory area to be used as the

2
testsuites/ada/sptests/sp12/sp12.adb
View File

@@ -22,6 +22,8 @@ with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
with Interfaces.C;
use Interfaces.C;
procedure SP12 is
INIT_ID : RTEMS.ID;

21
testsuites/ada/sptests/sp13/sptest.adb
View File

@@ -25,6 +25,7 @@ with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
use type RTEMS.STATUS_CODES;
use type RTEMS.Size;
package body SPTEST is
@@ -227,9 +228,9 @@ package body SPTEST is
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : constant RTEMS.ADDRESS := BUFFER'ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
SIZE : RTEMS.UNSIGNED32 := 0;
SIZE : RTEMS.Size := 0;
begin
RTEMS.MESSAGE_QUEUE.IDENT(
@@ -578,7 +579,7 @@ TEST_SUPPORT.PAUSE;
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 1 ),
2, -- just 2 msgs each
RTEMS.UNSIGNED32( QUEUE_SIZE ),
RTEMS.Size( QUEUE_SIZE ),
RTEMS.DEFAULT_ATTRIBUTES,
QUEUE_ID( 1 ),
STATUS
@@ -606,7 +607,7 @@ TEST_SUPPORT.PAUSE;
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 1 ),
2, -- just 2 msgs each
RTEMS.UNSIGNED32( QUEUE_SIZE ),
RTEMS.Size( QUEUE_SIZE ),
RTEMS.DEFAULT_ATTRIBUTES,
SPTEST.QUEUE_ID( 1 ),
STATUS
@@ -620,7 +621,7 @@ TEST_SUPPORT.PAUSE;
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BIG_SEND_BUFFER_POINTER,
RTEMS.UNSIGNED32( QUEUE_SIZE + 1 ),
RTEMS.Size( QUEUE_SIZE + 1 ),
STATUS
);
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -631,7 +632,7 @@ TEST_SUPPORT.PAUSE;
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BIG_SEND_BUFFER_POINTER,
RTEMS.UNSIGNED32( QUEUE_SIZE ),
RTEMS.Size( QUEUE_SIZE ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED(
@@ -639,7 +640,7 @@ TEST_SUPPORT.PAUSE;
);
-- now read and verify the message just sent
SIZE := INTERFACES.UNSIGNED_32(QUEUE_SIZE);
SIZE := RTEMS.Size(QUEUE_SIZE);
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BIG_RECEIVE_BUFFER_POINTER,
@@ -651,7 +652,7 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS, "message_queue_receive exact size"
);
if SIZE /= RTEMS.UNSIGNED32( QUEUE_SIZE ) then
if SIZE /= RTEMS.Size( QUEUE_SIZE ) then
TEXT_IO.PUT(
"TA1 - exact size size match failed for queue_size = "
);
@@ -694,7 +695,7 @@ TEST_SUPPORT.PAUSE;
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -830,7 +831,7 @@ TEST_SUPPORT.PAUSE;
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

2
testsuites/ada/sptests/sp14/sptest.adb
View File

@@ -25,6 +25,8 @@ with UNSIGNED32_IO;
with INTERFACES; use INTERFACES;
with RTEMS.TIMER;
with RTEMS.SIGNAL;
with Interfaces.C;
use Interfaces.C;
package body SPTEST is

4
testsuites/ada/support/init.c
View File

@@ -35,7 +35,7 @@ void ada_test_begin(void);
void ada_test_end(void);
uint32_t milliseconds_per_tick(void);
uint32_t ticks_per_second(void);
uint32_t work_space_size(void);
size_t work_space_size(void);
uint32_t is_configured_multiprocessing(void);
uint32_t get_node(void);
rtems_id tcb_to_id(Thread_Control *tcb);
@@ -84,7 +84,7 @@ uint32_t ticks_per_second(void)
return rtems_clock_get_ticks_per_second();
}
uint32_t work_space_size(void)
size_t work_space_size(void)
{
return rtems_configuration_get_work_space_size()
+ rtems_configuration_get_stack_space_size();

4
testsuites/ada/support/test_support.adb
View File

@@ -227,8 +227,8 @@ package body Test_Support is
--
function Work_Space_Size
return RTEMS.Unsigned32 is
function Work_Space_Size_Base return RTEMS.Unsigned32;
return RTEMS.Size is
function Work_Space_Size_Base return RTEMS.Size;
pragma Import (C, Work_Space_Size_Base, "work_space_size");
begin
return Work_Space_Size_Base;

2
testsuites/ada/support/test_support.ads
View File

@@ -181,7 +181,7 @@ package Test_Support is
--
function Work_Space_Size
return RTEMS.Unsigned32;
return RTEMS.Size;
--
-- Return an indication of whether multiprocessing is configured

2
testsuites/ada/tmtests/tm09/tmtest.adb
View File

@@ -131,7 +131,7 @@ package body TMTEST is
EMPTY_FLUSH_COUNT : RTEMS.UNSIGNED32;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

6
testsuites/ada/tmtests/tm10/tmtest.adb
View File

@@ -61,7 +61,7 @@ package body TMTEST is
TASK_ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -147,7 +147,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -176,7 +176,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

4
testsuites/ada/tmtests/tm11/tmtest.adb
View File

@@ -149,7 +149,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -189,7 +189,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

2
testsuites/ada/tmtests/tm12/tmtest.adb
View File

@@ -183,7 +183,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

4
testsuites/ada/tmtests/tm13/tmtest.adb
View File

@@ -148,7 +148,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -187,7 +187,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

2
testsuites/ada/tmtests/tm14/tmtest.adb
View File

@@ -194,7 +194,7 @@ package body TMTEST is
pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin

2
testsuites/ada/tmtests/tm22/tmtest.adb
View File

@@ -137,7 +137,7 @@ package body TMTEST is
BUFFER_POINTER : RTEMS.ADDRESS;
OVERHEAD : RTEMS.UNSIGNED32;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
MESSAGE_SIZE : RTEMS.Size := 0;
STATUS : RTEMS.STATUS_CODES;
begin