diff options
Diffstat (limited to 'src/vhdl/evaluation.ads')
| -rw-r--r-- | src/vhdl/evaluation.ads | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/evaluation.ads b/src/vhdl/evaluation.ads index 12f7a7b77..05feac652 100644 --- a/src/vhdl/evaluation.ads +++ b/src/vhdl/evaluation.ads @@ -166,10 +166,9 @@ package Evaluation is function Eval_Value_Attribute (Value : String; Atype : Iir; Orig : Iir) return Iir; - -- Store into NAME_BUFFER, NAME_LENGTH the simple name, character literal - -- or operator sumbol of ID, using the same format as SIMPLE_NAME - -- attribute. - procedure Eval_Simple_Name (Id : Name_Id); + -- Return the simple name, character literal or operator sumbol of ID, + -- using the same format as SIMPLE_NAME attribute. + function Eval_Simple_Name (Id : Name_Id) return String; -- Compare two string literals (of same length). type Compare_Type is (Compare_Lt, Compare_Eq, Compare_Gt); |