From 38d9ed134ae6a16922ef788776d2d1901efc0cef Mon Sep 17 00:00:00 2001 From: Brian Drummond Date: Fri, 13 Dec 2013 16:58:37 +0000 Subject: Patch (tentative) for https://gna.org/bugs/?15368 --- canon.adb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/canon.adb b/canon.adb index 6a24b262a..b5ab047a2 100644 --- a/canon.adb +++ b/canon.adb @@ -232,11 +232,10 @@ package body Canon is | Iir_Kind_File_Declaration => null; - when Iir_Kind_Left_Array_Attribute - | Iir_Kind_Right_Array_Attribute - | Iir_Kind_Length_Array_Attribute - | Iir_Kind_Low_Array_Attribute - | Iir_Kind_High_Array_Attribute => + when Iir_Kinds_Array_Attribute => + -- was Iir_Kind_Left_Array_Attribute + -- ditto Right, Low, High, Length + -- add Ascending, Range and Reverse_Range... null; --Canon_Extract_Sensitivity -- (Get_Prefix (Expr), Sensitivity_List, Is_Target); -- cgit v1.2.3