ownership: check tree after sem and canon.

1 files changed, 19 insertions, 0 deletions

diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index ee10ed704..5495e6057 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -865,6 +865,25 @@ package body Iirs_Utils is
       return Res;
    end Build_Reference_Name;
 
+   function Build_Reference_Decl (Decl : Iir; Loc : Iir) return Iir
+   is
+      Res : Iir;
+   begin
+      Res := Create_Iir (Iir_Kind_Reference_Name);
+      Location_Copy (Res, Loc);
+      Set_Named_Entity (Res, Decl);
+      return Res;
+   end Build_Reference_Decl;
+
+   function Strip_Reference_Name (N : Iir) return Iir is
+   begin
+      if Get_Kind (N) = Iir_Kind_Reference_Name then
+         return Get_Named_Entity (N);
+      else
+         return N;
+      end if;
+   end Strip_Reference_Name;
+
    function Has_Resolution_Function (Subtyp : Iir) return Iir
    is
       Ind : constant Iir := Get_Resolution_Indication (Subtyp);