From 81b1d0385132829eb414ebf978ab2f8ecd46b580 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 12 Dec 2016 18:49:32 +0100
Subject: ghdlprint: do not canon associations.

---
 src/ghdldrv/ghdlprint.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 093ba00a9..d228f2d1f 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -992,6 +992,7 @@ package body Ghdlprint is
       Canon.Canon_Flag_Concurrent_Stmts := False;
       Canon.Canon_Flag_Configurations := False;
       Canon.Canon_Flag_Specification_Lists := False;
+      Canon.Canon_Flag_Associations := False;
 
       --  Parse all files.
       for I in Args'Range loop
-- 
cgit v1.2.3