diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-01-18 20:48:19 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-01-20 07:40:53 +0100 |
| commit | 06d4264963b8a9b60da7bd87543360424ad3eb23 (patch) | |
| tree | 6e954ab99658f5a704973a7b2a1fb66f5c57f565 /src/vhdl/evaluation.ads | |
| parent | d4a1785b2f6ed8998088b4a1d674801336cd4cb5 (diff) | |
| download | ghdl-06d4264963b8a9b60da7bd87543360424ad3eb23.tar.gz ghdl-06d4264963b8a9b60da7bd87543360424ad3eb23.tar.bz2 ghdl-06d4264963b8a9b60da7bd87543360424ad3eb23.zip | |
evaluation: remove use of Nam_Buffer.
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); |