https://gcc.gnu.org/g:5d1ef50d12ffec13da8e0fb4b01d59b5ccc75c52
commit r16-8992-g5d1ef50d12ffec13da8e0fb4b01d59b5ccc75c52 Author: Ronan Desplanques <[email protected]> Date: Mon Jan 26 15:55:55 2026 +0100 ada: Minor comment and formatting fixes gcc/ada/ChangeLog: * libgnarl/s-interr.adb (User_Handler): Improve comment. (Unprotected_Exchange_Handler): Fix message string. Diff: --- gcc/ada/libgnarl/s-interr.adb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/gcc/ada/libgnarl/s-interr.adb b/gcc/ada/libgnarl/s-interr.adb index 47bcf6b2cb72..a65c3f5a940a 100644 --- a/gcc/ada/libgnarl/s-interr.adb +++ b/gcc/ada/libgnarl/s-interr.adb @@ -156,10 +156,10 @@ package body System.Interrupts is User_Handler : array (Interrupt_ID'Range) of Handler_Assoc := [others => (null, Static => False)]; pragma Volatile_Components (User_Handler); - -- Holds the protected procedure handler (if any) and its Static - -- information for each interrupt. A handler is a Static one if it is - -- specified through the pragma Attach_Handler. Attach_Handler. Otherwise, - -- not static) + -- Holds the protected procedure handler (if any) and whether it is Static + -- for each interrupt. A handler is a Static one if and only if it is + -- specified through the Attach_Handler aspect (or the obsolescent + -- Attach_Handler pragma). User_Entry : array (Interrupt_ID'Range) of Entry_Assoc := [others => (T => Null_Task, E => Null_Task_Entry)]; @@ -875,8 +875,7 @@ package body System.Interrupts is -- aspect (see the second sentence of RM C.3.2 (17/3)). if not Is_Registered (New_Handler) then raise Program_Error - with - "trying to attach procedure without " & "Interrupt_Handler"; + with "trying to attach procedure without Interrupt_Handler"; end if; end if;
