diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-05 21:09:28 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-27 04:16:00 -0500 |
| commit | a0f2ee7a7f99f35ef59e125ff046df84a711ebfb (patch) | |
| tree | bb608559b50b7284be5fdd64b89426a2349b4ede /gcc/ada/sem_attr.adb | |
| parent | a873cb9978cec9b70b04daa2acb3a9dfb33110d2 (diff) | |
| download | gcc-a0f2ee7a7f99f35ef59e125ff046df84a711ebfb.zip gcc-a0f2ee7a7f99f35ef59e125ff046df84a711ebfb.tar.gz gcc-a0f2ee7a7f99f35ef59e125ff046df84a711ebfb.tar.bz2 | |
[Ada] Restore access type instead of mode out parameter
gcc/ada/
* sem_eval.ads (Compile_Time_Compare): Restore parameter Diff to
be of an access type.
* sem_eval.adb (Compile_Time_Compare): Adapt body and callers.
* sem_attr.adb (Eval_Attribute): Adapt callers.
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index e42c503..18b4eea 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -9138,12 +9138,12 @@ package body Sem_Attr is -- comparable, and we can figure out the difference between them. declare - Diff : Uint; + Diff : aliased Uint; begin case Compile_Time_Compare - (Lo_Bound, Hi_Bound, Diff, Assume_Valid => False) + (Lo_Bound, Hi_Bound, Diff'Access, Assume_Valid => False) is when EQ => Fold_Uint (N, Uint_1, Static); @@ -9631,7 +9631,7 @@ package body Sem_Attr is ------------------ when Attribute_Range_Length => Range_Length : declare - Diff : Uint; + Diff : aliased Uint; begin Set_Bounds; @@ -9651,7 +9651,7 @@ package body Sem_Attr is -- comparable, and we can figure out the difference between them. case Compile_Time_Compare - (Lo_Bound, Hi_Bound, Diff, Assume_Valid => False) + (Lo_Bound, Hi_Bound, Diff'Access, Assume_Valid => False) is when EQ => Fold_Uint (N, Uint_1, Static); |