diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-26 18:49:59 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-26 18:49:59 +0200 |
commit | 401341a2c5f2533ff68aae9dd4e65bb297c36679 (patch) | |
tree | dc7f2031ca531ff56adfeac5049b8b65f3093158 /src/vhdl/vhdl-nodes_meta.adb | |
parent | a11b4a5032f8fa8b04ada17ec30cf27964b02cf5 (diff) | |
download | ghdl-401341a2c5f2533ff68aae9dd4e65bb297c36679.tar.gz ghdl-401341a2c5f2533ff68aae9dd4e65bb297c36679.tar.bz2 ghdl-401341a2c5f2533ff68aae9dd4e65bb297c36679.zip |
vhdl: linearize analyze and evaluation of concat operators.
Diffstat (limited to 'src/vhdl/vhdl-nodes_meta.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes_meta.adb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-nodes_meta.adb b/src/vhdl/vhdl-nodes_meta.adb index 48c5129bc..2e3512028 100644 --- a/src/vhdl/vhdl-nodes_meta.adb +++ b/src/vhdl/vhdl-nodes_meta.adb @@ -9692,7 +9692,19 @@ package body Vhdl.Nodes_Meta is function Has_Left (K : Iir_Kind) return Boolean is begin case K is - when Iir_Kind_And_Operator + when Iir_Kind_Identity_Operator + | Iir_Kind_Negation_Operator + | Iir_Kind_Absolute_Operator + | Iir_Kind_Not_Operator + | Iir_Kind_Implicit_Condition_Operator + | Iir_Kind_Condition_Operator + | Iir_Kind_Reduction_And_Operator + | Iir_Kind_Reduction_Or_Operator + | Iir_Kind_Reduction_Nand_Operator + | Iir_Kind_Reduction_Nor_Operator + | Iir_Kind_Reduction_Xor_Operator + | Iir_Kind_Reduction_Xnor_Operator + | Iir_Kind_And_Operator | Iir_Kind_Or_Operator | Iir_Kind_Nand_Operator | Iir_Kind_Nor_Operator |