From 8a9a03a425b1092da952c2617cfca4fcde75e635 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Laurent=20Th=C3=A9venoux?= Date: Thu, 1 Feb 2024 14:04:41 +0100 Subject: [PATCH] nameres: correctly count exception failures during resolution Exception failures during name resolution were correctly reported by nameres but they were not correctly counted, and therefore, not reported when using --stats. --- testsuite/ada/nameres.adb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/testsuite/ada/nameres.adb b/testsuite/ada/nameres.adb index 348b7d259..efcc43250 100644 --- a/testsuite/ada/nameres.adb +++ b/testsuite/ada/nameres.adb @@ -39,7 +39,6 @@ procedure Nameres is Nb_Successes : Natural := 0; Nb_Fails : Natural := 0; Nb_Xfails : Natural := 0; - Nb_Exception_Fails : Natural := 0; Nb_Total : Natural := 0; Processing_Time : Duration := 0.0; Resolution_Speed : Float := 0.0; @@ -802,10 +801,6 @@ procedure Nameres is -- Stats for this file, to be added to ``Job_Data`` at the end if -- successfully returning. - Nb_File_Fails : Natural := 0; - -- Number of name resolution failures not covered by XFAILs we had in - -- this file. - Config : Config_Record renames Job_Data.Config; Empty : Boolean := True; @@ -1164,8 +1159,7 @@ procedure Nameres is if XFAIL then Increment (Stats.Nb_Xfails); else - Increment (Stats.Nb_Exception_Fails); - Increment (Nb_File_Fails); + Increment (Stats.Nb_Fails); end if; end Resolve_Node;