diff options
Diffstat (limited to 'gcc/ada/5staprop.adb')
| -rw-r--r-- | gcc/ada/5staprop.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/5staprop.adb b/gcc/ada/5staprop.adb index 0242b0a..a264b02 100644 --- a/gcc/ada/5staprop.adb +++ b/gcc/ada/5staprop.adb @@ -1465,7 +1465,7 @@ package body System.Task_Primitives.Operations is function Check_Sleep (Reason : Task_States) return Boolean is pragma Unreferenced (Reason); - Self_ID : Task_ID := Self; + Self_ID : constant Task_ID := Self; P : Lock_Ptr; begin |