diff options
author | Tristan Gingold | 2015-08-31 16:23:22 +0200 |
---|---|---|
committer | Tristan Gingold | 2015-08-31 16:23:22 +0200 |
commit | 50a40f8823aab990ba9dc17af1e91c47f7f1692a (patch) | |
tree | 323fc5ae7abbd869551cf336e09b137377320e7d /src/vhdl/translate/trans-chap3.adb | |
parent | 0cbb67816ad1651b23973d661cc509466382f929 (diff) | |
download | ghdl-50a40f8823aab990ba9dc17af1e91c47f7f1692a.tar.gz ghdl-50a40f8823aab990ba9dc17af1e91c47f7f1692a.tar.bz2 ghdl-50a40f8823aab990ba9dc17af1e91c47f7f1692a.zip |
mcode/binary_file: rename write routines.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 3ecec89..cb58488 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -593,7 +593,7 @@ package body Trans.Chap3 is case Kind is when Mode_Value => -- For the values. - Id := Wki_Base; + Id := Create_Identifier ("BASE"); Idptr := Create_Identifier ("BASEP"); when Mode_Signal => -- For the signals @@ -1979,10 +1979,9 @@ package body Trans.Chap3 is when Iir_Kind_Array_Type_Definition => declare - El_Type : Iir; + El_Type : constant Iir := Get_Element_Subtype (Def); Mark : Id_Mark_Type; begin - El_Type := Get_Element_Subtype (Def); if Get_Info (El_Type) = null then Push_Identifier_Prefix (Mark, "ET"); Translate_Type_Definition (El_Type); |