diff options
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index 820f50d28..b3fc42c6d 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -467,6 +467,7 @@ package body Sem_Assocs is Sub : Iir; Formal_Object : Iir; begin + -- Recurse. Formal_Object := Name_To_Object (Formal); case Get_Kind (Formal_Object) is when Iir_Kind_Indexed_Name @@ -518,6 +519,7 @@ package body Sem_Assocs is end case; end Add_Individual_Association_1; + -- Insert ASSOC into the tree of individual assoc rooted by IASSOC. procedure Add_Individual_Association (Iassoc : Iir; Assoc : Iir) is Formal : Iir; |