diff options
Diffstat (limited to 'gcc/ada/s-tassta.adb')
| -rw-r--r-- | gcc/ada/s-tassta.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index 8fc01030702..14826330e72 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -1089,7 +1089,8 @@ package body System.Tasking.Stages is (Ada, Tailored_Exception_Information, "__gnat_tailored_exception_information"); - Excep : Exception_Occurrence_Access := SSL.Get_Current_Excep.all; + Excep : constant Exception_Occurrence_Access := + SSL.Get_Current_Excep.all; begin -- This procedure is called by the task outermost handler in |