Ignore:
Timestamp:
Feb 16, 2015, 1:08:41 PM (5 years ago)
Author:
Maxim Reznik
Message:

Fix Defining_Character_Literal and add next test

File:
1 edited

Legend:

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

    r401 r402  
    1919with Gela.Elements.Component_Definitions;
    2020with Gela.Elements.Declarative_Items;
     21with Gela.Elements.Defining_Character_Literals;
    2122with Gela.Elements.Defining_Enumeration_Literals;
    2223with Gela.Elements.Defining_Identifiers;
     
    741742         end record;
    742743
     744         overriding procedure Defining_Character_Literal
     745           (Self : in out Visiter;
     746            Node : not null Gela.Elements.Defining_Character_Literals.
     747              Defining_Character_Literal_Access);
     748
    743749         overriding procedure Defining_Enumeration_Literal
    744750           (Self : in out Visiter;
     
    758764
    759765      package body Get is
     766
     767         overriding procedure Defining_Character_Literal
     768           (Self : in out Visiter;
     769            Node : not null Gela.Elements.Defining_Character_Literals.
     770              Defining_Character_Literal_Access)
     771         is
     772            Token : constant Gela.Lexical_Types.Token_Count :=
     773              Node.Character_Literal;
     774            Comp  : constant Gela.Compilations.Compilation_Access :=
     775              Node.Enclosing_Compilation;
     776         begin
     777            Self.Symbol := Comp.Get_Token (Token).Symbol;
     778         end Defining_Character_Literal;
    760779
    761780         overriding procedure Defining_Enumeration_Literal
Note: See TracChangeset for help on using the changeset viewer.