diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-09-01 10:16:23 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-04 14:47:31 +0100 |
| commit | 9a27e6a9f9e29adb968e4dfcd1328347b4da1df9 (patch) | |
| tree | a4e963188468a1fa94c6ff7bd8e1840648105625 /gcc | |
| parent | 052888415bc54b82ecf0aabe4495bd04f0ecf3bc (diff) | |
| download | gcc-9a27e6a9f9e29adb968e4dfcd1328347b4da1df9.zip gcc-9a27e6a9f9e29adb968e4dfcd1328347b4da1df9.tar.gz gcc-9a27e6a9f9e29adb968e4dfcd1328347b4da1df9.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/g-excact.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/libgnat/g-excact.ads b/gcc/ada/libgnat/g-excact.ads index 1101546..c2e0b30 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, |