summaryrefslogtreecommitdiff
path: root/gcc/ada/5vinterr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/5vinterr.adb')
-rw-r--r--gcc/ada/5vinterr.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/5vinterr.adb b/gcc/ada/5vinterr.adb
index f41f6542f92..f302ead12e3 100644
--- a/gcc/ada/5vinterr.adb
+++ b/gcc/ada/5vinterr.adb
@@ -951,7 +951,7 @@ package body System.Interrupts is
-----------------
task body Server_Task is
- Self_ID : Task_ID := Self;
+ Self_ID : constant Task_ID := Self;
Tmp_Handler : Parameterless_Handler;
Tmp_ID : Task_ID;
Tmp_Entry_Index : Task_Entry_Index;