From 544b30f81e53ee636aac905be63cc1ed0de88119 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 28 Nov 2021 17:26:27 +0100 Subject: [PATCH] [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. --- gcc/ada/sprint.adb | 5 +++++ 1 file changed, 5 insertions(+) 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; --------------------- -- 2.47.2