diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-11-16 10:29:23 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-11-28 10:35:48 +0100 |
| commit | 7eaf95689bf495ab07473951ededa835eb618123 (patch) | |
| tree | e3f7de0381a823316465218c840a545f10484f21 /gcc/ada/gcc-interface | |
| parent | 60123b134bf3d925c5d696b5fcd9adfc8f4b54e7 (diff) | |
| download | gcc-7eaf95689bf495ab07473951ededa835eb618123.zip gcc-7eaf95689bf495ab07473951ededa835eb618123.tar.gz gcc-7eaf95689bf495ab07473951ededa835eb618123.tar.bz2 | |
ada: Fix wrong size value output with -gnatR -gnatc
This happens when a parameter is involved in the computation.
gcc/ada/
* gcc-interface/decl.cc (annotate_value): Apply the same processing
for parameters as for variables.
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.cc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc index c446b14..d2456bf 100644 --- a/gcc/ada/gcc-interface/decl.cc +++ b/gcc/ada/gcc-interface/decl.cc @@ -8897,6 +8897,7 @@ annotate_value (tree gnu_size) return No_Uint; break; + case PARM_DECL: case VAR_DECL: tcode = Dynamic_Val; ops[0] = UI_From_Int (++var_count); |