diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-03-29 04:43:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-03-29 04:43:00 +0100 |
| commit | 7f7fdf816df6c7dcb24f202c6c88f1efcd752f29 (patch) | |
| tree | 681529ac80d3b6d36b7feab161506487a3495c40 /sem_assocs.adb | |
| parent | e7b2039857db4ba617c5a399c11cc4ff4c969959 (diff) | |
| download | ghdl-7f7fdf816df6c7dcb24f202c6c88f1efcd752f29.tar.gz ghdl-7f7fdf816df6c7dcb24f202c6c88f1efcd752f29.tar.bz2 ghdl-7f7fdf816df6c7dcb24f202c6c88f1efcd752f29.zip | |
Set some missing flags (was harmless).
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index 178bf6d2c..d752c7949 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -697,6 +697,7 @@ package body Sem_Assocs is case Get_Kind (Atype) is when Iir_Kind_Array_Subtype_Definition => Finish_Individual_Assoc_Array_Subtype (Assoc, Atype, 1); + Set_Actual_Type (Assoc, Atype); when Iir_Kind_Array_Type_Definition => Atype := Create_Array_Subtype (Atype, Get_Location (Assoc)); Set_Index_Constraint_Flag (Atype, True); |