From 901eef9a79fffcf210721b07ee402fdc02a69231 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 3 May 2005 20:36:03 +0000 Subject: 2005-05-03 Joel Sherrill * rtems.adb: Remove gcc 4.x warnings. --- c/src/ada/ChangeLog | 4 ++++ c/src/ada/rtems.adb | 67 +++++++++++++++++++++++++++------------------------- cpukit/ada/ChangeLog | 4 ++++ cpukit/ada/rtems.adb | 67 +++++++++++++++++++++++++++------------------------- 4 files changed, 78 insertions(+), 64 deletions(-) diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 7db7f3a33a..ee77bf7c39 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,7 @@ +2005-05-03 Joel Sherrill + + * rtems.adb: Remove gcc 4.x warnings. + 2005-05-02 Ralf Corsepius PR 782/rtems diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 1a344b7ba1..72ee262e59 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -302,7 +302,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Task_Create_Base, "rtems_task_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Task_Create_Base ( Name, @@ -328,7 +328,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Task_Ident_Base, "rtems_task_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin @@ -425,7 +425,7 @@ package body RTEMS is Old_Priority : access RTEMS.Task_Priority ) return RTEMS.Status_Codes; 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 Result := Task_Set_Priority_Base ( @@ -449,7 +449,7 @@ package body RTEMS is Previous_Mode_Set : access RTEMS.Mode ) return RTEMS.Status_Codes; 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 Result := Task_Mode_Base ( @@ -473,11 +473,11 @@ package body RTEMS is Note : access RTEMS.Unsigned32 ) return RTEMS.Status_Codes; pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note"); - Note_Base : aliased RTEMS.Unsigned32 := Note; + Note_Base : aliased RTEMS.Unsigned32; begin Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access ); - Note := NOTE_Base; + Note := Note_Base; end Task_Get_Note; @@ -518,6 +518,8 @@ package body RTEMS is ) is begin -- FIXME + Task_Variable := RTEMS.Null_Address; + Task_Variable_Value := RTEMS.Null_Address; Result := Internal_Error; end Task_Variable_Get; @@ -528,6 +530,7 @@ package body RTEMS is ) is begin -- FIXME + Task_Variable := RTEMS.Null_Address; Result := Internal_Error; end Task_Variable_Delete; @@ -575,13 +578,13 @@ package body RTEMS is Old_ISR_Handler : access RTEMS.Address ) return RTEMS.Status_Codes; 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 Result := Interrupt_Catch_Base ( New_ISR_Handler, Vector, - OLD_ISR_HANDLER_Base'Unchecked_Access + Old_ISR_Handler_Base'Unchecked_Access ); Old_ISR_Handler := OLD_ISR_HANDLER_Base; @@ -653,7 +656,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Extension_Create_Base, "rtems_extension_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Extension_Create_Base ( Name, Table, ID_Base'Unchecked_Access ); @@ -671,7 +674,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Extension_Ident_Base, "rtems_extension_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Extension_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -707,7 +710,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Timer_Create_Base, "rtems_timer_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Timer_Create_Base ( Name, ID_Base'Unchecked_Access ); @@ -725,7 +728,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Timer_Ident_Base, "rtems_timer_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Timer_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -907,7 +910,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Semaphore_Create_Base ( @@ -947,7 +950,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Semaphore_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); @@ -1009,7 +1012,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Create_Base, "rtems_message_queue_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Message_Queue_Create_Base ( @@ -1035,7 +1038,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := @@ -1111,7 +1114,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Broadcast_Base, "rtems_message_queue_broadcast"); - Count_Base : aliased RTEMS.Unsigned32 := Count; + Count_Base : aliased RTEMS.Unsigned32; begin Result := Message_Queue_Broadcast_Base ( @@ -1165,7 +1168,7 @@ package body RTEMS is Count : access RTEMS.Unsigned32 ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush"); - COUNT_Base : aliased RTEMS.Unsigned32 := Count; + COUNT_Base : aliased RTEMS.Unsigned32; begin Result := Message_Queue_Flush_Base ( ID, COUNT_Base'Unchecked_Access ); @@ -1207,7 +1210,7 @@ package body RTEMS is Event_Out : access RTEMS.Event_Set ) return RTEMS.Status_Codes; 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 Result := Event_Receive_Base ( @@ -1279,7 +1282,7 @@ package body RTEMS is ID : access RTEMS.Event_Set ) return RTEMS.Status_Codes; pragma Import (C, Partition_Create_Base, "rtems_partition_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Partition_Create_Base ( @@ -1306,7 +1309,7 @@ package body RTEMS is ID : access RTEMS.Event_Set ) return RTEMS.Status_Codes; pragma Import (C, Partition_Ident_Base, "rtems_partition_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Partition_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); @@ -1339,7 +1342,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Partition_Get_Buffer_Base, "rtems_partition_get_buffer"); - Buffer_Base : aliased RTEMS.Address := Buffer; + Buffer_Base : aliased RTEMS.Address; begin Result := Partition_Get_Buffer_Base ( ID, Buffer_Base'Unchecked_Access ); @@ -1386,7 +1389,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Region_Create_Base, "rtems_region_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Region_Create_Base ( @@ -1411,7 +1414,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Region_Ident_Base, "rtems_region_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Region_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -1467,7 +1470,7 @@ package body RTEMS is Segment : access RTEMS.Address ) return RTEMS.Status_Codes; pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment"); - Segment_Base : aliased RTEMS.Address := Segment; + Segment_Base : aliased RTEMS.Address; begin Result := Region_Get_Segment_Base ( @@ -1494,7 +1497,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Region_Get_Segment_Size_Base, "rtems_region_get_segment_size"); - Size_Base : aliased RTEMS.Unsigned32 := Size; + Size_Base : aliased RTEMS.Unsigned32; begin Result := Region_Get_Segment_Size_Base ( @@ -1543,7 +1546,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Port_Create_Base, "rtems_port_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Port_Create_Base ( @@ -1567,7 +1570,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Port_Ident_Base, "rtems_port_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Port_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -1602,7 +1605,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Port_External_To_Internal_Base, "rtems_port_external_to_internal"); - Internal_Base : aliased RTEMS.Address := Internal; + Internal_Base : aliased RTEMS.Address; begin Result := Port_External_To_Internal_Base ( @@ -1627,7 +1630,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Port_Internal_To_External_Base, "rtems_port_internal_to_external"); - External_Base : aliased RTEMS.Address := External; + External_Base : aliased RTEMS.Address; begin Result := Port_Internal_To_External_Base ( @@ -1823,7 +1826,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access ); @@ -1841,7 +1844,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Rate_Monotonic_Ident_Base ( Name, ID_Base'Unchecked_Access ); diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog index 7db7f3a33a..ee77bf7c39 100644 --- a/cpukit/ada/ChangeLog +++ b/cpukit/ada/ChangeLog @@ -1,3 +1,7 @@ +2005-05-03 Joel Sherrill + + * rtems.adb: Remove gcc 4.x warnings. + 2005-05-02 Ralf Corsepius PR 782/rtems diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb index 1a344b7ba1..72ee262e59 100644 --- a/cpukit/ada/rtems.adb +++ b/cpukit/ada/rtems.adb @@ -302,7 +302,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Task_Create_Base, "rtems_task_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Task_Create_Base ( Name, @@ -328,7 +328,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Task_Ident_Base, "rtems_task_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin @@ -425,7 +425,7 @@ package body RTEMS is Old_Priority : access RTEMS.Task_Priority ) return RTEMS.Status_Codes; 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 Result := Task_Set_Priority_Base ( @@ -449,7 +449,7 @@ package body RTEMS is Previous_Mode_Set : access RTEMS.Mode ) return RTEMS.Status_Codes; 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 Result := Task_Mode_Base ( @@ -473,11 +473,11 @@ package body RTEMS is Note : access RTEMS.Unsigned32 ) return RTEMS.Status_Codes; pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note"); - Note_Base : aliased RTEMS.Unsigned32 := Note; + Note_Base : aliased RTEMS.Unsigned32; begin Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access ); - Note := NOTE_Base; + Note := Note_Base; end Task_Get_Note; @@ -518,6 +518,8 @@ package body RTEMS is ) is begin -- FIXME + Task_Variable := RTEMS.Null_Address; + Task_Variable_Value := RTEMS.Null_Address; Result := Internal_Error; end Task_Variable_Get; @@ -528,6 +530,7 @@ package body RTEMS is ) is begin -- FIXME + Task_Variable := RTEMS.Null_Address; Result := Internal_Error; end Task_Variable_Delete; @@ -575,13 +578,13 @@ package body RTEMS is Old_ISR_Handler : access RTEMS.Address ) return RTEMS.Status_Codes; 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 Result := Interrupt_Catch_Base ( New_ISR_Handler, Vector, - OLD_ISR_HANDLER_Base'Unchecked_Access + Old_ISR_Handler_Base'Unchecked_Access ); Old_ISR_Handler := OLD_ISR_HANDLER_Base; @@ -653,7 +656,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Extension_Create_Base, "rtems_extension_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Extension_Create_Base ( Name, Table, ID_Base'Unchecked_Access ); @@ -671,7 +674,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Extension_Ident_Base, "rtems_extension_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Extension_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -707,7 +710,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Timer_Create_Base, "rtems_timer_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Timer_Create_Base ( Name, ID_Base'Unchecked_Access ); @@ -725,7 +728,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Timer_Ident_Base, "rtems_timer_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Timer_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -907,7 +910,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Semaphore_Create_Base ( @@ -947,7 +950,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Semaphore_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); @@ -1009,7 +1012,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Create_Base, "rtems_message_queue_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Message_Queue_Create_Base ( @@ -1035,7 +1038,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := @@ -1111,7 +1114,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Broadcast_Base, "rtems_message_queue_broadcast"); - Count_Base : aliased RTEMS.Unsigned32 := Count; + Count_Base : aliased RTEMS.Unsigned32; begin Result := Message_Queue_Broadcast_Base ( @@ -1165,7 +1168,7 @@ package body RTEMS is Count : access RTEMS.Unsigned32 ) return RTEMS.Status_Codes; pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush"); - COUNT_Base : aliased RTEMS.Unsigned32 := Count; + COUNT_Base : aliased RTEMS.Unsigned32; begin Result := Message_Queue_Flush_Base ( ID, COUNT_Base'Unchecked_Access ); @@ -1207,7 +1210,7 @@ package body RTEMS is Event_Out : access RTEMS.Event_Set ) return RTEMS.Status_Codes; 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 Result := Event_Receive_Base ( @@ -1279,7 +1282,7 @@ package body RTEMS is ID : access RTEMS.Event_Set ) return RTEMS.Status_Codes; pragma Import (C, Partition_Create_Base, "rtems_partition_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Partition_Create_Base ( @@ -1306,7 +1309,7 @@ package body RTEMS is ID : access RTEMS.Event_Set ) return RTEMS.Status_Codes; pragma Import (C, Partition_Ident_Base, "rtems_partition_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Partition_Ident_Base ( Name, Node, ID_Base'Unchecked_Access ); @@ -1339,7 +1342,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Partition_Get_Buffer_Base, "rtems_partition_get_buffer"); - Buffer_Base : aliased RTEMS.Address := Buffer; + Buffer_Base : aliased RTEMS.Address; begin Result := Partition_Get_Buffer_Base ( ID, Buffer_Base'Unchecked_Access ); @@ -1386,7 +1389,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Region_Create_Base, "rtems_region_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Region_Create_Base ( @@ -1411,7 +1414,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Region_Ident_Base, "rtems_region_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Region_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -1467,7 +1470,7 @@ package body RTEMS is Segment : access RTEMS.Address ) return RTEMS.Status_Codes; pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment"); - Segment_Base : aliased RTEMS.Address := Segment; + Segment_Base : aliased RTEMS.Address; begin Result := Region_Get_Segment_Base ( @@ -1494,7 +1497,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Region_Get_Segment_Size_Base, "rtems_region_get_segment_size"); - Size_Base : aliased RTEMS.Unsigned32 := Size; + Size_Base : aliased RTEMS.Unsigned32; begin Result := Region_Get_Segment_Size_Base ( @@ -1543,7 +1546,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Port_Create_Base, "rtems_port_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Port_Create_Base ( @@ -1567,7 +1570,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Port_Ident_Base, "rtems_port_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Port_Ident_Base ( Name, ID_Base'Unchecked_Access ); @@ -1602,7 +1605,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Port_External_To_Internal_Base, "rtems_port_external_to_internal"); - Internal_Base : aliased RTEMS.Address := Internal; + Internal_Base : aliased RTEMS.Address; begin Result := Port_External_To_Internal_Base ( @@ -1627,7 +1630,7 @@ package body RTEMS is ) return RTEMS.Status_Codes; pragma Import (C, Port_Internal_To_External_Base, "rtems_port_internal_to_external"); - External_Base : aliased RTEMS.Address := External; + External_Base : aliased RTEMS.Address; begin Result := Port_Internal_To_External_Base ( @@ -1823,7 +1826,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Rate_Monotonic_Create_base ( Name, ID_Base'Unchecked_Access ); @@ -1841,7 +1844,7 @@ package body RTEMS is ID : access RTEMS.ID ) return RTEMS.Status_Codes; pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident"); - ID_Base : aliased RTEMS.ID := ID; + ID_Base : aliased RTEMS.ID; begin Result := Rate_Monotonic_Ident_Base ( Name, ID_Base'Unchecked_Access ); -- cgit v1.2.3