From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 28 Nov 2021 16:26:27 +0000 (+0100)
Subject: [Ada] Reset internal flags for -gnatD and -gnatG
X-Git-Tag: basepoints/gcc-13~2569
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=544b30f81e53ee636aac905be63cc1ed0de88119;p=thirdparty%2Fgcc.git

[Ada] Reset internal flags for -gnatD and -gnatG

gcc/ada/

	* sprint.adb (Source_Dump): Set both Print_Generated_Code and
	Debug_Generated_Code to False at the end.
---

diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index c13be5d1b35a..ba2ab3a1e08d 100644
--- a/gcc/ada/sprint.adb
+++ b/gcc/ada/sprint.adb
@@ -673,6 +673,11 @@ package body Sprint is
             end if;
          end loop;
       end if;
+
+      --  See above for the rationale, but we cannot do it earlier for them
+
+      Print_Generated_Code := False;
+      Debug_Generated_Code := False;
    end Source_Dump;
 
    ---------------------