diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-06-15 04:59:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-06-15 04:59:14 +0200 |
| commit | f26603130376dbdaf498a7441ada4b02e194b684 (patch) | |
| tree | dae997ee30dfdd0b37c553babb61e124e623602c /src | |
| parent | e15629320e954921f1332bfe7c97e3fc18f52832 (diff) | |
| download | ghdl-f26603130376dbdaf498a7441ada4b02e194b684.tar.gz ghdl-f26603130376dbdaf498a7441ada4b02e194b684.tar.bz2 ghdl-f26603130376dbdaf498a7441ada4b02e194b684.zip | |
Add comments
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/netlists-rename.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/netlists-rename.adb b/src/synth/netlists-rename.adb index 6523d7e2a..7b0c8e5f9 100644 --- a/src/synth/netlists-rename.adb +++ b/src/synth/netlists-rename.adb @@ -93,7 +93,7 @@ package body Netlists.Rename is Set_Output_Desc (M, I - 1, Port); end loop; - -- Rename instances + -- Rename some instances. Inst := Get_First_Instance (M); while Inst /= No_Instance loop case Get_Id (Inst) is diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index 6586389cb..d38f78ee5 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -3802,6 +3802,7 @@ package body Vhdl.Sem_Names is -- The type defined by 'element is always constrained. Create -- a subtype if it is not. + -- NO, it isn't. The prefix can be a type. Attr_Subtype := Get_Element_Subtype (Attr_Type); if False and not Is_Fully_Constrained_Type (Attr_Subtype) then Attr_Subtype := |