From 9a27e6a9f9e29adb968e4dfcd1328347b4da1df9 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 1 Sep 2022 10:16:23 +0200 Subject: [PATCH] ada: Fix typo in comment referring to pragma Restrictions Comment cleanup only. gcc/ada/ * libgnat/g-excact.ads (Register_Global_Action): Refill comment. (Name_To_Id): Change pragma Restriction from singular to plural. --- gcc/ada/libgnat/g-excact.ads | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gcc/ada/libgnat/g-excact.ads b/gcc/ada/libgnat/g-excact.ads index 110154651e04..c2e0b30b1da8 100644 --- a/gcc/ada/libgnat/g-excact.ads +++ b/gcc/ada/libgnat/g-excact.ads @@ -71,8 +71,7 @@ package GNAT.Exception_Actions is -- If Action is null, this will in effect cancel all exception actions. procedure Register_Global_Unhandled_Action (Action : Exception_Action); - -- Similar to Register_Global_Action, called on unhandled exceptions - -- only. + -- Similar to Register_Global_Action, called on unhandled exceptions only procedure Register_Id_Action (Id : Exception_Id; @@ -90,7 +89,7 @@ package GNAT.Exception_Actions is -- an exception that is declared within an unlabeled block. -- -- Note: All non-predefined exceptions will return Null_Id for programs - -- compiled with pragma Restriction (No_Exception_Registration) + -- compiled with pragma Restrictions (No_Exception_Registration). function Is_Foreign_Exception (E : Exception_Occurrence) return Boolean; -- Tell whether the exception occurrence E represents a foreign exception, -- 2.47.2