aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/synth/netlists-rename.adb2
-rw-r--r--src/vhdl/vhdl-sem_names.adb1
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 :=