diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-05-26 20:06:14 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-10 05:16:17 -0400 |
| commit | 9e0cd875b5c5911200543044f855843afb93bf67 (patch) | |
| tree | becb29d9281d5cb65897e465331bc49060576e6a /gcc | |
| parent | a042b9c6809a23bfb71676646a8c28b1e8e1249f (diff) | |
| download | gcc-9e0cd875b5c5911200543044f855843afb93bf67.zip gcc-9e0cd875b5c5911200543044f855843afb93bf67.tar.gz gcc-9e0cd875b5c5911200543044f855843afb93bf67.tar.bz2 | |
[Ada] Fix crash on quantified expression in expression function (2)
gcc/ada/
* freeze.adb (Freeze_Expr_Types): Replace call to Find_Aspect
with call to Find_Value_Of_Aspect and adjust accordingly.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/freeze.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 6620ae3..65377ca 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -8000,10 +8000,11 @@ package body Freeze is then declare Iter : constant Node_Id := - Find_Aspect (Etype (Node), Aspect_Default_Iterator); + Find_Value_Of_Aspect (Etype (Node), Aspect_Default_Iterator); + begin if Present (Iter) then - Check_And_Freeze_Type (Etype (Expression (Iter))); + Check_And_Freeze_Type (Etype (Iter)); end if; end; end if; |