From fe94cb3cc3fd4517271faa9046c74b0c455aeb79 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sun, 9 Nov 2014 18:31:54 +0100
Subject: Split translation into child packages.

---
 src/vhdl/translate/ortho_front.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/vhdl/translate/ortho_front.adb')

diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb
index 56c7e61..0473899 100644
--- a/src/vhdl/translate/ortho_front.adb
+++ b/src/vhdl/translate/ortho_front.adb
@@ -285,7 +285,7 @@ package body Ortho_Front is
          when Action_Elaborate =>
             Flags.Flag_Elaborate := True;
             Flags.Flag_Only_Elab_Warnings := True;
-            Translation.Chap12.Elaborate
+            Translation.Elaborate
               (Elab_Entity.all, Elab_Architecture.all,
                Elab_Filelist.all, False);
 
@@ -324,7 +324,7 @@ package body Ortho_Front is
 
             Flags.Flag_Elaborate := True;
             Flags.Flag_Only_Elab_Warnings := False;
-            Translation.Chap12.Elaborate
+            Translation.Elaborate
               (Elab_Entity.all, Elab_Architecture.all, "", True);
 
             if Errorout.Nbr_Errors > 0 then
-- 
cgit