diff options
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; |
