diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-11 06:55:40 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-11 06:55:40 +0100 |
| commit | 0e9f6c8979a1a05e287b183b77108f2c46903c82 (patch) | |
| tree | 253b6c2aa2277d7d775b416db0cfafa208a1aaab /src/vhdl/translate/trans-chap2.adb | |
| parent | 3699e4f8b6bf5a2e757bcd397202dbdebf614a02 (diff) | |
| download | ghdl-0e9f6c8979a1a05e287b183b77108f2c46903c82.tar.gz ghdl-0e9f6c8979a1a05e287b183b77108f2c46903c82.tar.bz2 ghdl-0e9f6c8979a1a05e287b183b77108f2c46903c82.zip | |
translate: renaming of Kind_Expr/Get_Ortho_Expr.
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 374879857..91ea199aa 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1283,10 +1283,10 @@ package body Trans.Chap2 is Dest.all := (Kind => Kind_Index, Mark => False, Index_Field => Src.Index_Field); - when Kind_Expr => - Dest.all := (Kind => Kind_Expr, + when Kind_Enum_Lit => + Dest.all := (Kind => Kind_Enum_Lit, Mark => False, - Expr_Node => Src.Expr_Node); + Lit_Node => Src.Lit_Node); when Kind_Package_Instance => Dest.all := (Kind => Kind_Package_Instance, |