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

Fix Asis.Elements and add next test

File:
1 edited

Legend:

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

    r400 r401  
    558558              A_Discrete_Simple_Expression_Range);
    559559
     560      Map_2 : constant array (F.A_Discrete_Subtype_Definition)
     561        of Asis.Discrete_Range_Kinds
     562        := (F.A_Discrete_Subtype_Indication =>
     563              A_Discrete_Subtype_Indication,
     564            F.A_Discrete_Range_Attribute_Reference =>
     565              A_Discrete_Range_Attribute_Reference,
     566            F.A_Discrete_Simple_Expression_Range =>
     567              A_Discrete_Simple_Expression_Range);
     568
    560569      Kind : constant Asis.Extensions.Flat_Kinds.Element_Flat_Kind :=
    561570        Asis.Extensions.Flat_Kinds.Flat_Kind (Definition);
     
    563572      if Kind in Map'Range then
    564573         return Map (Kind);
     574      elsif Kind in Map_2'Range then
     575         return Map_2 (Kind);
    565576      else
    566577         return Not_A_Discrete_Range;
Note: See TracChangeset for help on using the changeset viewer.