aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-05-05 08:26:38 +0200
committerTristan Gingold <tgingold@free.fr>2019-05-05 13:55:18 +0200
commit83c593362bce5d1930a1bbf486a62a06c674bded (patch)
tree45ca88eba5a346204f35d812e25eb1561573b02f /src/vhdl
parent46100a0f24670f4d01ecc114da2ac5fedbab13af (diff)
downloadghdl-83c593362bce5d1930a1bbf486a62a06c674bded.tar.gz
ghdl-83c593362bce5d1930a1bbf486a62a06c674bded.tar.bz2
ghdl-83c593362bce5d1930a1bbf486a62a06c674bded.zip
vhdl: move back_end to vhdl child.
Diffstat (limited to 'src/vhdl')
-rw-r--r--src/vhdl/translate/trans_be.adb8
-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.adb4
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);