From 55337de847075206be0c9f3154650ad17fcf2b28 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Sun, 29 Nov 2020 22:54:21 +0100 Subject: [PATCH] [Ada] Fix typo in checks for implementation defined units gcc/ada/ * impunit.adb (Not_Impl_Defined_Unit): Fix typo in iteration over Non_Imp_File_Names_12 array. --- gcc/ada/impunit.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index 2cde430..e7262cd 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -999,7 +999,7 @@ package body Impunit is for J in Non_Imp_File_Names_12'Range loop if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J).Fname then - return Non_Imp_File_Names_95 (J).RMdef + return Non_Imp_File_Names_12 (J).RMdef and then Ada_Version >= Ada_2012; end if; end loop; -- 2.7.4