Changeset 402


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

Fix Defining_Character_Literal and add next test

Location:
trunk/ada-2012
Files:
4 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
  • trunk/ada-2012/src/asis/asis-extensions-flat_kinds.adb

    r401 r402  
    382382     (Self : in out Visiter;
    383383      Node : not null Gela.Elements.Defining_Character_Literals.
    384         Defining_Character_Literal_Access)
    385    is null;
     384        Defining_Character_Literal_Access);
    386385
    387386   overriding procedure Defining_Enumeration_Literal
     
    15001499   end Constrained_Array_Definition;
    15011500
     1501   overriding procedure Defining_Character_Literal
     1502     (Self : in out Visiter;
     1503      Node : not null Gela.Elements.Defining_Character_Literals.
     1504        Defining_Character_Literal_Access)
     1505   is
     1506      pragma Unreferenced (Node);
     1507   begin
     1508      Self.Result := A_Defining_Character_Literal;
     1509   end Defining_Character_Literal;
     1510
    15021511   overriding procedure Defining_Enumeration_Literal
    15031512     (Self : in out Visiter;
  • trunk/ada-2012/tests/asis/asis2xml.gpl/list.txt

    r401 r402  
    88./A/A33003A.ADA 3558726738
    99./A/A34017C.ADA 3218990317
     10./A/A35101B.ADA 3952123876
  • trunk/ada-2012/tests/asis/def_name/list.txt

    r398 r402  
    88./A/A33003A.ADA +158333631
    99./A/A34017C.ADA +1820504207
    10 ./A/A35101B.ADA 4131699407
     10./A/A35101B.ADA +3960786450
    1111./A/A35402A.ADA 4131699407
    1212./A/A35801F.ADA 4055769666
Note: See TracChangeset for help on using the changeset viewer.