diff options
Diffstat (limited to 'src/vhdl')
| -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 |
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); |