diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-11-28 17:26:27 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-02 16:26:30 +0000 |
| commit | 544b30f81e53ee636aac905be63cc1ed0de88119 (patch) | |
| tree | d50aea1f6fde2caece83a64c06577213640e4968 /gcc | |
| parent | 5a35fe64c7a89935599af3d4693494ca4578cd7f (diff) | |
| download | gcc-544b30f81e53ee636aac905be63cc1ed0de88119.zip gcc-544b30f81e53ee636aac905be63cc1ed0de88119.tar.gz gcc-544b30f81e53ee636aac905be63cc1ed0de88119.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sprint.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index c13be5d..ba2ab3a 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; --------------------- |