diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-02-20 06:48:03 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-02-20 06:51:08 +0100 |
commit | 002d948aeead104b745e3175e1c684ec7b928847 (patch) | |
tree | 1b04a8d48bdbc164f4e0998f9eb4e1cc0bfe0930 /src/vhdl/configuration.adb | |
parent | 49328d94b6bfce72ecc76dc1c9d5c612ebdd2d6c (diff) | |
download | ghdl-002d948aeead104b745e3175e1c684ec7b928847.tar.gz ghdl-002d948aeead104b745e3175e1c684ec7b928847.tar.bz2 ghdl-002d948aeead104b745e3175e1c684ec7b928847.zip |
Refactoring in simulate in order to link with ortho.
Diffstat (limited to 'src/vhdl/configuration.adb')
-rw-r--r-- | src/vhdl/configuration.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/vhdl/configuration.adb b/src/vhdl/configuration.adb index 0d11da37b..e7890da62 100644 --- a/src/vhdl/configuration.adb +++ b/src/vhdl/configuration.adb @@ -604,6 +604,20 @@ package body Configuration is return Top; end Configure; + function Configure (Primary : String; Secondary : String) return Iir + is + Primary_Id : Name_Id; + Secondary_Id : Name_Id; + begin + Primary_Id := Get_Identifier (Primary); + if Secondary /= "" then + Secondary_Id := Get_Identifier (Secondary); + else + Secondary_Id := Null_Identifier; + end if; + return Configure (Primary_Id, Secondary_Id); + end Configure; + procedure Check_Entity_Declaration_Top (Entity : Iir_Entity_Declaration) is Has_Error : Boolean := False; |