diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:30:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:30:11 +0100 |
| commit | a3f0fe3693602af086246ac57b0363578c96e171 (patch) | |
| tree | 58b0cd92539ba138675ff54fb4bf84b2629b64d8 /src/synth/elab-vhdl_types.adb | |
| parent | 00319239e313633919ff821d2ffc81c0e5d605ff (diff) | |
| download | ghdl-a3f0fe3693602af086246ac57b0363578c96e171.tar.gz ghdl-a3f0fe3693602af086246ac57b0363578c96e171.tar.bz2 ghdl-a3f0fe3693602af086246ac57b0363578c96e171.zip | |
synth: add comments, minor rewrite
Diffstat (limited to 'src/synth/elab-vhdl_types.adb')
| -rw-r--r-- | src/synth/elab-vhdl_types.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_types.adb b/src/synth/elab-vhdl_types.adb index c448672ce..9018dc7fe 100644 --- a/src/synth/elab-vhdl_types.adb +++ b/src/synth/elab-vhdl_types.adb @@ -775,6 +775,8 @@ package body Elab.Vhdl_Types is end if; when Iir_Kinds_Denoting_Name => -- Already elaborated. + -- We cannot use the object type as it can be a subtype + -- deduced from the default value (for constants). Atype := Get_Type (Get_Named_Entity (Atype)); when Iir_Kind_Subtype_Attribute => declare |