2 files changed, 9 insertions, 0 deletions
diff --git a/src/synth/ghdlsynth.h b/src/synth/ghdlsynth.h
index 90c4f15f0..abbb68f77 100644
--- a/src/synth/ghdlsynth.h
+++ b/src/synth/ghdlsynth.h
@@ -72,6 +72,13 @@ namespace GhdlSynth {
     return name_table__get_address (n.id);
   }
 
+  extern "C" unsigned name_table__get_identifier_with_len(const char *s, unsigned l);
+  inline Name_Id get_identifier(const char *s) {
+    Name_Id n;
+    n.id = name_table__get_identifier_with_len(s, strlen(s));
+    return n;
+  }
+
   struct Sname { unsigned int id; };
   const Sname No_Sname = {0 };
 
diff --git a/src/synth/netlists.ads b/src/synth/netlists.ads
index 5ef74a77d..93bf8b1d3 100644
--- a/src/synth/netlists.ads
+++ b/src/synth/netlists.ads
@@ -397,6 +397,8 @@ private
    function Attribute_Build (Params : Instance) return Instance;
    function Attribute_Build_Value (Obj : Instance) return Attribute;
 
+   --  Per instance map of attribute.
+   --  The index is the sub-instance, the value is the attribute chain.
    package Attribute_Maps is new Dyn_Maps
      (Params_Type => Instance,
       Object_Type => Instance,