diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-02-03 21:28:44 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-11 08:53:20 +0000 |
| commit | bd97da66c886a69c2d831dad1b3ffe06aa1879fe (patch) | |
| tree | 99a0af3601a25ec03b08e5ad39b5cfe3b1263a8c | |
| parent | e6f7d5ff4f990c8f614c654353a3aa843f009349 (diff) | |
| download | gcc-bd97da66c886a69c2d831dad1b3ffe06aa1879fe.zip gcc-bd97da66c886a69c2d831dad1b3ffe06aa1879fe.tar.gz gcc-bd97da66c886a69c2d831dad1b3ffe06aa1879fe.tar.bz2 | |
[Ada] Fix style of body header boxes
gcc/ada/
* sem_case.adb (Free_Value_Sets): Fix style in body header box.
* sem_ch12.adb (Build_Subprogram_Wrappers): Likewise.
* sem_util.adb (Statically_Denotes_Entity): Likewise.
| -rw-r--r-- | gcc/ada/sem_case.adb | 1 | ||||
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 1 |
3 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index ccd4b18..0bb358a 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -2667,6 +2667,7 @@ package body Sem_Case is --------------------- -- Free_Value_Sets -- --------------------- + procedure Free_Value_Sets is begin Value_Index_Set_Table.Free; diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index fa36d0f..963f353 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -1178,9 +1178,9 @@ package body Sem_Ch12 is -- anonymous types, the presence a formal equality will introduce an -- implicit declaration for the corresponding inequality. - ----------------------------------------- - -- procedure Build_Subprogram_Wrappers -- - ----------------------------------------- + ------------------------------- + -- Build_Subprogram_Wrappers -- + ------------------------------- procedure Build_Subprogram_Wrappers is Formal : constant Entity_Id := diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index d0cbf3f..d3b8eac 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -28763,6 +28763,7 @@ package body Sem_Util is ------------------------------- -- Statically_Denotes_Entity -- ------------------------------- + function Statically_Denotes_Entity (N : Node_Id) return Boolean is E : Entity_Id; begin |