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/ghdlcomp.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/ghdlcomp.adb')
| -rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 77aa4ebe7..5d7dd7a28 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -26,7 +26,6 @@ with Types; with Iirs; use Iirs; with Nodes_GC; with Flags; -with Back_End; with Sem; with Name_Table; with Errorout; use Errorout; @@ -341,7 +340,7 @@ package body Ghdlcomp is if Design_File /= Null_Iir then Unit := Get_First_Design_Unit (Design_File); while Unit /= Null_Iir loop - Back_End.Finish_Compilation (Unit, True); + Libraries.Finish_Compilation (Unit, True); Next_Unit := Get_Chain (Unit); |