diff options
| -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 := |