diff options
Diffstat (limited to 'gcc/ada/exp_ch11.adb')
| -rw-r--r-- | gcc/ada/exp_ch11.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index 16e6544d281..511923b5ba1 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -721,7 +721,7 @@ package body Exp_Ch11 is if Debug_Flag_Dot_X and then Comes_From_Source (Handler) then declare - H : Node_Id := Handler; + H : constant Node_Id := Handler; begin Next_Non_Pragma (Handler); Remove (H); |