From 5dc203d228f3bafc063278e4b6ef7954300b3908 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 13 Oct 2016 14:54:42 +0200 Subject: [multiple changes] 2016-10-13 Hristian Kirtchev * sem_ch10.adb (Entity_Needs_Body): A generic subprogram renaming needs a body if the renamed unit is declared outside the current compilation unit. 2016-10-13 Hristian Kirtchev * sinfo.ads, sem_ch12.adb, sem.adb, expander.adb, sem_res.ads, sem_ch4.adb, sem_ch8.adb, s-memory.adb: Minor reformatting. 2016-10-13 Vincent Celier * gnatcmd.adb: Delete all temporary files when invoked as gnat list -V -P ... 2016-10-13 Ed Falis * impunit.adb: add i-vxinco.ads. * s-interr-vxworks.adb: add hook for user interrupt connection routine. From-SVN: r241112 --- gcc/ada/sem_ch4.adb | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'gcc/ada/sem_ch4.adb') diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 888d6e9..9060fb1 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -231,18 +231,17 @@ package body Sem_Ch4 is R : Node_Id; Op_Id : Entity_Id; T1 : Entity_Id); - -- For equality and comparison operators, the result is always boolean, - -- and the legality of the operation is determined from the visibility - -- of the operand types. If one of the operands has a universal interpre- - -- tation, the legality check uses some compatible non-universal - -- interpretation of the other operand. N can be an operator node, or - -- a function call whose name is an operator designator. Any_Access, which - -- is the initial type of the literal NULL, is a universal type for the - -- purpose of this routine. + -- For equality and comparison operators, the result is always boolean, and + -- the legality of the operation is determined from the visibility of the + -- operand types. If one of the operands has a universal interpretation, + -- the legality check uses some compatible non-universal interpretation of + -- the other operand. N can be an operator node, or a function call whose + -- name is an operator designator. Any_Access, which is the initial type of + -- the literal NULL, is a universal type for the purpose of this routine. function Find_Primitive_Operation (N : Node_Id) return Boolean; - -- Find candidate interpretations for the name Obj.Proc when it appears - -- in a subprogram renaming declaration. + -- Find candidate interpretations for the name Obj.Proc when it appears in + -- a subprogram renaming declaration. procedure Find_Unary_Types (R : Node_Id; -- cgit v1.1