diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-taprop__hpux-dce.adb')
| -rw-r--r-- | gcc/ada/libgnarl/s-taprop__hpux-dce.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/libgnarl/s-taprop__hpux-dce.adb b/gcc/ada/libgnarl/s-taprop__hpux-dce.adb index ebd8941..9bded3a 100644 --- a/gcc/ada/libgnarl/s-taprop__hpux-dce.adb +++ b/gcc/ada/libgnarl/s-taprop__hpux-dce.adb @@ -87,10 +87,10 @@ package body System.Task_Primitives.Operations is Unblocked_Signal_Mask : aliased sigset_t; -- The set of signals that should unblocked in all tasks - 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"); -- Note: the reason that Locking_Policy is not needed is that this |