From 2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 4 Aug 2011 09:51:08 +0200 Subject: [multiple changes] 2011-08-04 Robert Dewar * par_sco.adb, prj-proc.adb, make.adb, bindgen.adb, prj.adb, prj.ads, makeutl.adb, makeutl.ads, prj-nmsc.adb, exp_ch5.adb, exp_ch12.adb, exp_ch7.ads, exp_util.ads, sem_util.ads, g-comlin.ads, exp_ch6.adb, exp_ch6.ads, lib-xref.ads, exp_ch7.adb, exp_util.adb, exp_dist.adb, exp_strm.adb, gnatcmd.adb, freeze.adb, g-comlin.adb, lib-xref-alfa.adb, sem_attr.adb, sem_prag.adb, sem_util.adb, sem_elab.adb, sem_ch8.adb, sem_ch11.adb, sem_eval.adb, sem_ch13.adb, sem_disp.adb, a-fihema.adb: Minor reformatting and code reorganization. 2011-08-04 Emmanuel Briot * projects.texi: Added doc for aggregate projects. From-SVN: r177320 --- gcc/ada/exp_util.ads | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'gcc/ada/exp_util.ads') diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index e9b373d..08ffc75 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -484,13 +484,11 @@ package Exp_Util is -- Return the stream size value of the subtype E function Has_Access_Constraint (E : Entity_Id) return Boolean; - -- Given object or type E, determine whether a discriminant is of an access - -- type. + -- Given object or type E, determine if a discriminant is of an access type function Has_Controlled_Objects (N : Node_Id) return Boolean; - -- Given an arbitrary node N, determine whether it has a declarative or a - -- statement part and whether those lists contain at least one controlled - -- object. + -- Given a node N, determine if it has a declarative or a statement part + -- and whether those lists contain at least one controlled object. function Has_Controlled_Objects (L : List_Id; -- cgit v1.1