diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-03 13:23:36 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-06 17:11:31 +0000 |
| commit | 2a3652640b612c1e7619dfa10c096f3adc750b41 (patch) | |
| tree | 372d77774c1dc51d880271eb4c14951fea3a49b5 | |
| parent | d6f0d0d4c18ef3209622fa47efadf999a21cd394 (diff) | |
| download | gcc-2a3652640b612c1e7619dfa10c096f3adc750b41.zip gcc-2a3652640b612c1e7619dfa10c096f3adc750b41.tar.gz gcc-2a3652640b612c1e7619dfa10c096f3adc750b41.tar.bz2 | |
[Ada] Simplify repeated calls in printing of GNAT AST
gcc/ada/
* treepr.adb (Visit_Node): Simplify repeated call to
Next_Entity.
| -rw-r--r-- | gcc/ada/treepr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index f317d8f..b6a6525 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -2305,8 +2305,8 @@ package body Treepr is begin Nod := N; while Present (Nod) loop - Visit_Descendant (Union_Id (Next_Entity (Nod))); Next_Entity (Nod); + Visit_Descendant (Union_Id (Nod)); end loop; end; end if; |