diff options
Diffstat (limited to 'gcc/ada/par-ch11.adb')
-rw-r--r-- | gcc/ada/par-ch11.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/par-ch11.adb b/gcc/ada/par-ch11.adb index 412456e1a7e..14129bc6230 100644 --- a/gcc/ada/par-ch11.adb +++ b/gcc/ada/par-ch11.adb @@ -92,6 +92,7 @@ package body Ch11 is Choice_Param_Node : Node_Id; begin + Exception_Handler_Encountered := True; Handler_Node := New_Node (N_Exception_Handler, Token_Ptr); Set_Local_Raise_Statements (Handler_Node, No_Elist); |