vhdl: move back_end to vhdl child.

3 files changed, 8 insertions, 8 deletions

diff --git a/src/vhdl/translate/trans_be.adb b/src/vhdl/translate/trans_be.adb
index e3f8e20da..af76725d1 100644
--- a/src/vhdl/translate/trans_be.adb
+++ b/src/vhdl/translate/trans_be.adb
@@ -17,7 +17,7 @@
 --  02111-1307, USA.
 with Errorout; use Errorout;
 with Ada.Text_IO;
-with Back_End;
+with Vhdl.Back_End;
 
 package body Trans_Be is
    procedure Sem_Foreign (Decl : Iir)
@@ -69,8 +69,8 @@ package body Trans_Be is
 
    procedure Register_Translation_Back_End is
    begin
-      Back_End.Sem_Foreign := Sem_Foreign'Access;
-      Back_End.Parse_Option := Parse_Option'Access;
-      Back_End.Disp_Option := Disp_Option'Access;
+      Vhdl.Back_End.Sem_Foreign := Sem_Foreign'Access;
+      Vhdl.Back_End.Parse_Option := Parse_Option'Access;
+      Vhdl.Back_End.Disp_Option := Disp_Option'Access;
    end Register_Translation_Back_End;
 end Trans_Be;
diff --git a/src/vhdl/back_end.ads b/src/vhdl/vhdl-back_end.ads
index 00ac5c429..ea62ae80b 100644
--- a/src/vhdl/back_end.ads
+++ b/src/vhdl/vhdl-back_end.ads
@@ -17,7 +17,7 @@
 --  02111-1307, USA.
 with Iirs; use Iirs;
 
-package Back_End is
+package Vhdl.Back_End is
    --  Back-end options.
    type Parse_Option_Acc is access function (Opt : String) return Boolean;
    Parse_Option : Parse_Option_Acc := null;
@@ -31,4 +31,4 @@ package Back_End is
    --  May be NULL for no additionnal checks.
    type Sem_Foreign_Acc is access procedure (Decl : Iir);
    Sem_Foreign : Sem_Foreign_Acc := null;
-end Back_End;
+end Vhdl.Back_End;
diff --git a/src/vhdl/vhdl-sem_specs.adb b/src/vhdl/vhdl-sem_specs.adb
index ed56ade37..aa535017a 100644
--- a/src/vhdl/vhdl-sem_specs.adb
+++ b/src/vhdl/vhdl-sem_specs.adb
@@ -31,7 +31,7 @@ with Flags; use Flags;
 with Std_Names;
 with Vhdl.Sem_Decls;
 with Xrefs; use Xrefs;
-with Back_End;
+with Vhdl.Back_End;
 
 package body Vhdl.Sem_Specs is
    function Get_Entity_Class_Kind (Decl : Iir) return Vhdl.Tokens.Token_Type
@@ -354,7 +354,7 @@ package body Vhdl.Sem_Specs is
          end if;
 
          declare
-            use Back_End;
+            use Vhdl.Back_End;
          begin
             if Sem_Foreign /= null then
                Sem_Foreign.all (Decl);