[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 c13be5d1b35a0d6483149b4c212242c1be97867f..ba2ab3a1e08d201b1a6e3dfc15ef9fd4249d1b7d 100644 (file)
--- 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;
 
    ---------------------