Changeset b26e1db6 in rtems


Ignore:
Timestamp:
Sep 5, 2007, 8:42:46 PM (12 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, master
Children:
9773493
Parents:
501ab691
Message:

2007-09-05 Joel Sherrill <joel.sherrill@…>

  • rtems.adb: Fix warnings.
Location:
c/src/ada
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/ChangeLog

    r501ab691 rb26e1db6  
     12007-09-05      Joel Sherrill <joel.sherrill@oarcorp.com>
     2
     3        * rtems.adb: Fix warnings.
     4
    152007-04-02      Jennifer Averett <jennifer.averrett@oarcorp.com>
    26
  • c/src/ada/rtems.adb

    r501ab691 rb26e1db6  
    238238      )  return RTEMS.Status_Codes;
    239239      pragma Import (C, Task_Create_Base, "rtems_task_create");
    240       ID_Base : aliased RTEMS.ID := ID;
     240      ID_Base : aliased RTEMS.ID;
    241241   begin
    242242      Result := Task_Create_Base (
     
    264264      )  return RTEMS.Status_Codes;
    265265      pragma Import (C, Task_Ident_Base, "rtems_task_ident");
    266       ID_Base     : aliased RTEMS.ID := ID;
     266      ID_Base     : aliased RTEMS.ID;
    267267
    268268   begin
     
    361361      )  return RTEMS.Status_Codes;
    362362      pragma Import (C, Task_Set_Priority_Base, "rtems_task_set_priority");
    363       Old_Priority_Base : aliased RTEMS.Task_Priority := Old_Priority;
     363      Old_Priority_Base : aliased RTEMS.Task_Priority;
    364364   begin
    365365 
     
    385385      )  return RTEMS.Status_Codes;
    386386      pragma Import (C, Task_Mode_Base, "rtems_task_mode");
    387       Previous_Mode_Set_Base : aliased RTEMS.Mode := Previous_Mode_Set;
     387      Previous_Mode_Set_Base : aliased RTEMS.Mode;
    388388   begin
    389389
     
    409409      )  return RTEMS.Status_Codes;
    410410      pragma Import (C, Task_Get_Note_Base, "rtems_task_get_note");
    411       Note_Base : aliased RTEMS.Unsigned32 := Note;
     411      Note_Base : aliased RTEMS.Unsigned32;
    412412   begin
    413413
     
    479479      )  return RTEMS.Status_Codes;
    480480      pragma Import (C, Interrupt_Catch_Base, "rtems_interrupt_catch");
    481       Old_ISR_Handler_Base : aliased RTEMS.Address := Old_ISR_Handler;
     481      Old_ISR_Handler_Base : aliased RTEMS.Address;
    482482   begin
    483483 
     
    557557      )  return RTEMS.Status_Codes;
    558558      pragma Import (C, Extension_Create_Base, "rtems_extension_create");
    559       ID_Base : aliased RTEMS.ID := ID;
     559      ID_Base : aliased RTEMS.ID;
    560560   begin
    561561 
     
    575575      )  return RTEMS.Status_Codes;
    576576      pragma Import (C, Extension_Ident_Base, "rtems_extension_ident");
    577       ID_Base : aliased RTEMS.ID := ID;
     577      ID_Base : aliased RTEMS.ID;
    578578   begin
    579579 
     
    611611      )  return RTEMS.Status_Codes;
    612612      pragma Import (C, Timer_Create_Base, "rtems_timer_create");
    613       ID_Base : aliased RTEMS.ID := ID;
     613      ID_Base : aliased RTEMS.ID;
    614614   begin
    615615 
     
    629629      )  return RTEMS.Status_Codes;
    630630      pragma Import (C, Timer_Ident_Base, "rtems_timer_ident");
    631       ID_Base : aliased RTEMS.ID := ID;
     631      ID_Base : aliased RTEMS.ID;
    632632   begin
    633633 
     
    811811      )  return RTEMS.Status_Codes;
    812812      pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
    813       ID_Base : aliased RTEMS.ID := ID;
     813      ID_Base : aliased RTEMS.ID;
    814814   begin
    815815 
     
    851851      )  return RTEMS.Status_Codes;
    852852      pragma Import (C, Semaphore_Ident_Base, "rtems_semaphore_ident");
    853       ID_Base : aliased RTEMS.ID := ID;
     853      ID_Base : aliased RTEMS.ID;
    854854   begin
    855855 
     
    913913      pragma Import (C,
    914914        Message_Queue_Create_Base, "rtems_message_queue_create");
    915       ID_Base : aliased RTEMS.ID := ID;
     915      ID_Base : aliased RTEMS.ID;
    916916   begin
    917917 
     
    939939      )  return RTEMS.Status_Codes;
    940940      pragma Import (C, Message_Queue_Ident_Base, "rtems_message_queue_ident");
    941       ID_Base : aliased RTEMS.ID := ID;
     941      ID_Base : aliased RTEMS.ID;
    942942   begin
    943943 
     
    10151015      pragma Import (C, Message_Queue_Broadcast_Base,
    10161016         "rtems_message_queue_broadcast");
    1017       Count_Base : aliased RTEMS.Unsigned32 := Count;
     1017      Count_Base : aliased RTEMS.Unsigned32;
    10181018   begin
    10191019 
     
    10691069      )  return RTEMS.Status_Codes;
    10701070      pragma Import (C, Message_Queue_Flush_Base, "rtems_message_queue_flush");
    1071       COUNT_Base : aliased RTEMS.Unsigned32 := Count;
     1071      COUNT_Base : aliased RTEMS.Unsigned32;
    10721072   begin
    10731073 
     
    11111111      )  return RTEMS.Status_Codes;
    11121112      pragma Import (C, Event_Receive_Base, "rtems_event_receive");
    1113       Event_Out_Base : aliased RTEMS.Event_Set; -- := Event_Out;
     1113      Event_Out_Base : aliased RTEMS.Event_Set;
    11141114   begin
    11151115
     
    11831183      )  return RTEMS.Status_Codes;
    11841184      pragma Import (C, Partition_Create_Base, "rtems_partition_create");
    1185       ID_Base : aliased RTEMS.ID := ID;
     1185      ID_Base : aliased RTEMS.ID;
    11861186   begin
    11871187 
     
    12101210      )  return RTEMS.Status_Codes;
    12111211      pragma Import (C, Partition_Ident_Base, "rtems_partition_ident");
    1212       ID_Base : aliased RTEMS.ID := ID;
     1212      ID_Base : aliased RTEMS.ID;
    12131213   begin
    12141214 
     
    12431243      pragma Import (C, Partition_Get_Buffer_Base,
    12441244         "rtems_partition_get_buffer");
    1245       Buffer_Base : aliased RTEMS.Address := Buffer;
     1245      Buffer_Base : aliased RTEMS.Address;
    12461246   begin
    12471247 
     
    12901290      )  return RTEMS.Status_Codes;
    12911291      pragma Import (C, Region_Create_Base, "rtems_region_create");
    1292       ID_Base : aliased RTEMS.ID := ID;
     1292      ID_Base : aliased RTEMS.ID;
    12931293   begin
    12941294 
     
    13151315      )  return RTEMS.Status_Codes;
    13161316      pragma Import (C, Region_Ident_Base, "rtems_region_ident");
    1317       ID_Base : aliased RTEMS.ID := ID;
     1317      ID_Base : aliased RTEMS.ID;
    13181318   begin
    13191319 
     
    13711371      )  return RTEMS.Status_Codes;
    13721372      pragma Import (C, Region_Get_Segment_Base, "rtems_region_get_segment");
    1373       Segment_Base : aliased RTEMS.Address := Segment;
     1373      Segment_Base : aliased RTEMS.Address;
    13741374   begin
    13751375 
     
    13981398      pragma Import (C, Region_Get_Segment_Size_Base,
    13991399         "rtems_region_get_segment_size");
    1400       Size_Base : aliased RTEMS.Unsigned32 := Size;
     1400      Size_Base : aliased RTEMS.Unsigned32;
    14011401   begin
    14021402 
     
    14471447      )  return RTEMS.Status_Codes;
    14481448      pragma Import (C, Port_Create_Base, "rtems_port_create");
    1449       ID_Base : aliased RTEMS.ID := ID;
     1449      ID_Base : aliased RTEMS.ID;
    14501450   begin
    14511451 
     
    14711471      )  return RTEMS.Status_Codes;
    14721472      pragma Import (C, Port_Ident_Base, "rtems_port_ident");
    1473       ID_Base : aliased RTEMS.ID := ID;
     1473      ID_Base : aliased RTEMS.ID;
    14741474   begin
    14751475 
     
    15061506      pragma Import (C, Port_External_To_Internal_Base,
    15071507         "rtems_port_external_to_internal");
    1508       Internal_Base : aliased RTEMS.Address := Internal;
     1508      Internal_Base : aliased RTEMS.Address;
    15091509   begin
    15101510 
     
    15311531      pragma Import (C, Port_Internal_To_External_Base,
    15321532         "rtems_port_internal_to_external");
    1533       External_Base : aliased RTEMS.Address := External;
     1533      External_Base : aliased RTEMS.Address;
    15341534   begin
    15351535 
     
    17091709      )  return RTEMS.Status_Codes;
    17101710      pragma Import (C, Rate_Monotonic_Create_base, "rtems_rate_monotonic_create");
    1711       ID_Base : aliased RTEMS.ID := ID;
     1711      ID_Base : aliased RTEMS.ID;
    17121712   begin
    17131713 
     
    17271727      )  return RTEMS.Status_Codes;
    17281728      pragma Import (C, Rate_Monotonic_Ident_Base, "rtems_rate_monotonic_ident");
    1729       ID_Base : aliased RTEMS.ID := ID;
     1729      ID_Base : aliased RTEMS.ID;
    17301730   begin
    17311731 
Note: See TracChangeset for help on using the changeset viewer.