Changeset 901eef9a in rtems


Ignore:
Timestamp:
May 3, 2005, 8:36:03 PM (16 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
820901ba
Parents:
14225faa
Message:

2005-05-03 Joel Sherrill <joel@…>

  • rtems.adb: Remove gcc 4.x warnings.
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/ChangeLog

    r14225faa r901eef9a  
     12005-05-03      Joel Sherrill <joel@OARcorp.com>
     2
     3        * rtems.adb: Remove gcc 4.x warnings.
     4
    152005-05-02      Ralf Corsepius <ralf.corsepius@rtems.org>
    26
  • c/src/ada/rtems.adb

    r14225faa r901eef9a  
    303303      )  return RTEMS.Status_Codes;
    304304      pragma Import (C, Task_Create_Base, "rtems_task_create");
    305       ID_Base : aliased RTEMS.ID := ID;
     305      ID_Base : aliased RTEMS.ID;
    306306   begin
    307307      Result := Task_Create_Base (
     
    329329      )  return RTEMS.Status_Codes;
    330330      pragma Import (C, Task_Ident_Base, "rtems_task_ident");
    331       ID_Base     : aliased RTEMS.ID := ID;
     331      ID_Base     : aliased RTEMS.ID;
    332332
    333333   begin
     
    426426      )  return RTEMS.Status_Codes;
    427427      pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority");
    428       Old_Priority_Base : aliased RTEMS.Task_Priority := Old_Priority;
     428      Old_Priority_Base : aliased RTEMS.Task_Priority;
    429429   begin
    430430 
     
    450450      )  return RTEMS.Status_Codes;
    451451      pragma Import (C, Task_Mode_Base, "rtems_task_mode");
    452       Previous_Mode_Set_Base : aliased RTEMS.Mode := Previous_Mode_Set;
     452      Previous_Mode_Set_Base : aliased RTEMS.Mode;
    453453   begin
    454454
     
    474474      )  return RTEMS.Status_Codes;
    475475      pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note");
    476       Note_Base : aliased RTEMS.Unsigned32 := Note;
     476      Note_Base : aliased RTEMS.Unsigned32;
    477477   begin
    478478
    479479      Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access );
    480       Note := NOTE_Base;
     480      Note := Note_Base;
    481481
    482482   end Task_Get_Note;
     
    519519   begin
    520520     -- FIXME
     521     Task_Variable := RTEMS.Null_Address;
     522     Task_Variable_Value := RTEMS.Null_Address;
    521523     Result := Internal_Error;
    522524   end Task_Variable_Get;
     
    529531   begin
    530532     -- FIXME
     533     Task_Variable := RTEMS.Null_Address;
    531534     Result := Internal_Error;
    532535   end Task_Variable_Delete;
     
    576579      )  return RTEMS.Status_Codes;
    577580      pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch");
    578       Old_ISR_Handler_Base : aliased RTEMS.Address := Old_ISR_Handler;
     581      Old_ISR_Handler_Base : aliased RTEMS.Address;
    579582   begin
    580583 
     
    582585         New_ISR_Handler,
    583586         Vector,
    584          OLD_ISR_HANDLER_Base'Unchecked_Access
     587         Old_ISR_Handler_Base'Unchecked_Access
    585588      );
    586589      Old_ISR_Handler := OLD_ISR_HANDLER_Base;
     
    654657      )  return RTEMS.Status_Codes;
    655658      pragma Import (C, Extension_Create_Base, "rtems_extension_create");
    656       ID_Base : aliased RTEMS.ID := ID;
     659      ID_Base : aliased RTEMS.ID;
    657660   begin
    658661 
     
    672675      )  return RTEMS.Status_Codes;
    673676      pragma Import (C, Extension_Ident_Base, "rtems_extension_ident");
    674       ID_Base : aliased RTEMS.ID := ID;
     677      ID_Base : aliased RTEMS.ID;
    675678   begin
    676679 
     
    708711      )  return RTEMS.Status_Codes;
    709712      pragma Import (C, Timer_Create_Base, "rtems_timer_create");
    710       ID_Base : aliased RTEMS.ID := ID;
     713      ID_Base : aliased RTEMS.ID;
    711714   begin
    712715 
     
    726729      )  return RTEMS.Status_Codes;
    727730      pragma Import (C, Timer_Ident_Base, "rtems_timer_ident");
    728       ID_Base : aliased RTEMS.ID := ID;
     731      ID_Base : aliased RTEMS.ID;
    729732   begin
    730733 
     
    908911      )  return RTEMS.Status_Codes;
    909912      pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
    910       ID_Base : aliased RTEMS.ID := ID;
     913      ID_Base : aliased RTEMS.ID;
    911914   begin
    912915 
     
    948951      )  return RTEMS.Status_Codes;
    949952      pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident");
    950       ID_Base : aliased RTEMS.ID := ID;
     953      ID_Base : aliased RTEMS.ID;
    951954   begin
    952955 
     
    10101013      pragma Import (C,
    10111014        Message_Queue_Create_Base, "rtems_message_queue_create");
    1012       ID_Base : aliased RTEMS.ID := ID;
     1015      ID_Base : aliased RTEMS.ID;
    10131016   begin
    10141017 
     
    10361039      )  return RTEMS.Status_Codes;
    10371040      pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident");
    1038       ID_Base : aliased RTEMS.ID := ID;
     1041      ID_Base : aliased RTEMS.ID;
    10391042   begin
    10401043 
     
    11121115      pragma Import (C, Message_Queue_Broadcast_Base,
    11131116         "rtems_message_queue_broadcast");
    1114       Count_Base : aliased RTEMS.Unsigned32 := Count;
     1117      Count_Base : aliased RTEMS.Unsigned32;
    11151118   begin
    11161119 
     
    11661169      )  return RTEMS.Status_Codes;
    11671170      pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush");
    1168       COUNT_Base : aliased RTEMS.Unsigned32 := Count;
     1171      COUNT_Base : aliased RTEMS.Unsigned32;
    11691172   begin
    11701173 
     
    12081211      )  return RTEMS.Status_Codes;
    12091212      pragma Import (C, Event_Receive_Base, "rtems_event_receive");
    1210       Event_Out_Base : aliased RTEMS.Event_Set; -- := Event_Out;
     1213      Event_Out_Base : aliased RTEMS.Event_Set;
    12111214   begin
    12121215
     
    12801283      )  return RTEMS.Status_Codes;
    12811284      pragma Import (C, Partition_Create_Base, "rtems_partition_create");
    1282       ID_Base : aliased RTEMS.ID := ID;
     1285      ID_Base : aliased RTEMS.ID;
    12831286   begin
    12841287 
     
    13071310      )  return RTEMS.Status_Codes;
    13081311      pragma Import (C, Partition_Ident_Base, "rtems_partition_ident");
    1309       ID_Base : aliased RTEMS.ID := ID;
     1312      ID_Base : aliased RTEMS.ID;
    13101313   begin
    13111314 
     
    13401343      pragma Import (C, Partition_Get_Buffer_Base,
    13411344         "rtems_partition_get_buffer");
    1342       Buffer_Base : aliased RTEMS.Address := Buffer;
     1345      Buffer_Base : aliased RTEMS.Address;
    13431346   begin
    13441347 
     
    13871390      )  return RTEMS.Status_Codes;
    13881391      pragma Import (C, Region_Create_Base, "rtems_region_create");
    1389       ID_Base : aliased RTEMS.ID := ID;
     1392      ID_Base : aliased RTEMS.ID;
    13901393   begin
    13911394 
     
    14121415      )  return RTEMS.Status_Codes;
    14131416      pragma Import (C, Region_Ident_Base, "rtems_region_ident");
    1414       ID_Base : aliased RTEMS.ID := ID;
     1417      ID_Base : aliased RTEMS.ID;
    14151418   begin
    14161419 
     
    14681471      )  return RTEMS.Status_Codes;
    14691472      pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment");
    1470       Segment_Base : aliased RTEMS.Address := Segment;
     1473      Segment_Base : aliased RTEMS.Address;
    14711474   begin
    14721475 
     
    14951498      pragma Import (C, Region_Get_Segment_Size_Base,
    14961499         "rtems_region_get_segment_size");
    1497       Size_Base : aliased RTEMS.Unsigned32 := Size;
     1500      Size_Base : aliased RTEMS.Unsigned32;
    14981501   begin
    14991502 
     
    15441547      )  return RTEMS.Status_Codes;
    15451548      pragma Import (C, Port_Create_Base, "rtems_port_create");
    1546       ID_Base : aliased RTEMS.ID := ID;
     1549      ID_Base : aliased RTEMS.ID;
    15471550   begin
    15481551 
     
    15681571      )  return RTEMS.Status_Codes;
    15691572      pragma Import (C, Port_Ident_Base, "rtems_port_ident");
    1570       ID_Base : aliased RTEMS.ID := ID;
     1573      ID_Base : aliased RTEMS.ID;
    15711574   begin
    15721575 
     
    16031606      pragma Import (C, Port_External_To_Internal_Base,
    16041607         "rtems_port_external_to_internal");
    1605       Internal_Base : aliased RTEMS.Address := Internal;
     1608      Internal_Base : aliased RTEMS.Address;
    16061609   begin
    16071610 
     
    16281631      pragma Import (C, Port_Internal_To_External_Base,
    16291632         "rtems_port_internal_to_external");
    1630       External_Base : aliased RTEMS.Address := External;
     1633      External_Base : aliased RTEMS.Address;
    16311634   begin
    16321635 
     
    18241827      )  return RTEMS.Status_Codes;
    18251828      pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create");
    1826       ID_Base : aliased RTEMS.ID := ID;
     1829      ID_Base : aliased RTEMS.ID;
    18271830   begin
    18281831 
     
    18421845      )  return RTEMS.Status_Codes;
    18431846      pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident");
    1844       ID_Base : aliased RTEMS.ID := ID;
     1847      ID_Base : aliased RTEMS.ID;
    18451848   begin
    18461849 
  • cpukit/ada/ChangeLog

    r14225faa r901eef9a  
     12005-05-03      Joel Sherrill <joel@OARcorp.com>
     2
     3        * rtems.adb: Remove gcc 4.x warnings.
     4
    152005-05-02      Ralf Corsepius <ralf.corsepius@rtems.org>
    26
  • cpukit/ada/rtems.adb

    r14225faa r901eef9a  
    303303      )  return RTEMS.Status_Codes;
    304304      pragma Import (C, Task_Create_Base, "rtems_task_create");
    305       ID_Base : aliased RTEMS.ID := ID;
     305      ID_Base : aliased RTEMS.ID;
    306306   begin
    307307      Result := Task_Create_Base (
     
    329329      )  return RTEMS.Status_Codes;
    330330      pragma Import (C, Task_Ident_Base, "rtems_task_ident");
    331       ID_Base     : aliased RTEMS.ID := ID;
     331      ID_Base     : aliased RTEMS.ID;
    332332
    333333   begin
     
    426426      )  return RTEMS.Status_Codes;
    427427      pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority");
    428       Old_Priority_Base : aliased RTEMS.Task_Priority := Old_Priority;
     428      Old_Priority_Base : aliased RTEMS.Task_Priority;
    429429   begin
    430430 
     
    450450      )  return RTEMS.Status_Codes;
    451451      pragma Import (C, Task_Mode_Base, "rtems_task_mode");
    452       Previous_Mode_Set_Base : aliased RTEMS.Mode := Previous_Mode_Set;
     452      Previous_Mode_Set_Base : aliased RTEMS.Mode;
    453453   begin
    454454
     
    474474      )  return RTEMS.Status_Codes;
    475475      pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note");
    476       Note_Base : aliased RTEMS.Unsigned32 := Note;
     476      Note_Base : aliased RTEMS.Unsigned32;
    477477   begin
    478478
    479479      Result := Task_Get_Note_Base ( ID, Notepad, Note_Base'Unchecked_Access );
    480       Note := NOTE_Base;
     480      Note := Note_Base;
    481481
    482482   end Task_Get_Note;
     
    519519   begin
    520520     -- FIXME
     521     Task_Variable := RTEMS.Null_Address;
     522     Task_Variable_Value := RTEMS.Null_Address;
    521523     Result := Internal_Error;
    522524   end Task_Variable_Get;
     
    529531   begin
    530532     -- FIXME
     533     Task_Variable := RTEMS.Null_Address;
    531534     Result := Internal_Error;
    532535   end Task_Variable_Delete;
     
    576579      )  return RTEMS.Status_Codes;
    577580      pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch");
    578       Old_ISR_Handler_Base : aliased RTEMS.Address := Old_ISR_Handler;
     581      Old_ISR_Handler_Base : aliased RTEMS.Address;
    579582   begin
    580583 
     
    582585         New_ISR_Handler,
    583586         Vector,
    584          OLD_ISR_HANDLER_Base'Unchecked_Access
     587         Old_ISR_Handler_Base'Unchecked_Access
    585588      );
    586589      Old_ISR_Handler := OLD_ISR_HANDLER_Base;
     
    654657      )  return RTEMS.Status_Codes;
    655658      pragma Import (C, Extension_Create_Base, "rtems_extension_create");
    656       ID_Base : aliased RTEMS.ID := ID;
     659      ID_Base : aliased RTEMS.ID;
    657660   begin
    658661 
     
    672675      )  return RTEMS.Status_Codes;
    673676      pragma Import (C, Extension_Ident_Base, "rtems_extension_ident");
    674       ID_Base : aliased RTEMS.ID := ID;
     677      ID_Base : aliased RTEMS.ID;
    675678   begin
    676679 
     
    708711      )  return RTEMS.Status_Codes;
    709712      pragma Import (C, Timer_Create_Base, "rtems_timer_create");
    710       ID_Base : aliased RTEMS.ID := ID;
     713      ID_Base : aliased RTEMS.ID;
    711714   begin
    712715 
     
    726729      )  return RTEMS.Status_Codes;
    727730      pragma Import (C, Timer_Ident_Base, "rtems_timer_ident");
    728       ID_Base : aliased RTEMS.ID := ID;
     731      ID_Base : aliased RTEMS.ID;
    729732   begin
    730733 
     
    908911      )  return RTEMS.Status_Codes;
    909912      pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
    910       ID_Base : aliased RTEMS.ID := ID;
     913      ID_Base : aliased RTEMS.ID;
    911914   begin
    912915 
     
    948951      )  return RTEMS.Status_Codes;
    949952      pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident");
    950       ID_Base : aliased RTEMS.ID := ID;
     953      ID_Base : aliased RTEMS.ID;
    951954   begin
    952955 
     
    10101013      pragma Import (C,
    10111014        Message_Queue_Create_Base, "rtems_message_queue_create");
    1012       ID_Base : aliased RTEMS.ID := ID;
     1015      ID_Base : aliased RTEMS.ID;
    10131016   begin
    10141017 
     
    10361039      )  return RTEMS.Status_Codes;
    10371040      pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident");
    1038       ID_Base : aliased RTEMS.ID := ID;
     1041      ID_Base : aliased RTEMS.ID;
    10391042   begin
    10401043 
     
    11121115      pragma Import (C, Message_Queue_Broadcast_Base,
    11131116         "rtems_message_queue_broadcast");
    1114       Count_Base : aliased RTEMS.Unsigned32 := Count;
     1117      Count_Base : aliased RTEMS.Unsigned32;
    11151118   begin
    11161119 
     
    11661169      )  return RTEMS.Status_Codes;
    11671170      pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush");
    1168       COUNT_Base : aliased RTEMS.Unsigned32 := Count;
     1171      COUNT_Base : aliased RTEMS.Unsigned32;
    11691172   begin
    11701173 
     
    12081211      )  return RTEMS.Status_Codes;
    12091212      pragma Import (C, Event_Receive_Base, "rtems_event_receive");
    1210       Event_Out_Base : aliased RTEMS.Event_Set; -- := Event_Out;
     1213      Event_Out_Base : aliased RTEMS.Event_Set;
    12111214   begin
    12121215
     
    12801283      )  return RTEMS.Status_Codes;
    12811284      pragma Import (C, Partition_Create_Base, "rtems_partition_create");
    1282       ID_Base : aliased RTEMS.ID := ID;
     1285      ID_Base : aliased RTEMS.ID;
    12831286   begin
    12841287 
     
    13071310      )  return RTEMS.Status_Codes;
    13081311      pragma Import (C, Partition_Ident_Base, "rtems_partition_ident");
    1309       ID_Base : aliased RTEMS.ID := ID;
     1312      ID_Base : aliased RTEMS.ID;
    13101313   begin
    13111314 
     
    13401343      pragma Import (C, Partition_Get_Buffer_Base,
    13411344         "rtems_partition_get_buffer");
    1342       Buffer_Base : aliased RTEMS.Address := Buffer;
     1345      Buffer_Base : aliased RTEMS.Address;
    13431346   begin
    13441347 
     
    13871390      )  return RTEMS.Status_Codes;
    13881391      pragma Import (C, Region_Create_Base, "rtems_region_create");
    1389       ID_Base : aliased RTEMS.ID := ID;
     1392      ID_Base : aliased RTEMS.ID;
    13901393   begin
    13911394 
     
    14121415      )  return RTEMS.Status_Codes;
    14131416      pragma Import (C, Region_Ident_Base, "rtems_region_ident");
    1414       ID_Base : aliased RTEMS.ID := ID;
     1417      ID_Base : aliased RTEMS.ID;
    14151418   begin
    14161419 
     
    14681471      )  return RTEMS.Status_Codes;
    14691472      pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment");
    1470       Segment_Base : aliased RTEMS.Address := Segment;
     1473      Segment_Base : aliased RTEMS.Address;
    14711474   begin
    14721475 
     
    14951498      pragma Import (C, Region_Get_Segment_Size_Base,
    14961499         "rtems_region_get_segment_size");
    1497       Size_Base : aliased RTEMS.Unsigned32 := Size;
     1500      Size_Base : aliased RTEMS.Unsigned32;
    14981501   begin
    14991502 
     
    15441547      )  return RTEMS.Status_Codes;
    15451548      pragma Import (C, Port_Create_Base, "rtems_port_create");
    1546       ID_Base : aliased RTEMS.ID := ID;
     1549      ID_Base : aliased RTEMS.ID;
    15471550   begin
    15481551 
     
    15681571      )  return RTEMS.Status_Codes;
    15691572      pragma Import (C, Port_Ident_Base, "rtems_port_ident");
    1570       ID_Base : aliased RTEMS.ID := ID;
     1573      ID_Base : aliased RTEMS.ID;
    15711574   begin
    15721575 
     
    16031606      pragma Import (C, Port_External_To_Internal_Base,
    16041607         "rtems_port_external_to_internal");
    1605       Internal_Base : aliased RTEMS.Address := Internal;
     1608      Internal_Base : aliased RTEMS.Address;
    16061609   begin
    16071610 
     
    16281631      pragma Import (C, Port_Internal_To_External_Base,
    16291632         "rtems_port_internal_to_external");
    1630       External_Base : aliased RTEMS.Address := External;
     1633      External_Base : aliased RTEMS.Address;
    16311634   begin
    16321635 
     
    18241827      )  return RTEMS.Status_Codes;
    18251828      pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create");
    1826       ID_Base : aliased RTEMS.ID := ID;
     1829      ID_Base : aliased RTEMS.ID;
    18271830   begin
    18281831 
     
    18421845      )  return RTEMS.Status_Codes;
    18431846      pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident");
    1844       ID_Base : aliased RTEMS.ID := ID;
     1847      ID_Base : aliased RTEMS.ID;
    18451848   begin
    18461849 
Note: See TracChangeset for help on using the changeset viewer.