diff options
Diffstat (limited to 'src/vhdl/vhdl-prints.adb')
-rw-r--r-- | src/vhdl/vhdl-prints.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index 852d6dfcb..047870a0f 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -202,9 +202,8 @@ package body Vhdl.Prints is procedure Disp_Function_Name (Ctxt : in out Ctxt_Class; Func: Iir) is use Name_Table; - Id: Name_Id; + Id : constant Name_Id := Get_Identifier (Func); begin - Id := Get_Identifier (Func); case Id is when Name_Id_Operators | Name_Word_Operators |