[gcc r17-771] ada: Minor comment and formatting fixes

[Marc Poulhies]

https://gcc.gnu.org/g:fa5c8afb7bbf5c8b4d23823a7f4b4c12eaf7a93f

commit r17-771-gfa5c8afb7bbf5c8b4d23823a7f4b4c12eaf7a93f
Author: Ronan Desplanques <desplanques@adacore.com>
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;