vhdl: move back_end to vhdl child.

4 files changed, 13 insertions, 13 deletions

diff --git a/src/options.adb b/src/options.adb
index f7336c585..553a95545 100644
--- a/src/options.adb
+++ b/src/options.adb
@@ -24,7 +24,7 @@ with PSL.Nodes;
 with PSL.Dump_Tree;
 with Vhdl.Disp_Tree;
 with Vhdl.Scanner;
-with Back_End; use Back_End;
+with Vhdl.Back_End; use Vhdl.Back_End;
 with Flags; use Flags;
 with Files_Map;
 
@@ -199,8 +199,8 @@ package body Options is
          Flag_Integer_64 := True;
       elsif Opt = "--ftime32" then
          Flag_Time_64 := False;
-      elsif Back_End.Parse_Option /= null
-        and then Back_End.Parse_Option.all (Opt)
+      elsif Vhdl.Back_End.Parse_Option /= null
+        and then Vhdl.Back_End.Parse_Option.all (Opt)
       then
          null;
       else
@@ -251,8 +251,8 @@ package body Options is
       P ("Compilation dump:");
       P ("  -d[psa]            dump tree after parse, semantics or annotate");
       P ("  --dall             -dX options apply to all files");
-      if Back_End.Disp_Option /= null then
-         Back_End.Disp_Option.all;
+      if Vhdl.Back_End.Disp_Option /= null then
+         Vhdl.Back_End.Disp_Option.all;
       end if;
    end Disp_Options_Help;
 
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);