diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-06 08:50:35 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-06 08:50:35 +0100 |
| commit | f5130442c175e7308e26b092dcebd0c6901e4881 (patch) | |
| tree | d910d4b5df38e22c6bb5b0bb734fd95ebca1f415 | |
| parent | b3403ccd4f9217b54592e964db419c83b3d86be1 (diff) | |
| download | ghdl-f5130442c175e7308e26b092dcebd0c6901e4881.tar.gz ghdl-f5130442c175e7308e26b092dcebd0c6901e4881.tar.bz2 ghdl-f5130442c175e7308e26b092dcebd0c6901e4881.zip | |
A subtype of a resolved array type is resolved.
| -rw-r--r-- | src/vhdl/sem_types.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/sem_types.adb b/src/vhdl/sem_types.adb index f80fc8679..47559c354 100644 --- a/src/vhdl/sem_types.adb +++ b/src/vhdl/sem_types.adb @@ -1569,6 +1569,9 @@ package body Sem_Types is Set_Resolution_Indication (Res, Resolv_Ind); end if; Set_Resolved_Flag (Res, Get_Resolved_Flag (Type_Mark)); + else + pragma Assert (Get_Kind (Type_Mark) = Iir_Kind_Array_Type_Definition); + Set_Resolved_Flag (Res, Get_Resolved_Flag (Type_Mark)); end if; return Res; |