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

2005-05-03 Joel Sherrill <joel@OARcorp.com>

Browse Source 
* rtems.adb: Remove gcc 4.x warnings.
This commit is contained in:
Joel Sherrill
2005-05-03 20:36:03 +00:00
parent 14225faa80
commit 901eef9a79
4 changed files with 78 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
c/src/ada/ChangeLog
View File

@@ -1,3 +1,7 @@
2005-05-03 Joel Sherrill <joel@OARcorp.com>
* rtems.adb: Remove gcc 4.x warnings.
2005-05-02 Ralf Corsepius <ralf.corsepius@rtems.org> 2005-05-02 Ralf Corsepius <ralf.corsepius@rtems.org>
PR 782/rtems PR 782/rtems

67
c/src/ada/rtems.adb
View File

@@ -302,7 +302,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Create_Base, "rtems_task_create"); pragma Import (C, Task_Create_Base, "rtems_task_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Task_Create_Base ( Result := Task_Create_Base (
Name, Name,
@@ -328,7 +328,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Ident_Base, "rtems_task_ident"); pragma Import (C, Task_Ident_Base, "rtems_task_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
@@ -425,7 +425,7 @@ package body RTEMS is
Old_Priority : access RTEMS.Task_Priority Old_Priority : access RTEMS.Task_Priority
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority"); pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority");
Old_Priority_Base : aliased RTEMS.Task_Priority := Old_Priority; Old_Priority_Base : aliased RTEMS.Task_Priority;
begin begin
Result := Task_Set_Priority_Base ( Result := Task_Set_Priority_Base (
@@ -449,7 +449,7 @@ package body RTEMS is
Previous_Mode_Set : access RTEMS.Mode Previous_Mode_Set : access RTEMS.Mode
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Mode_Base, "rtems_task_mode"); pragma Import (C, Task_Mode_Base, "rtems_task_mode");
Previous_Mode_Set_Base : aliased RTEMS.Mode := Previous_Mode_Set; Previous_Mode_Set_Base : aliased RTEMS.Mode;
begin begin
Result := Task_Mode_Base ( Result := Task_Mode_Base (
@@ -473,11 +473,11 @@ package body RTEMS is
Note : access RTEMS.Unsigned32 Note : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note"); pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note");
Note_Base : aliased RTEMS.Unsigned32 := Note; Note_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access ); Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access );
Note := NOTE_Base; Note := Note_Base;
end Task_Get_Note; end Task_Get_Note;
@@ -518,6 +518,8 @@ package body RTEMS is
) is ) is
begin begin
-- FIXME -- FIXME
Task_Variable := RTEMS.Null_Address;
Task_Variable_Value := RTEMS.Null_Address;
Result := Internal_Error; Result := Internal_Error;
end Task_Variable_Get; end Task_Variable_Get;
@@ -528,6 +530,7 @@ package body RTEMS is
) is ) is
begin begin
-- FIXME -- FIXME
Task_Variable := RTEMS.Null_Address;
Result := Internal_Error; Result := Internal_Error;
end Task_Variable_Delete; end Task_Variable_Delete;
@@ -575,13 +578,13 @@ package body RTEMS is
Old_ISR_Handler : access RTEMS.Address Old_ISR_Handler : access RTEMS.Address
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch"); pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch");
Old_ISR_Handler_Base : aliased RTEMS.Address := Old_ISR_Handler; Old_ISR_Handler_Base : aliased RTEMS.Address;
begin begin
Result := Interrupt_Catch_Base ( Result := Interrupt_Catch_Base (
New_ISR_Handler, New_ISR_Handler,
Vector, Vector,
OLD_ISR_HANDLER_Base'Unchecked_Access Old_ISR_Handler_Base'Unchecked_Access
); );
Old_ISR_Handler := OLD_ISR_HANDLER_Base; Old_ISR_Handler := OLD_ISR_HANDLER_Base;
@@ -653,7 +656,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Extension_Create_Base, "rtems_extension_create"); pragma Import (C, Extension_Create_Base, "rtems_extension_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Extension_Create_Base ( Name, Table, ID_Base'Unchecked_Access ); Result := Extension_Create_Base ( Name, Table, ID_Base'Unchecked_Access );
@@ -671,7 +674,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Extension_Ident_Base, "rtems_extension_ident"); pragma Import (C, Extension_Ident_Base, "rtems_extension_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Extension_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Extension_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -707,7 +710,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Timer_Create_Base, "rtems_timer_create"); pragma Import (C, Timer_Create_Base, "rtems_timer_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Timer_Create_Base ( Name, ID_Base'Unchecked_Access ); Result := Timer_Create_Base ( Name, ID_Base'Unchecked_Access );
@@ -725,7 +728,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Timer_Ident_Base, "rtems_timer_ident"); pragma Import (C, Timer_Ident_Base, "rtems_timer_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Timer_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Timer_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -907,7 +910,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create"); pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Semaphore_Create_Base ( Result := Semaphore_Create_Base (
@@ -947,7 +950,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident"); pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Semaphore_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); Result := Semaphore_Ident_Base ( Name, Node, ID_Base'Unchecked_Access );
@@ -1009,7 +1012,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, pragma Import (C,
Message_Queue_Create_Base, "rtems_message_queue_create"); Message_Queue_Create_Base, "rtems_message_queue_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Message_Queue_Create_Base ( Result := Message_Queue_Create_Base (
@@ -1035,7 +1038,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident"); pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Result :=
@@ -1111,7 +1114,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Message_Queue_Broadcast_Base, pragma Import (C, Message_Queue_Broadcast_Base,
"rtems_message_queue_broadcast"); "rtems_message_queue_broadcast");
Count_Base : aliased RTEMS.Unsigned32 := Count; Count_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Message_Queue_Broadcast_Base ( Result := Message_Queue_Broadcast_Base (
@@ -1165,7 +1168,7 @@ package body RTEMS is
Count : access RTEMS.Unsigned32 Count : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush"); pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush");
COUNT_Base : aliased RTEMS.Unsigned32 := Count; COUNT_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Message_Queue_Flush_Base ( ID, COUNT_Base'Unchecked_Access ); Result := Message_Queue_Flush_Base ( ID, COUNT_Base'Unchecked_Access );
@@ -1207,7 +1210,7 @@ package body RTEMS is
Event_Out : access RTEMS.Event_Set Event_Out : access RTEMS.Event_Set
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Event_Receive_Base, "rtems_event_receive"); pragma Import (C, Event_Receive_Base, "rtems_event_receive");
Event_Out_Base : aliased RTEMS.Event_Set; -- := Event_Out; Event_Out_Base : aliased RTEMS.Event_Set;
begin begin
Result := Event_Receive_Base ( Result := Event_Receive_Base (
@@ -1279,7 +1282,7 @@ package body RTEMS is
ID : access RTEMS.Event_Set ID : access RTEMS.Event_Set
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Partition_Create_Base, "rtems_partition_create"); pragma Import (C, Partition_Create_Base, "rtems_partition_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Partition_Create_Base ( Result := Partition_Create_Base (
@@ -1306,7 +1309,7 @@ package body RTEMS is
ID : access RTEMS.Event_Set ID : access RTEMS.Event_Set
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Partition_Ident_Base, "rtems_partition_ident"); pragma Import (C, Partition_Ident_Base, "rtems_partition_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Partition_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); Result := Partition_Ident_Base ( Name, Node, ID_Base'Unchecked_Access );
@@ -1339,7 +1342,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Partition_Get_Buffer_Base, pragma Import (C, Partition_Get_Buffer_Base,
"rtems_partition_get_buffer"); "rtems_partition_get_buffer");
Buffer_Base : aliased RTEMS.Address := Buffer; Buffer_Base : aliased RTEMS.Address;
begin begin
Result := Partition_Get_Buffer_Base ( ID, Buffer_Base'Unchecked_Access ); Result := Partition_Get_Buffer_Base ( ID, Buffer_Base'Unchecked_Access );
@@ -1386,7 +1389,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Create_Base, "rtems_region_create"); pragma Import (C, Region_Create_Base, "rtems_region_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Region_Create_Base ( Result := Region_Create_Base (
@@ -1411,7 +1414,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Ident_Base, "rtems_region_ident"); pragma Import (C, Region_Ident_Base, "rtems_region_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Region_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Region_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -1467,7 +1470,7 @@ package body RTEMS is
Segment : access RTEMS.Address Segment : access RTEMS.Address
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment"); pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment");
Segment_Base : aliased RTEMS.Address := Segment; Segment_Base : aliased RTEMS.Address;
begin begin
Result := Region_Get_Segment_Base ( Result := Region_Get_Segment_Base (
@@ -1494,7 +1497,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Get_Segment_Size_Base, pragma Import (C, Region_Get_Segment_Size_Base,
"rtems_region_get_segment_size"); "rtems_region_get_segment_size");
Size_Base : aliased RTEMS.Unsigned32 := Size; Size_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Region_Get_Segment_Size_Base ( Result := Region_Get_Segment_Size_Base (
@@ -1543,7 +1546,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_Create_Base, "rtems_port_create"); pragma Import (C, Port_Create_Base, "rtems_port_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Port_Create_Base ( Result := Port_Create_Base (
@@ -1567,7 +1570,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_Ident_Base, "rtems_port_ident"); pragma Import (C, Port_Ident_Base, "rtems_port_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Port_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Port_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -1602,7 +1605,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_External_To_Internal_Base, pragma Import (C, Port_External_To_Internal_Base,
"rtems_port_external_to_internal"); "rtems_port_external_to_internal");
Internal_Base : aliased RTEMS.Address := Internal; Internal_Base : aliased RTEMS.Address;
begin begin
Result := Port_External_To_Internal_Base ( Result := Port_External_To_Internal_Base (
@@ -1627,7 +1630,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_Internal_To_External_Base, pragma Import (C, Port_Internal_To_External_Base,
"rtems_port_internal_to_external"); "rtems_port_internal_to_external");
External_Base : aliased RTEMS.Address := External; External_Base : aliased RTEMS.Address;
begin begin
Result := Port_Internal_To_External_Base ( Result := Port_Internal_To_External_Base (
@@ -1823,7 +1826,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create"); pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access ); Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access );
@@ -1841,7 +1844,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident"); pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Rate_Monotonic_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Rate_Monotonic_Ident_Base ( Name, ID_Base'Unchecked_Access );

4
cpukit/ada/ChangeLog
View File

@@ -1,3 +1,7 @@
2005-05-03 Joel Sherrill <joel@OARcorp.com>
* rtems.adb: Remove gcc 4.x warnings.
2005-05-02 Ralf Corsepius <ralf.corsepius@rtems.org> 2005-05-02 Ralf Corsepius <ralf.corsepius@rtems.org>
PR 782/rtems PR 782/rtems

67
cpukit/ada/rtems.adb
View File

@@ -302,7 +302,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Create_Base, "rtems_task_create"); pragma Import (C, Task_Create_Base, "rtems_task_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Task_Create_Base ( Result := Task_Create_Base (
Name, Name,
@@ -328,7 +328,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Ident_Base, "rtems_task_ident"); pragma Import (C, Task_Ident_Base, "rtems_task_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
@@ -425,7 +425,7 @@ package body RTEMS is
Old_Priority : access RTEMS.Task_Priority Old_Priority : access RTEMS.Task_Priority
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority"); pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority");
Old_Priority_Base : aliased RTEMS.Task_Priority := Old_Priority; Old_Priority_Base : aliased RTEMS.Task_Priority;
begin begin
Result := Task_Set_Priority_Base ( Result := Task_Set_Priority_Base (
@@ -449,7 +449,7 @@ package body RTEMS is
Previous_Mode_Set : access RTEMS.Mode Previous_Mode_Set : access RTEMS.Mode
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Mode_Base, "rtems_task_mode"); pragma Import (C, Task_Mode_Base, "rtems_task_mode");
Previous_Mode_Set_Base : aliased RTEMS.Mode := Previous_Mode_Set; Previous_Mode_Set_Base : aliased RTEMS.Mode;
begin begin
Result := Task_Mode_Base ( Result := Task_Mode_Base (
@@ -473,11 +473,11 @@ package body RTEMS is
Note : access RTEMS.Unsigned32 Note : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note"); pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note");
Note_Base : aliased RTEMS.Unsigned32 := Note; Note_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access ); Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access );
Note := NOTE_Base; Note := Note_Base;
end Task_Get_Note; end Task_Get_Note;
@@ -518,6 +518,8 @@ package body RTEMS is
) is ) is
begin begin
-- FIXME -- FIXME
Task_Variable := RTEMS.Null_Address;
Task_Variable_Value := RTEMS.Null_Address;
Result := Internal_Error; Result := Internal_Error;
end Task_Variable_Get; end Task_Variable_Get;
@@ -528,6 +530,7 @@ package body RTEMS is
) is ) is
begin begin
-- FIXME -- FIXME
Task_Variable := RTEMS.Null_Address;
Result := Internal_Error; Result := Internal_Error;
end Task_Variable_Delete; end Task_Variable_Delete;
@@ -575,13 +578,13 @@ package body RTEMS is
Old_ISR_Handler : access RTEMS.Address Old_ISR_Handler : access RTEMS.Address
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch"); pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch");
Old_ISR_Handler_Base : aliased RTEMS.Address := Old_ISR_Handler; Old_ISR_Handler_Base : aliased RTEMS.Address;
begin begin
Result := Interrupt_Catch_Base ( Result := Interrupt_Catch_Base (
New_ISR_Handler, New_ISR_Handler,
Vector, Vector,
OLD_ISR_HANDLER_Base'Unchecked_Access Old_ISR_Handler_Base'Unchecked_Access
); );
Old_ISR_Handler := OLD_ISR_HANDLER_Base; Old_ISR_Handler := OLD_ISR_HANDLER_Base;
@@ -653,7 +656,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Extension_Create_Base, "rtems_extension_create"); pragma Import (C, Extension_Create_Base, "rtems_extension_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Extension_Create_Base ( Name, Table, ID_Base'Unchecked_Access ); Result := Extension_Create_Base ( Name, Table, ID_Base'Unchecked_Access );
@@ -671,7 +674,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Extension_Ident_Base, "rtems_extension_ident"); pragma Import (C, Extension_Ident_Base, "rtems_extension_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Extension_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Extension_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -707,7 +710,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Timer_Create_Base, "rtems_timer_create"); pragma Import (C, Timer_Create_Base, "rtems_timer_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Timer_Create_Base ( Name, ID_Base'Unchecked_Access ); Result := Timer_Create_Base ( Name, ID_Base'Unchecked_Access );
@@ -725,7 +728,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Timer_Ident_Base, "rtems_timer_ident"); pragma Import (C, Timer_Ident_Base, "rtems_timer_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Timer_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Timer_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -907,7 +910,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create"); pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Semaphore_Create_Base ( Result := Semaphore_Create_Base (
@@ -947,7 +950,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident"); pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Semaphore_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); Result := Semaphore_Ident_Base ( Name, Node, ID_Base'Unchecked_Access );
@@ -1009,7 +1012,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, pragma Import (C,
Message_Queue_Create_Base, "rtems_message_queue_create"); Message_Queue_Create_Base, "rtems_message_queue_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Message_Queue_Create_Base ( Result := Message_Queue_Create_Base (
@@ -1035,7 +1038,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident"); pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Result :=
@@ -1111,7 +1114,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Message_Queue_Broadcast_Base, pragma Import (C, Message_Queue_Broadcast_Base,
"rtems_message_queue_broadcast"); "rtems_message_queue_broadcast");
Count_Base : aliased RTEMS.Unsigned32 := Count; Count_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Message_Queue_Broadcast_Base ( Result := Message_Queue_Broadcast_Base (
@@ -1165,7 +1168,7 @@ package body RTEMS is
Count : access RTEMS.Unsigned32 Count : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush"); pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush");
COUNT_Base : aliased RTEMS.Unsigned32 := Count; COUNT_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Message_Queue_Flush_Base ( ID, COUNT_Base'Unchecked_Access ); Result := Message_Queue_Flush_Base ( ID, COUNT_Base'Unchecked_Access );
@@ -1207,7 +1210,7 @@ package body RTEMS is
Event_Out : access RTEMS.Event_Set Event_Out : access RTEMS.Event_Set
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Event_Receive_Base, "rtems_event_receive"); pragma Import (C, Event_Receive_Base, "rtems_event_receive");
Event_Out_Base : aliased RTEMS.Event_Set; -- := Event_Out; Event_Out_Base : aliased RTEMS.Event_Set;
begin begin
Result := Event_Receive_Base ( Result := Event_Receive_Base (
@@ -1279,7 +1282,7 @@ package body RTEMS is
ID : access RTEMS.Event_Set ID : access RTEMS.Event_Set
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Partition_Create_Base, "rtems_partition_create"); pragma Import (C, Partition_Create_Base, "rtems_partition_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Partition_Create_Base ( Result := Partition_Create_Base (
@@ -1306,7 +1309,7 @@ package body RTEMS is
ID : access RTEMS.Event_Set ID : access RTEMS.Event_Set
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Partition_Ident_Base, "rtems_partition_ident"); pragma Import (C, Partition_Ident_Base, "rtems_partition_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Partition_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); Result := Partition_Ident_Base ( Name, Node, ID_Base'Unchecked_Access );
@@ -1339,7 +1342,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Partition_Get_Buffer_Base, pragma Import (C, Partition_Get_Buffer_Base,
"rtems_partition_get_buffer"); "rtems_partition_get_buffer");
Buffer_Base : aliased RTEMS.Address := Buffer; Buffer_Base : aliased RTEMS.Address;
begin begin
Result := Partition_Get_Buffer_Base ( ID, Buffer_Base'Unchecked_Access ); Result := Partition_Get_Buffer_Base ( ID, Buffer_Base'Unchecked_Access );
@@ -1386,7 +1389,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Create_Base, "rtems_region_create"); pragma Import (C, Region_Create_Base, "rtems_region_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Region_Create_Base ( Result := Region_Create_Base (
@@ -1411,7 +1414,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Ident_Base, "rtems_region_ident"); pragma Import (C, Region_Ident_Base, "rtems_region_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Region_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Region_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -1467,7 +1470,7 @@ package body RTEMS is
Segment : access RTEMS.Address Segment : access RTEMS.Address
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment"); pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment");
Segment_Base : aliased RTEMS.Address := Segment; Segment_Base : aliased RTEMS.Address;
begin begin
Result := Region_Get_Segment_Base ( Result := Region_Get_Segment_Base (
@@ -1494,7 +1497,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Region_Get_Segment_Size_Base, pragma Import (C, Region_Get_Segment_Size_Base,
"rtems_region_get_segment_size"); "rtems_region_get_segment_size");
Size_Base : aliased RTEMS.Unsigned32 := Size; Size_Base : aliased RTEMS.Unsigned32;
begin begin
Result := Region_Get_Segment_Size_Base ( Result := Region_Get_Segment_Size_Base (
@@ -1543,7 +1546,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_Create_Base, "rtems_port_create"); pragma Import (C, Port_Create_Base, "rtems_port_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Port_Create_Base ( Result := Port_Create_Base (
@@ -1567,7 +1570,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_Ident_Base, "rtems_port_ident"); pragma Import (C, Port_Ident_Base, "rtems_port_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Port_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Port_Ident_Base ( Name, ID_Base'Unchecked_Access );
@@ -1602,7 +1605,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_External_To_Internal_Base, pragma Import (C, Port_External_To_Internal_Base,
"rtems_port_external_to_internal"); "rtems_port_external_to_internal");
Internal_Base : aliased RTEMS.Address := Internal; Internal_Base : aliased RTEMS.Address;
begin begin
Result := Port_External_To_Internal_Base ( Result := Port_External_To_Internal_Base (
@@ -1627,7 +1630,7 @@ package body RTEMS is
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Port_Internal_To_External_Base, pragma Import (C, Port_Internal_To_External_Base,
"rtems_port_internal_to_external"); "rtems_port_internal_to_external");
External_Base : aliased RTEMS.Address := External; External_Base : aliased RTEMS.Address;
begin begin
Result := Port_Internal_To_External_Base ( Result := Port_Internal_To_External_Base (
@@ -1823,7 +1826,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create"); pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access ); Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access );
@@ -1841,7 +1844,7 @@ package body RTEMS is
ID : access RTEMS.ID ID : access RTEMS.ID
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident"); pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident");
ID_Base : aliased RTEMS.ID := ID; ID_Base : aliased RTEMS.ID;
begin begin
Result := Rate_Monotonic_Ident_Base ( Name, ID_Base'Unchecked_Access ); Result := Rate_Monotonic_Ident_Base ( Name, ID_Base'Unchecked_Access );