diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-taprop__linux.adb')
-rw-r--r-- | gcc/ada/libgnarl/s-taprop__linux.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/libgnarl/s-taprop__linux.adb b/gcc/ada/libgnarl/s-taprop__linux.adb index 93ffb3a..1c8c6bd 100644 --- a/gcc/ada/libgnarl/s-taprop__linux.adb +++ b/gcc/ada/libgnarl/s-taprop__linux.adb @@ -84,13 +84,13 @@ package body System.Task_Primitives.Operations is Next_Serial_Number : Task_Serial_Number := 100; -- We start at 100 (reserve some special values for using in error checks) - Time_Slice_Val : Integer; + Time_Slice_Val : constant Integer; pragma Import (C, Time_Slice_Val, "__gl_time_slice_val"); - Dispatching_Policy : Character; + Dispatching_Policy : constant Character; pragma Import (C, Dispatching_Policy, "__gl_task_dispatching_policy"); - Locking_Policy : Character; + Locking_Policy : constant Character; pragma Import (C, Locking_Policy, "__gl_locking_policy"); Foreign_Task_Elaborated : aliased Boolean := True; |