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-extensions-flat_kinds.adb

    r399 r400  
    11941194   is
    11951195      use type Gela.Lexical_Types.Token_Count;
     1196      use type Gela.Lexical_Types.Token_Kind;
     1197
     1198      Comp  : constant Gela.Compilations.Compilation_Access :=
     1199        Node.Enclosing_Compilation;
     1200      Token : Gela.Lexical_Types.Token;
    11961201   begin
    11971202      if Node.Constant_Token = 0 then
    1198          Self.Result := An_Anonymous_Access_To_Variable;
     1203         Self.Result := A_Pool_Specific_Access_To_Variable;
     1204         return;
     1205      end if;
     1206
     1207      Token := Comp.Get_Token (Node.Constant_Token);
     1208
     1209      if Token.Kind = Gela.Lexical_Types.All_Token then
     1210         Self.Result := An_Access_To_Variable;
    11991211      else
    1200          Self.Result := An_Anonymous_Access_To_Constant;
     1212         Self.Result := An_Access_To_Constant;
    12011213      end if;
    12021214   end Access_To_Object_Definition;
Note: See TracChangeset for help on using the changeset viewer.