public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r13-308] [Ada] Fix style of body header boxes
@ 2022-05-11 8:56 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-11 8:56 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:bd97da66c886a69c2d831dad1b3ffe06aa1879fe
commit r13-308-gbd97da66c886a69c2d831dad1b3ffe06aa1879fe
Author: Piotr Trojanek <trojanek@adacore.com>
Date: Thu Feb 3 21:28:44 2022 +0100
[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.
Diff:
---
gcc/ada/sem_case.adb | 1 +
gcc/ada/sem_ch12.adb | 6 +++---
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 ccd4b18b4af..0bb358a68ff 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 fa36d0f8f05..963f353d063 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 d0cbf3f740d..d3b8eacadf1 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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-05-11 8:56 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-11 8:56 [gcc r13-308] [Ada] Fix style of body header boxes Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).