[Ada] Sort Detect_Blocking alphabetically among names and pragmas
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 4 Feb 2022 12:34:52 +0000 (13:34 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 11 May 2022 08:53:22 +0000 (08:53 +0000)
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.

gcc/ada/snames.ads-tmpl

index dc09e07..cbcb1cf 100644 (file)
@@ -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,