diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-01-26 06:55:30 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-01-26 06:55:30 +0100 |
| commit | 3483b608443e6c3c24eae7966f39b152883bdf54 (patch) | |
| tree | f33fc1b87cd4d0ca5720bdb2b82ba14bbcbca544 /src/vhdl | |
| parent | 588437bbed0dafcff25b2b3593cc7885d7f3722e (diff) | |
| download | ghdl-3483b608443e6c3c24eae7966f39b152883bdf54.tar.gz ghdl-3483b608443e6c3c24eae7966f39b152883bdf54.tar.bz2 ghdl-3483b608443e6c3c24eae7966f39b152883bdf54.zip | |
sem_type: also set has_signal on subtype type mark type.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/sem_types.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/sem_types.adb b/src/vhdl/sem_types.adb index 01b862f3c..d4439b6ab 100644 --- a/src/vhdl/sem_types.adb +++ b/src/vhdl/sem_types.adb @@ -91,6 +91,13 @@ package body Sem_Types is | Iir_Kind_Record_Subtype_Definition => Set_Type_Has_Signal (Get_Base_Type (Atype)); Mark_Resolution_Function (Atype); + declare + Tm : constant Iir := Get_Subtype_Type_Mark (Atype); + begin + if Tm /= Null_Iir then + Set_Type_Has_Signal (Get_Type (Get_Named_Entity (Tm))); + end if; + end; when others => null; end case; |