Changeset 365


Ignore:
Timestamp:
Dec 30, 2014, 5:56:57 AM (6 years ago)
Author:
Maxim Reznik
Message:

Make operations of intepretation visiter "is null"

Location:
trunk/ada-2012/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/api/gela-interpretations.ads

    r363 r365  
    7171     (Self   : in out Visiter;
    7272      Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    73       Down   : Gela.Interpretations.Interpretation_Index_Array)
    74         is abstract;
     73      Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    7574   --  Called for each defining name interpretation
    7675
     
    7877     (Self   : in out Visiter;
    7978      Tipe   : Gela.Semantic_Types.Type_Index;
    80       Down   : Gela.Interpretations.Interpretation_Index_Array)
    81         is abstract;
     79      Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    8280   --  Called for each expression interpretation
    8381
     
    8583     (Self   : in out Visiter;
    8684      Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    87       Down   : Gela.Interpretations.Interpretation_Index_Array)
    88         is abstract;
     85      Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    8986   --  Called for each attribute denoting function
    9087
     
    9289     (Self  : in out Visiter;
    9390      Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    94       Down  : Gela.Interpretations.Interpretation_Index_Array) is abstract;
     91      Down  : Gela.Interpretations.Interpretation_Index_Array) is null;
    9592   --  Called for each tuple
    9693
  • trunk/ada-2012/src/semantic/gela-plain_interpretations.adb

    r363 r365  
    112112         --  Only tuples are expected here
    113113
    114          overriding procedure On_Defining_Name
    115            (Self   : in out Visiter;
    116             Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    117             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    118 
    119          overriding procedure On_Expression
    120            (Self   : in out Visiter;
    121             Tipe   : Gela.Semantic_Types.Type_Index;
    122             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    123 
    124          overriding procedure On_Attr_Function
    125            (Self   : in out Visiter;
    126             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    127             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    128 
    129114         overriding procedure On_Tuple
    130115           (V     : in out Visiter;
     
    193178            Down   : Gela.Interpretations.Interpretation_Index_Array);
    194179
    195          overriding procedure On_Expression
    196            (Self   : in out Visiter;
    197             Tipe   : Gela.Semantic_Types.Type_Index;
    198             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    199 
    200          overriding procedure On_Attr_Function
    201            (Self   : in out Visiter;
    202             Tipe   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    203             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    204 
    205          overriding procedure On_Tuple
    206            (Self  : in out Visiter;
    207             Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    208             Down  : Gela.Interpretations.Interpretation_Index_Array)
    209          is null;
    210180      end Each;
    211181
  • trunk/ada-2012/src/semantic/gela-resolve.adb

    r363 r365  
    157157         end record;
    158158
    159          overriding procedure On_Defining_Name
    160            (Self   : in out Visiter;
    161             Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    162             Down   : Gela.Interpretations.Interpretation_Index_Array);
    163 
    164159         overriding procedure On_Expression
    165160           (Self   : in out Visiter;
     
    167162            Down   : Gela.Interpretations.Interpretation_Index_Array);
    168163
    169          overriding procedure On_Attr_Function
    170            (Self   : in out Visiter;
    171             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    172             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    173 
    174          overriding procedure On_Tuple
    175            (Self  : in out Visiter;
    176             Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    177       Down  : Gela.Interpretations.Interpretation_Index_Array)
    178          is null;
    179 
    180164      end Each;
    181165
     
    185169
    186170      package body Each is
    187 
    188          overriding procedure On_Defining_Name
    189            (Self   : in out Visiter;
    190             Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    191             Down   : Gela.Interpretations.Interpretation_Index_Array)
    192          is
    193             pragma Unreferenced (Self);
    194             pragma Unreferenced (Name);
    195             pragma Unreferenced (Down);
    196          begin
    197             null;
    198          end On_Defining_Name;
    199171
    200172         overriding procedure On_Expression
     
    244216            Index  : Gela.Interpretations.Interpretation_Index := 0;
    245217         end record;
    246 
    247          overriding procedure On_Defining_Name
    248            (Self   : in out Visiter;
    249             Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    250             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    251 
    252          overriding procedure On_Expression
    253            (Self   : in out Visiter;
    254             Tipe   : Gela.Semantic_Types.Type_Index;
    255             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    256 
    257          overriding procedure On_Attr_Function
    258            (Self   : in out Visiter;
    259             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    260             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    261218
    262219         overriding procedure On_Tuple
     
    355312            Down   : Gela.Interpretations.Interpretation_Index_Array);
    356313
    357          overriding procedure On_Expression
    358            (Self   : in out Visiter;
    359             Tipe   : Gela.Semantic_Types.Type_Index;
    360             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    361 
    362          overriding procedure On_Attr_Function
    363            (Self   : in out Visiter;
    364             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    365             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    366 
    367          overriding procedure On_Tuple
    368            (Self  : in out Visiter;
    369             Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    370             Down  : Gela.Interpretations.Interpretation_Index_Array)
    371          is null;
    372 
    373314      end Each;
    374315
     
    478419            Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    479420            Down   : Gela.Interpretations.Interpretation_Index_Array);
    480 
    481          overriding procedure On_Expression
    482            (Self   : in out Visiter;
    483             Tipe   : Gela.Semantic_Types.Type_Index;
    484             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    485 
    486          overriding procedure On_Attr_Function
    487            (Self   : in out Visiter;
    488             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    489             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    490 
    491          overriding procedure On_Tuple
    492            (Self  : in out Visiter;
    493             Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    494             Down  : Gela.Interpretations.Interpretation_Index_Array)
    495          is null;
    496421
    497422      end Each;
     
    618543         end record;
    619544
    620          overriding procedure On_Defining_Name
    621            (Self   : in out Visiter;
    622             Name   : Gela.Elements.Defining_Names.Defining_Name_Access;
    623             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    624 
    625545         overriding procedure On_Expression
    626546           (Self   : in out Visiter;
    627547            Tipe   : Gela.Semantic_Types.Type_Index;
    628548            Down   : Gela.Interpretations.Interpretation_Index_Array);
    629 
    630          overriding procedure On_Attr_Function
    631            (Self   : in out Visiter;
    632             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    633             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    634 
    635          overriding procedure On_Tuple
    636            (Self  : in out Visiter;
    637             Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    638             Down  : Gela.Interpretations.Interpretation_Index_Array)
    639          is null;
    640549
    641550      end Each;
     
    727636            Tipe   : Gela.Semantic_Types.Type_Index;
    728637            Down   : Gela.Interpretations.Interpretation_Index_Array);
    729 
    730          overriding procedure On_Attr_Function
    731            (Self   : in out Visiter;
    732             Kind   : Gela.Lexical_Types.Predefined_Symbols.Attribute;
    733             Down   : Gela.Interpretations.Interpretation_Index_Array) is null;
    734 
    735          overriding procedure On_Tuple
    736            (Self  : in out Visiter;
    737             Value : Gela.Interpretations.Interpretation_Set_Index_Array;
    738             Down  : Gela.Interpretations.Interpretation_Index_Array)
    739          is null;
    740638
    741639      end Each;
Note: See TracChangeset for help on using the changeset viewer.