public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r14-1262] ada: Minor tweak in condition
@ 2023-05-26  7:35 Marc Poulhi?s
  0 siblings, 0 replies; only message in thread
From: Marc Poulhi?s @ 2023-05-26  7:35 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:9df0c1198ecba478ac27d28765224412ee6606e9

commit r14-1262-g9df0c1198ecba478ac27d28765224412ee6606e9
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Thu Mar 16 18:38:20 2023 +0100

    ada: Minor tweak in condition
    
    gcc/ada/
    
            * sem_util.adb (Compile_Time_Constraint_Error): Test the Ekind.

Diff:
---
 gcc/ada/sem_util.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index aabd01747fc..ea5be2ff4b5 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -6110,7 +6110,7 @@ package body Sem_Util is
 
                      Conc_Typ : constant Entity_Id :=
                        (if Present (Init_Proc_Type)
-                          and then Init_Proc_Type in E_Record_Type_Id
+                          and then Ekind (Init_Proc_Type) = E_Record_Type
                         then Corresponding_Concurrent_Type (Init_Proc_Type)
                         else Empty);

^ permalink raw reply	[flat|nested] only message in thread
only message in thread, other threads:[~2023-05-26  7:35 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-05-26  7:35 [gcc r14-1262] ada: Minor tweak in condition Marc Poulhi?s

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).