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-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;
Note: See TracChangeset for help on using the changeset viewer.