diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 12:45:20 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 12:45:20 +0200 |
| commit | e280f98126fb6f0df2d7d980615b97bc4d540e5e (patch) | |
| tree | 7026427e1396c48997b6965dbb6a0c92aa528215 /gcc/ada/sem_util.ads | |
| parent | 98c99a5a376eb0b8b601fc02dec9eeacf5086196 (diff) | |
| download | gcc-e280f98126fb6f0df2d7d980615b97bc4d540e5e.zip gcc-e280f98126fb6f0df2d7d980615b97bc4d540e5e.tar.gz gcc-e280f98126fb6f0df2d7d980615b97bc4d540e5e.tar.bz2 | |
[multiple changes]
2011-08-03 Emmanuel Briot <briot@adacore.com>
* make.adb, makeutl.adb, makeutl.ads, clean.adb (Makeutl.Queue): new
package.
2011-08-03 Yannick Moy <moy@adacore.com>
* cstand.adb (Create_Standard): select Universal_Integer as an ALFA type
* sem_ch3.adb (Array_Type_Declaration): detect array types in ALFA
* sem_util.adb, sem_util.ads (Has_Static_Array_Bounds): new function to
detect that an array has static bounds.
From-SVN: r177264
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 3d11069..ceba869 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -624,6 +624,9 @@ package Sem_Util is -- Check if a type has a (sub)component of a private type that has not -- yet received a full declaration. + function Has_Static_Array_Bounds (Typ : Node_Id) return Boolean; + -- Return whether an array type has static bounds + function Has_Stream (T : Entity_Id) return Boolean; -- Tests if type T is derived from Ada.Streams.Root_Stream_Type, or in the -- case of a composite type, has a component for which this predicate is |