diff options
| -rw-r--r-- | src/options.adb | 10 | ||||
| -rw-r--r-- | src/vhdl/translate/trans_be.adb | 8 | ||||
| -rw-r--r-- | src/vhdl/vhdl-back_end.ads (renamed from src/vhdl/back_end.ads) | 4 | ||||
| -rw-r--r-- | src/vhdl/vhdl-sem_specs.adb | 4 |
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); |