diff options
| -rw-r--r-- | src/vhdl/evaluation.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 3bff387..bf9c6ba 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -1572,16 +1572,16 @@ package body Evaluation is return Res; end Eval_Floating_Image; - function Eval_Enumeration_Image (Enum, Expr : Iir) return Iir + function Eval_Enumeration_Image (Lit : Iir; Orig : Iir) return Iir is - Name : constant String := Image_Identifier (Enum); + Name : constant String := Image_Identifier (Lit); Image_Id : constant String_Id := Str_Table.Start; begin - for i in Name'range loop - Str_Table.Append(Name(i)); + for I in Name'range loop + Str_Table.Append (Name (I)); end loop; Str_Table.Finish; - return Build_String (Image_Id, Nat32(Name'Length), Expr); + return Build_String (Image_Id, Name'Length, Orig); end Eval_Enumeration_Image; function Build_Enumeration_Value (Val : String; Enum, Expr : Iir) return Iir |