vhdl: move nodes to vhdl.nodes_priv.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb
index 8d73a7a2d..8550e0650 100644
--- a/src/vhdl/vhdl-sem_inst.adb
+++ b/src/vhdl/vhdl-sem_inst.adb
@@ -15,7 +15,7 @@
 --  the original declaration are also stored in that table.
 
 with Tables;
-with Nodes;
+with Vhdl.Nodes_Priv;
 with Nodes_Meta;
 with Types; use Types;
 with Files_Map;
@@ -48,7 +48,7 @@ package body Vhdl.Sem_Inst is
 
    procedure Expand_Origin_Table
    is
-      use Nodes;
+      use Vhdl.Nodes_Priv;
       Last : constant Iir := Iirs.Get_Last_Node;
       El : constant Iir := Origin_Table.Last;
    begin
@@ -62,7 +62,7 @@ package body Vhdl.Sem_Inst is
    function Get_Origin (N : Iir) return Iir
    is
       --  Make the '<=' operator visible.
-      use Nodes;
+      use Vhdl.Nodes_Priv;
    begin
       if N <= Origin_Table.Last then
          return Origin_Table.Table (N);
@@ -75,7 +75,7 @@ package body Vhdl.Sem_Inst is
    function Get_Instance (N : Iir) return Iir
    is
       --  Make '<=' operator visible for the assert.
-      use Nodes;
+      use Vhdl.Nodes_Priv;
    begin
       pragma Assert (N <= Origin_Table.Last);
       return Origin_Table.Table (N);
@@ -120,7 +120,7 @@ package body Vhdl.Sem_Inst is
    --  of ORIG is saved.
    procedure Set_Instance (Orig : Iir; N : Iir)
    is
-      use Nodes;
+      use Vhdl.Nodes_Priv;
    begin
       pragma Assert (Orig <= Origin_Table.Last);