aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrian Drummond <brian@shapes.demon.co.uk>2013-12-13 16:58:37 +0000
committerBrian Drummond <brian@shapes.demon.co.uk>2013-12-13 16:58:37 +0000
commit38d9ed134ae6a16922ef788776d2d1901efc0cef (patch)
tree3ea2ddca166cbfa34b3018d7c1953e8ac4e68c30
parent9c4833e90ec7f984d0a0efeaf6ea6879f2b74512 (diff)
downloadghdl-38d9ed134ae6a16922ef788776d2d1901efc0cef.tar.gz
ghdl-38d9ed134ae6a16922ef788776d2d1901efc0cef.tar.bz2
ghdl-38d9ed134ae6a16922ef788776d2d1901efc0cef.zip
Patch (tentative) for https://gna.org/bugs/?15368
-rw-r--r--canon.adb9
1 files 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);