diff options
Diffstat (limited to 'src/vhdl/vhdl-elocations.adb.in')
| -rw-r--r-- | src/vhdl/vhdl-elocations.adb.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-elocations.adb.in b/src/vhdl/vhdl-elocations.adb.in index 1e2827b5f..80fab21ce 100644 --- a/src/vhdl/vhdl-elocations.adb.in +++ b/src/vhdl/vhdl-elocations.adb.in @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Tables; -with Nodes; +with Vhdl.Nodes_Priv; with Vhdl.Elocations_Meta; use Vhdl.Elocations_Meta; package body Vhdl.Elocations is @@ -90,7 +90,7 @@ package body Vhdl.Elocations is procedure Create_Elocations (N : Iir) is - use Nodes; + use Vhdl.Nodes_Priv; Format : constant Format_Type := Get_Format (Get_Kind (N)); El : constant Iir := Elocations_Index_Table.Last; Len : Location_Index_Type; @@ -148,7 +148,7 @@ package body Vhdl.Elocations is function Get_FieldX (N : Iir) return Location_Type is - use Nodes; + use Vhdl.Nodes_Priv; Idx : Location_Index_Type; begin pragma Assert (N <= Elocations_Index_Table.Last); @@ -158,7 +158,7 @@ package body Vhdl.Elocations is procedure Set_FieldX (N : Iir; Loc : Location_Type) is - use Nodes; + use Vhdl.Nodes_Priv; Idx : Location_Index_Type; begin pragma Assert (N <= Elocations_Index_Table.Last); |