From: Piotr Trojanek Date: Fri, 4 Feb 2022 12:34:52 +0000 (+0100) Subject: [Ada] Sort Detect_Blocking alphabetically among names and pragmas X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=48a2e84929bba9aa60497c39c18c332ebfbd256e;p=platform%2Fupstream%2Fgcc.git [Ada] Sort Detect_Blocking alphabetically among names and pragmas In GNAT User's Guide section about configuration pragmas the Detect_Blocking has been recently moved to an alphabetic order. This patch moves the its Name_Id and Pragma_Is in the source code to match this order. gcc/ada/ * snames.ads-tmpl (Detect_Blocking): Move after Default_Storage_Pool. --- diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl index dc09e07..cbcb1cf 100644 --- a/gcc/ada/snames.ads-tmpl +++ b/gcc/ada/snames.ads-tmpl @@ -417,7 +417,6 @@ package Snames is Name_Component_Alignment : constant Name_Id := N + $; -- GNAT Name_Convention_Identifier : constant Name_Id := N + $; -- GNAT Name_Debug_Policy : constant Name_Id := N + $; -- GNAT - Name_Detect_Blocking : constant Name_Id := N + $; -- Ada 05 -- Note: Default_Scalar_Storage_Order is not in this list because its name -- matches the name of the corresponding attribute. However, it is included @@ -425,6 +424,7 @@ package Snames is -- and Is_Pragma_Name correctly recognize Default_Scalar_Storage_Order. Name_Default_Storage_Pool : constant Name_Id := N + $; -- Ada 12 + Name_Detect_Blocking : constant Name_Id := N + $; -- Ada 05 Name_Disable_Atomic_Synchronization : constant Name_Id := N + $; -- GNAT Name_Discard_Names : constant Name_Id := N + $; Name_Elaboration_Checks : constant Name_Id := N + $; -- GNAT @@ -1741,8 +1741,8 @@ package Snames is Pragma_Component_Alignment, Pragma_Convention_Identifier, Pragma_Debug_Policy, - Pragma_Detect_Blocking, Pragma_Default_Storage_Pool, + Pragma_Detect_Blocking, Pragma_Disable_Atomic_Synchronization, Pragma_Discard_Names, Pragma_Elaboration_Checks,