diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-20 06:49:40 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-20 07:00:30 +0100 |
| commit | c7c6cf6e3b420fed0c9074d25e0072a672a66b39 (patch) | |
| tree | d40e73e46bd291c12ade9993042ea926b9dd05a3 | |
| parent | 002d948aeead104b745e3175e1c684ec7b928847 (diff) | |
| download | ghdl-c7c6cf6e3b420fed0c9074d25e0072a672a66b39.tar.gz ghdl-c7c6cf6e3b420fed0c9074d25e0072a672a66b39.tar.bz2 ghdl-c7c6cf6e3b420fed0c9074d25e0072a672a66b39.zip | |
trans-chap12: factorize code.
| -rw-r--r-- | src/vhdl/translate/trans-chap12.adb | 10 |
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; |