diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 09:51:08 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 09:51:08 +0200 |
| commit | 2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4 (patch) | |
| tree | a8ac044fa68b27fb08b03dcef40c1e31eadc0c99 /gcc/ada/exp_util.ads | |
| parent | 824e9320157031e3969aabe742cfddd38a0513cd (diff) | |
| download | gcc-2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4.zip gcc-2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4.tar.gz gcc-2c1b72d7b658ecef2cd2cb7b09f5a7fcb40b3ea4.tar.bz2 | |
[multiple changes]
2011-08-04 Robert Dewar <dewar@adacore.com>
* 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 <briot@adacore.com>
* projects.texi: Added doc for aggregate projects.
From-SVN: r177320
Diffstat (limited to 'gcc/ada/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 8 |
1 files changed, 3 insertions, 5 deletions
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; |