diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-12-08 05:46:21 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-12-08 05:46:21 +0100 |
commit | 7be66ca6f555a8d6ce86f4bc6eee9811c8d53306 (patch) | |
tree | 1e008e0869cbff7e0fba6b20c0a391a221cdc228 /src/synth | |
parent | b85eed7c60560dc5d3027939e887180634f25168 (diff) | |
download | ghdl-7be66ca6f555a8d6ce86f4bc6eee9811c8d53306.tar.gz ghdl-7be66ca6f555a8d6ce86f4bc6eee9811c8d53306.tar.bz2 ghdl-7be66ca6f555a8d6ce86f4bc6eee9811c8d53306.zip |
evaluation: rename Get_Info to Get_Str_Info (reduce overloading).
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/synth-stmts.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 75a41d3bf..c074b1aa4 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -199,9 +199,8 @@ package body Synth.Stmts is declare use Evaluation.String_Utils; - Info : Str_Info; + Info : constant Str_Info := Get_Str_Info (Expr); begin - Info := Get_Info (Expr); if Info.Len > 64 then raise Internal_Error; end if; |