From 401341a2c5f2533ff68aae9dd4e65bb297c36679 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 26 Jul 2019 18:49:59 +0200 Subject: vhdl: linearize analyze and evaluation of concat operators. --- src/vhdl/vhdl-nodes_meta.adb | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'src/vhdl/vhdl-nodes_meta.adb') 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 -- cgit v1.2.3