From: Ronan Desplanques <desplanques@adacore.com>
Date: Mon, 26 Jan 2026 14:55:55 +0000 (+0100)
Subject: ada: Minor comment and formatting fixes
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=fa5c8afb7bbf5c8b4d23823a7f4b4c12eaf7a93f;p=thirdparty%2Fgcc.git

ada: Minor comment and formatting fixes

gcc/ada/ChangeLog:

	* libgnarl/s-interr.adb (User_Handler): Improve comment.
	(Unprotected_Exchange_Handler): Fix message string.
---

diff --git a/gcc/ada/libgnarl/s-interr.adb b/gcc/ada/libgnarl/s-interr.adb
index 47bcf6b2cb7..a65c3f5a940 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;