diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-02-21 06:52:07 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-02-21 11:47:12 +0100 |
commit | 405df8e149b7273123ee99e51719f31913248469 (patch) | |
tree | 9cc89ce3841957634dfe870648bc21d52a59fd61 /src/vhdl/translate/trans-chap14.adb | |
parent | 122e8753c6218a0adfb8b2a7aef7dd424eb6562a (diff) | |
download | ghdl-405df8e149b7273123ee99e51719f31913248469.tar.gz ghdl-405df8e149b7273123ee99e51719f31913248469.tar.bz2 ghdl-405df8e149b7273123ee99e51719f31913248469.zip |
ortho: rename start/finish_const_value to start/finish_init_value.
Diffstat (limited to 'src/vhdl/translate/trans-chap14.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap14.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap14.adb b/src/vhdl/translate/trans-chap14.adb index eacbf759b..3072b5955 100644 --- a/src/vhdl/translate/trans-chap14.adb +++ b/src/vhdl/translate/trans-chap14.adb @@ -912,8 +912,8 @@ package body Trans.Chap14 is Str_Cst := Create_String_Len (Name.Suffix, Create_Uniq_Identifier); New_Const_Decl (Name_Cst, Create_Uniq_Identifier, O_Storage_Private, Ghdl_Str_Len_Type_Node); - Start_Const_Value (Name_Cst); - Finish_Const_Value (Name_Cst, Str_Cst); + Start_Init_Value (Name_Cst); + Finish_Init_Value (Name_Cst, Str_Cst); if Is_Instance then Start_Association (Constr, Ghdl_Get_Instance_Name); else |