diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-01-29 16:32:19 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-13 10:03:32 +0200 |
| commit | da8847559413c15fb6da1455eb1184f7aa928678 (patch) | |
| tree | 70f08a3c9cda3c8caba653fb984ffdb9ba6cad3a | |
| parent | 32fe73ee9d96bb861014526326c94ef4e23bdace (diff) | |
| download | gcc-da8847559413c15fb6da1455eb1184f7aa928678.zip gcc-da8847559413c15fb6da1455eb1184f7aa928678.tar.gz gcc-da8847559413c15fb6da1455eb1184f7aa928678.tar.bz2 | |
ada: Refine type of a local variable
Code cleanup; semantics is unaffected.
gcc/ada/
* sem_util.adb (Has_No_Output): Iteration with
First_Formal/Next_Formal involves Entity_Ids.
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index e9ab665..0305503 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -4203,7 +4203,7 @@ package body Sem_Util is ------------------- function Has_No_Output (Subp : Entity_Id) return Boolean is - Param : Node_Id; + Param : Entity_Id; begin -- A function has its result as output |