diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-10-15 13:23:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-10-15 13:23:36 +0200 |
commit | 0d82b72ca11cb249888356caec800ddd43a70c82 (patch) | |
tree | 32aff68491cf3ecf5b168736cb783f988af96ea1 /src/ghdldrv/ghdlprint.adb | |
parent | 6130e048c1dc667684d16792e9439a95483cbeb3 (diff) | |
download | ghdl-0d82b72ca11cb249888356caec800ddd43a70c82.tar.gz ghdl-0d82b72ca11cb249888356caec800ddd43a70c82.tar.bz2 ghdl-0d82b72ca11cb249888356caec800ddd43a70c82.zip |
Finish_Compilation: factorize code, move to libraries.
Diffstat (limited to 'src/ghdldrv/ghdlprint.adb')
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index d9c6165a8..d4eb822d6 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -35,7 +35,6 @@ with Xrefs; with Ghdlmain; use Ghdlmain; with Ghdllocal; use Ghdllocal; with Disp_Vhdl; -with Back_End; package body Ghdlprint is type Html_Format_Type is (Html_2, Html_Css); @@ -998,7 +997,7 @@ package body Ghdlprint is Unit := Get_First_Design_Unit (Design_File); while Unit /= Null_Iir loop -- Analyze the design unit. - Back_End.Finish_Compilation (Unit, True); + Libraries.Finish_Compilation (Unit, True); Next_Unit := Get_Chain (Unit); if Errorout.Nbr_Errors = 0 then |