diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-07-06 16:47:27 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-07-06 16:47:27 +0200 |
| commit | 267a8fa96067eb399aa33af8ad4ec21fb40bf58e (patch) | |
| tree | a5e12d7ef3d4c70fc9e057a737ce2590b45599ad | |
| parent | 15ce9ca22bc2a1c9986fee07fe3b41980b2f9665 (diff) | |
| download | gcc-267a8fa96067eb399aa33af8ad4ec21fb40bf58e.zip gcc-267a8fa96067eb399aa33af8ad4ec21fb40bf58e.tar.gz gcc-267a8fa96067eb399aa33af8ad4ec21fb40bf58e.tar.bz2 | |
Complete previous check-in.
From-SVN: r84154
| -rw-r--r-- | gcc/ada/sem_util.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 1f23ef3..11da616 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -5768,6 +5768,10 @@ package body Sem_Util is -- has discriminant defaults if it is a discriminated record). elsif Is_Record_Type (Typ) then + if Has_Discriminants (Typ) then + return True; + end if; + declare Comp : Entity_Id; begin |