0a52f6df01
Fixes handing of expression functions (for which the expression was identified as an aggregate) Move conditional expressions out of 'aggregate', to conform with ARM and resolve the above amgiguity Inline expression_list, which was resulting in a conflict with a record_component_association.
87 lines
2.8 KiB
Plaintext
87 lines
2.8 KiB
Plaintext
================================================================================
|
|
Renames object
|
|
================================================================================
|
|
|
|
procedure P is
|
|
Threshold renames With_Type_Inference;
|
|
A : Integer renames B;
|
|
CE : exception renames Constraint_Error;
|
|
package TIO renames Ada.Text_IO;
|
|
procedure Proc (A : Integer) renames Process;
|
|
generic procedure Proc renames Generic_Process;
|
|
begin
|
|
null;
|
|
end P;
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
(compilation
|
|
(compilation_unit
|
|
(proper_body
|
|
(subprogram_body
|
|
(subprogram_specification
|
|
(procedure_specification
|
|
(name
|
|
(identifier))))
|
|
(non_empty_declarative_part
|
|
(declarative_item_pragma
|
|
(renaming_declaration
|
|
(object_renaming_declaration
|
|
(identifier)
|
|
(name
|
|
(identifier)))))
|
|
(declarative_item_pragma
|
|
(renaming_declaration
|
|
(object_renaming_declaration
|
|
(identifier)
|
|
(name
|
|
(identifier))
|
|
(name
|
|
(identifier)))))
|
|
(declarative_item_pragma
|
|
(renaming_declaration
|
|
(exception_renaming_declaration
|
|
(identifier)
|
|
(name
|
|
(identifier)))))
|
|
(declarative_item_pragma
|
|
(renaming_declaration
|
|
(package_renaming_declaration
|
|
(name
|
|
(identifier))
|
|
(name
|
|
(identifier)
|
|
(name
|
|
(identifier))))))
|
|
(declarative_item_pragma
|
|
(renaming_declaration
|
|
(subprogram_renaming_declaration
|
|
(subprogram_specification
|
|
(procedure_specification
|
|
(name
|
|
(identifier))
|
|
(non_empty_parameter_profile
|
|
(formal_part
|
|
(parameter_specification_list
|
|
(parameter_specification
|
|
(defining_identifier_list
|
|
(identifier))
|
|
(name
|
|
(identifier))))))))
|
|
(name
|
|
(identifier)))))
|
|
(declarative_item_pragma
|
|
(renaming_declaration
|
|
(generic_renaming_declaration
|
|
(name
|
|
(identifier))
|
|
(name
|
|
(identifier))))))
|
|
(handled_sequence_of_statements
|
|
(sequence_of_statements
|
|
(statement
|
|
(simple_statement
|
|
(null_statement)))))
|
|
(name
|
|
(identifier))))))
|