Changeset 207b35ef in rtems


Ignore:
Timestamp:
Feb 1, 2008, 10:48:17 PM (12 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.9, master
Children:
964d1eb
Parents:
235fb7a
Message:

2008-02-01 Joel Sherrill <joel.sherrill@…>

  • rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation thanks to a binding tip from Laurent Guerby.
Location:
c/src/ada
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/ChangeLog

    r235fb7a r207b35ef  
     12008-02-01      Joel Sherrill <joel.sherrill@oarcorp.com>
     2
     3        * rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation
     4        thanks to a binding tip from Laurent Guerby.
     5
    162008-02-01      Joel Sherrill <joel.sherrill@oarcorp.com>
    27
  • c/src/ada/rtems.adb

    r235fb7a r207b35ef  
    20052005      Tmp_Name : aliased RTEMS.Name;
    20062006   begin
    2007       -- TBD
    20082007      Result := Object_Get_Classic_Name_Base (ID, Tmp_Name'Access);
    20092008      Name := Tmp_Name;
     
    20132012   procedure Object_Get_Name(
    20142013      ID     : in     RTEMS.ID;
    2015       Length : in     RTEMS.Unsigned32;
    20162014      Name   :    out String;
    20172015      Result :    out RTEMS.Status_Codes
     
    20192017      function Object_Get_Name_Base (
    20202018         ID     : RTEMS.ID;
    2021          -- Length : RTEMS.Unsigned32:
    2022          -- Name   : chars_ptr;
    2023          Length : RTEMS.Unsigned32
     2019         Length : RTEMS.Unsigned32;
     2020         Name   : System.Address
    20242021      )  return RTEMS.Status_Codes;
    20252022      pragma Import (C, Object_Get_Name_Base, "rtems_object_get_name");
    20262023   begin
    2027       -- TBD
    2028       Name := "";
    2029       Result := Object_Get_Name_Base (Id, Length);
     2024      Name := (others => ASCII.Nul);
     2025      Result := Object_Get_Name_Base (
     2026         Id,
     2027         Name'Length,
     2028         Name(Name'First)'Address
     2029      );
    20302030   end Object_Get_Name;
    20312031
  • c/src/ada/rtems.ads

    r235fb7a r207b35ef  
    12801280   procedure Object_Get_Name(
    12811281      ID     : in     RTEMS.ID;
    1282       Length : in     RTEMS.Unsigned32;
    12831282      Name   :    out String;
    12841283      Result :    out RTEMS.Status_Codes
Note: See TracChangeset for help on using the changeset viewer.