diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-13 08:25:46 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-13 08:25:46 +0200 |
commit | 9e7c56c666a48f6db66e936bb547c70d22d18c0a (patch) | |
tree | 964e065da30c0c95193da9e58a19600513969c5f /src/vhdl/translate/trans-chap7.adb | |
parent | ed50b130827a8cd24314b52988690c7ba2490853 (diff) | |
download | ghdl-9e7c56c666a48f6db66e936bb547c70d22d18c0a.tar.gz ghdl-9e7c56c666a48f6db66e936bb547c70d22d18c0a.tar.bz2 ghdl-9e7c56c666a48f6db66e936bb547c70d22d18c0a.zip |
trans-chap7: add a comment.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 3abaf06d8..32c8b8537 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -5002,6 +5002,9 @@ package body Trans.Chap7 is Func : Iir; begin Func := Find_Predefined_Function (Base_Type, Eq); + -- Note: no location is passed as the conversion goes to the base + -- type (which is always OK). + -- If the location is used, compilation will fail. Lc := Translate_Implicit_Conv (M2E (L), Etype, Base_Type, Mode_Value, Null_Iir); Rc := Translate_Implicit_Conv |