From 19a9154fb3fadd0a33a6826e525091a9a75687e4 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 4 May 2019 22:12:13 +0200 Subject: vhdl: move disp_tree and disp_vhdl as vhdl child. --- src/ghdldrv/ghdllocal.adb | 4 ++-- src/ghdldrv/ghdlprint.adb | 4 ++-- src/ghdldrv/ghdlxml.adb | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src/ghdldrv') 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; -- cgit v1.2.3