diff mbox series

[COMMITTED,2/6] ada: Spurious maximum nesting level warnings

Message ID 20240808142948.807190-2-poulhies@adacore.com
State New
Headers show
Series [COMMITTED,1/6] ada: Finalization_Size raises Constraint_Error | expand

Commit Message

Marc Poulhiès Aug. 8, 2024, 2:29 p.m. UTC 
From: Justin Squirek <squirek@adacore.com>

This patch fixes an issue in the compiler whereby disabling style checks via
pragma Style_Checks ("-L") resulted in the minimum nesting level being zero
but the style still being enabled - leading to spurious maximum nesting level
exceeded warnings.

gcc/ada/

	* stylesw.adb (Set_Style_Check_Options): Disable max nesting level
	when unspecified

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/stylesw.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
diff mbox series

Patch

diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb
index 76004455b10..6ef8e205e96 100644
--- a/gcc/ada/stylesw.adb
+++ b/gcc/ada/stylesw.adb
@@ -537,7 +537,8 @@  package body Stylesw is
                Style_Check_Layout                 := False;
 
             when 'L' =>
-               Style_Max_Nesting_Level := 0;
+               Style_Max_Nesting_Level            := 0;
+               Style_Check_Max_Nesting_Level      := False;
 
             when 'm' =>
                Style_Check_Max_Line_Length        := False;