diff options
Diffstat (limited to 'gcc/ada/s-inmaop.ads')
| -rw-r--r-- | gcc/ada/s-inmaop.ads | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/s-inmaop.ads b/gcc/ada/s-inmaop.ads index 87d82ab62ae..0fd1e00612d 100644 --- a/gcc/ada/s-inmaop.ads +++ b/gcc/ada/s-inmaop.ads @@ -63,11 +63,11 @@ package System.Interrupt_Management.Operations is procedure Install_Default_Action (Interrupt : Interrupt_ID); pragma Inline (Install_Default_Action); - -- Set the sigaction of the Interrupt to default (SIG_DFL). + -- Set the sigaction of the Interrupt to default (SIG_DFL) procedure Install_Ignore_Action (Interrupt : Interrupt_ID); pragma Inline (Install_Ignore_Action); - -- Set the sigaction of the Interrupt to ignore (SIG_IGN). + -- Set the sigaction of the Interrupt to ignore (SIG_IGN) procedure Fill_Interrupt_Mask (Mask : access Interrupt_Mask); pragma Inline (Fill_Interrupt_Mask); @@ -97,7 +97,7 @@ package System.Interrupt_Management.Operations is procedure Copy_Interrupt_Mask (X : out Interrupt_Mask; Y : Interrupt_Mask); pragma Inline (Copy_Interrupt_Mask); - -- Assigment needed for limited private type Interrupt_Mask. + -- Assigment needed for limited private type Interrupt_Mask procedure Interrupt_Self_Process (Interrupt : Interrupt_ID); pragma Inline (Interrupt_Self_Process); @@ -108,18 +108,18 @@ package System.Interrupt_Management.Operations is -- This function should be called by the elaboration of System.Interrupt -- to set up proper signal masking in all tasks. - -- The following objects serve as constants, but are initialized - -- in the body to aid portability. These actually belong to the - -- System.Interrupt_Management but since Interrupt_Mask is a - -- private type we can not have them declared there. + -- The following objects serve as constants, but are initialized in the + -- body to aid portability. These should be in System.Interrupt_Management + -- but since Interrupt_Mask is private type we cannot have them declared + -- there. -- Why not make these deferred constants that are initialized using -- function calls in the private part??? Environment_Mask : aliased Interrupt_Mask; - -- This mask represents the mask of Environment task when this package - -- is being elaborated, except the signals being - -- forced to be unmasked by RTS (items in Keep_Unmasked) + -- This mask represents the mask of Environment task when this package is + -- being elaborated, except the signals being forced to be unmasked by RTS + -- (items in Keep_Unmasked) All_Tasks_Mask : aliased Interrupt_Mask; -- This is the mask of all tasks created in RTS. Only one task in RTS |