diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-21 06:44:40 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-21 06:44:40 +0100 |
commit | 2971a32a22eb1364413a0df241d56beb748c3e99 (patch) | |
tree | f2d67b064059fca0db3ca201bf1c71e4decb47d9 /src/vhdl/translate/trans-chap6.adb | |
parent | 43933d2b1073b657827cfcfc7105d84141926f2a (diff) | |
download | ghdl-2971a32a22eb1364413a0df241d56beb748c3e99.tar.gz ghdl-2971a32a22eb1364413a0df241d56beb748c3e99.tar.bz2 ghdl-2971a32a22eb1364413a0df241d56beb748c3e99.zip |
translate: minor refactoring.
Diffstat (limited to 'src/vhdl/translate/trans-chap6.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index a812f3331..bdffe5f5a 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -1170,8 +1170,7 @@ package body Trans.Chap6 is pragma Assert (Mode = Mode_Value); -- This can appear as a prefix of a name, therefore, the -- result is always a composite type or an access type. - return E2M (Chap7.Translate_Expression (Name), - Type_Info, Mode_Value); + return Chap7.Translate_Expression (Name); when Iir_Kind_Image_Attribute => pragma Assert (Mode = Mode_Value); |