Complete previous check-in.
authorArnaud Charlet <charlet@gcc.gnu.org>
Tue, 6 Jul 2004 14:47:27 +0000 (16:47 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 6 Jul 2004 14:47:27 +0000 (16:47 +0200)
From-SVN: r84154

gcc/ada/sem_util.adb

index 1f23ef3063fe2fc91ba2cbdfd1ab2eca3517aaf6..11da616f8ef046ce5beb42195a23603237d34a20 100644 (file)
@@ -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