Complete previous check-in.

From-SVN: r84154

Complete previous check-in.
From-SVN: r84154
267a8fa9 · Arnaud Charlet · 15ce9ca2 · 267a8fa9
Commit 267a8fa9 authored Jul 06, 2004 by Arnaud Charlet
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

gcc/ada/sem_util.adb
+4 -0

No files found.
--- 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