diff options
Diffstat (limited to 'gcc/ada/a-except.adb')
| -rw-r--r-- | gcc/ada/a-except.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index d6a6f5ff3c6..cf12af818c7 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -859,6 +859,8 @@ package body Ada.Exceptions is ------------------------- procedure Raise_Current_Excep (E : Exception_Id) is + pragma Inspection_Point (E); + -- This is so the debugger can reliably inspect the parameter begin Process_Raise_Exception (E => E, From_Signal_Handler => False); end Raise_Current_Excep; |