aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2016-02-20 06:49:40 +0100
committerTristan Gingold <tgingold@free.fr>2016-02-20 07:00:30 +0100
commitc7c6cf6e3b420fed0c9074d25e0072a672a66b39 (patch)
treed40e73e46bd291c12ade9993042ea926b9dd05a3
parent002d948aeead104b745e3175e1c684ec7b928847 (diff)
downloadghdl-c7c6cf6e3b420fed0c9074d25e0072a672a66b39.tar.gz
ghdl-c7c6cf6e3b420fed0c9074d25e0072a672a66b39.tar.bz2
ghdl-c7c6cf6e3b420fed0c9074d25e0072a672a66b39.zip
trans-chap12: factorize code.
-rw-r--r--src/vhdl/translate/trans-chap12.adb10
1 files changed, 1 insertions, 9 deletions
diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb
index 35159e9b9..4786ffbbc 100644
--- a/src/vhdl/translate/trans-chap12.adb
+++ b/src/vhdl/translate/trans-chap12.adb
@@ -546,8 +546,6 @@ package body Trans.Chap12 is
use Name_Table;
use Configuration;
- Primary_Id : Name_Id;
- Secondary_Id : Name_Id;
Unit : Iir_Design_Unit;
Lib_Unit : Iir;
Config : Iir_Design_Unit;
@@ -558,13 +556,7 @@ package body Trans.Chap12 is
Last_Design_Unit : Natural;
Nbr_Pkgs : Natural;
begin
- Primary_Id := Get_Identifier (Primary);
- if Secondary /= "" then
- Secondary_Id := Get_Identifier (Secondary);
- else
- Secondary_Id := Null_Identifier;
- end if;
- Config := Configure (Primary_Id, Secondary_Id);
+ Config := Configure (Primary, Secondary);
if Config = Null_Iir then
return;
end if;