Ignore:
Timestamp:
Feb 16, 2015, 12:05:24 PM (5 years ago)
Author:
Maxim Reznik
Message:

fix Access_Type_Kind and add next test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/asis/asis-elements.adb

    r399 r400  
    7171      return Asis.Access_Type_Kinds
    7272   is
    73    begin
    74       if Assigned (Definition) then
    75          Raise_Not_Implemented ("");
    76          return Not_An_Access_Type_Definition;
     73      Map : constant array (F.An_Access_Type_Definition)
     74        of Asis.Access_Type_Kinds :=
     75          (F.A_Pool_Specific_Access_To_Variable =>
     76             Asis.A_Pool_Specific_Access_To_Variable,
     77           F.An_Access_To_Variable =>
     78             Asis.An_Access_To_Variable,
     79           F.An_Access_To_Constant =>
     80             Asis.An_Access_To_Constant,
     81           F.An_Access_To_Procedure =>
     82             Asis.An_Access_To_Procedure,
     83           F.An_Access_To_Protected_Procedure =>
     84             Asis.An_Access_To_Protected_Procedure,
     85           F.An_Access_To_Function =>
     86             Asis.An_Access_To_Function,
     87           F.An_Access_To_Protected_Function =>
     88             Asis.An_Access_To_Protected_Function);
     89
     90      Kind : constant Asis.Extensions.Flat_Kinds.Element_Flat_Kind :=
     91        Asis.Extensions.Flat_Kinds.Flat_Kind (Definition);
     92   begin
     93      if Kind in Map'Range then
     94         return Map (Kind);
    7795      else
    7896         return Not_An_Access_Type_Definition;
Note: See TracChangeset for help on using the changeset viewer.