Ignore:
Timestamp:
Feb 16, 2015, 6:35:11 AM (5 years ago)
Author:
Maxim Reznik
Message:

Make distinction between index and disriminant constraint

File:
1 edited

Legend:

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

    r391 r399  
    3838      return Asis.Access_Definition_Kinds
    3939   is
    40    begin
    41       if Assigned (Definition) then
    42          Raise_Not_Implemented ("");
    43          return Not_An_Access_Definition;
     40      Map : constant array (F.An_Access_Definition)
     41        of Asis.Access_Definition_Kinds :=
     42          (F.An_Anonymous_Access_To_Variable =>
     43             Asis.An_Anonymous_Access_To_Variable,
     44           F.An_Anonymous_Access_To_Constant =>
     45             Asis.An_Anonymous_Access_To_Constant,
     46           F.An_Anonymous_Access_To_Procedure =>
     47             Asis.An_Anonymous_Access_To_Procedure,
     48           F.An_Anonymous_Access_To_Protected_Procedure =>
     49             Asis.An_Anonymous_Access_To_Protected_Procedure,
     50           F.An_Anonymous_Access_To_Function =>
     51             Asis.An_Anonymous_Access_To_Function,
     52           F.An_Anonymous_Access_To_Protected_Function =>
     53             Asis.An_Anonymous_Access_To_Protected_Function);
     54
     55      Kind : constant Asis.Extensions.Flat_Kinds.Element_Flat_Kind :=
     56        Asis.Extensions.Flat_Kinds.Flat_Kind (Definition);
     57   begin
     58      if Kind in Map'Range then
     59         return Map (Kind);
    4460      else
    4561         return Not_An_Access_Definition;
Note: See TracChangeset for help on using the changeset viewer.