diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-12-20 00:07:23 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-01-07 13:33:34 +0100 |
| commit | e8aadcb3518359c13fe5bd8fb7804d9cd60b4cad (patch) | |
| tree | 650b864a950f7c7f34c83cad528df5d3a5d67acc /gcc/ada | |
| parent | 672175768244d6962e11df5dee0cdf0fb28051ed (diff) | |
| download | gcc-e8aadcb3518359c13fe5bd8fb7804d9cd60b4cad.zip gcc-e8aadcb3518359c13fe5bd8fb7804d9cd60b4cad.tar.gz gcc-e8aadcb3518359c13fe5bd8fb7804d9cd60b4cad.tar.bz2 | |
ada: Fix violations of GNAT-specific GNATcheck rules
Code cleanup; semantics is unaffected.
gcc/ada/ChangeLog:
* diagnostics-pretty_emitter.adb (Get_Last_Line_Char): Fix whitespace.
* sem_aggr.adb (Resolve_Array_Aggregate): Fix style.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/diagnostics-pretty_emitter.adb | 1 | ||||
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/diagnostics-pretty_emitter.adb b/gcc/ada/diagnostics-pretty_emitter.adb index e376ae1..c624f40 100644 --- a/gcc/ada/diagnostics-pretty_emitter.adb +++ b/gcc/ada/diagnostics-pretty_emitter.adb @@ -327,7 +327,6 @@ package body Diagnostics.Pretty_Emitter is is Cur_Loc : Source_Ptr := Get_Line_End (Buf, Loc); begin - while Cur_Loc > Buf'First and then Buf (Cur_Loc) in ASCII.LF | ASCII.CR loop diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 5bef9e2..562240c 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -2968,8 +2968,8 @@ package body Sem_Aggr is Scope_Parent : Node_Id; begin if Nkind (Exp) /= N_Identifier - or else not Present (Entity (Exp)) - or else not Present (Scope (Entity (Exp))) + or else No (Entity (Exp)) + or else No (Scope (Entity (Exp))) or else Ekind (Scope (Entity (Exp))) /= E_Loop then return OK; |