From f26603130376dbdaf498a7441ada4b02e194b684 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 15 Jun 2022 04:59:14 +0200 Subject: Add comments --- src/synth/netlists-rename.adb | 2 +- src/vhdl/vhdl-sem_names.adb | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 := -- cgit v1.2.3