Changeset 401 for trunk/ada2012/src/asis/asiselements.adb
 Timestamp:
 Feb 16, 2015, 12:31:23 PM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/ada2012/src/asis/asiselements.adb
r400 r401 558 558 A_Discrete_Simple_Expression_Range); 559 559 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 560 569 Kind : constant Asis.Extensions.Flat_Kinds.Element_Flat_Kind := 561 570 Asis.Extensions.Flat_Kinds.Flat_Kind (Definition); … … 563 572 if Kind in Map'Range then 564 573 return Map (Kind); 574 elsif Kind in Map_2'Range then 575 return Map_2 (Kind); 565 576 else 566 577 return Not_A_Discrete_Range;
Note:
See TracChangeset
for help on using the changeset viewer.