From 93bf03fbc429f7a588b59deaea73e9f4c3d2fc5b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 14 Dec 2016 20:29:36 +0100
Subject: canon: do not create default association if flag_associations is
 false

---
 src/vhdl/canon.adb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb
index 693d561fe..9a2e8dd6e 100644
--- a/src/vhdl/canon.adb
+++ b/src/vhdl/canon.adb
@@ -1023,6 +1023,10 @@ package body Canon is
       Last : Iir;
       Assoc, El : Iir;
    begin
+      if not Canon_Flag_Associations then
+         return Null_Iir;
+      end if;
+
       El := Interface_Chain;
       Sub_Chain_Init (Res, Last);
       while El /= Null_Iir loop
-- 
cgit v1.2.3