vhdl: move disp_tree and disp_vhdl as vhdl child.

3 files changed, 5 insertions, 5 deletions

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 297d39798..e0f5c6a24 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -25,7 +25,7 @@ with Std_Package;
 with Flags;
 with Name_Table;
 with Std_Names;
-with Disp_Vhdl;
+with Vhdl.Disp_Vhdl;
 with Default_Paths;
 with Vhdl.Scanner;
 with Errorout;
@@ -1116,7 +1116,7 @@ package body Ghdllocal is
       end if;
       Flags.Bootstrap := True;
       Libraries.Load_Std_Library;
-      Disp_Vhdl.Disp_Vhdl (Std_Package.Std_Standard_Unit);
+      Vhdl.Disp_Vhdl.Disp_Vhdl (Std_Package.Std_Standard_Unit);
    end Perform_Action;
 
    --  Command --find-top.
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 7156be9e9..231f156ac 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -36,7 +36,7 @@ with Xrefs;
 with Sem_Lib; use Sem_Lib;
 with Ghdlmain; use Ghdlmain;
 with Ghdllocal; use Ghdllocal;
-with Disp_Vhdl;
+with Vhdl.Disp_Vhdl;
 with Elocations;
 
 package body Ghdlprint is
@@ -1006,7 +1006,7 @@ package body Ghdlprint is
 
             Next_Unit := Get_Chain (Unit);
             if Errorout.Nbr_Errors = 0 then
-               Disp_Vhdl.Disp_Vhdl (Unit);
+               Vhdl.Disp_Vhdl.Disp_Vhdl (Unit);
                Set_Chain (Unit, Null_Iir);
                Libraries.Add_Design_Unit_Into_Library (Unit);
             end if;
diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb
index aaf5fb58b..32cbadb13 100644
--- a/src/ghdldrv/ghdlxml.adb
+++ b/src/ghdldrv/ghdlxml.adb
@@ -21,7 +21,7 @@ with Types; use Types;
 with Name_Table; use Name_Table;
 with Nodes_Meta; use Nodes_Meta;
 with Files_Map;
-with Disp_Tree; use Disp_Tree;
+with Vhdl.Disp_Tree; use Vhdl.Disp_Tree;
 with Ghdlprint; use Ghdlprint;
 with Libraries;
 with Errorout; use Errorout;