From efe968f6d6e30f9cd5265c4301c98ba2175d464d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 24 Dec 2014 07:34:30 +0100 Subject: evaluation.adb: style changes. --- src/vhdl/evaluation.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 3bff3876c..bf9c6ba3f 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 -- cgit v1.2.3