diff options
Diffstat (limited to 'gcc/ada/s-taenca.adb')
| -rw-r--r-- | gcc/ada/s-taenca.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-taenca.adb b/gcc/ada/s-taenca.adb index cdc9f6f0cd5..db99abcbe3e 100644 --- a/gcc/ada/s-taenca.adb +++ b/gcc/ada/s-taenca.adb @@ -262,7 +262,7 @@ package body System.Tasking.Entry_Calls is if Ceiling_Violation then declare - Current_Task : Task_ID := STPO.Self; + Current_Task : constant Task_ID := STPO.Self; Old_Base_Priority : System.Any_Priority; begin |