From 20a49e1ed483deea8531fef92ac0064355eed729 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 17 Oct 2016 05:39:54 +0200
Subject: Disable most of canon for reprint.

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

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index d4eb822d6..093ba00a9 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -30,6 +30,7 @@ with Iirs_Utils; use Iirs_Utils;
 with Tokens;
 with Scanner;
 with Parse;
+with Canon;
 with Version;
 with Xrefs;
 with Ghdlmain; use Ghdlmain;
@@ -984,8 +985,14 @@ package body Ghdlprint is
       Next_Unit : Iir;
    begin
       Setup_Libraries (True);
+
+      --  Keep parenthesis during parse.
       Parse.Flag_Parse_Parenthesis := True;
 
+      Canon.Canon_Flag_Concurrent_Stmts := False;
+      Canon.Canon_Flag_Configurations := False;
+      Canon.Canon_Flag_Specification_Lists := False;
+
       --  Parse all files.
       for I in Args'Range loop
          Id := Name_Table.Get_Identifier (Args (I).all);
-- 
cgit v1.2.3