diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-10-17 05:39:54 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-10-17 05:39:54 +0200 |
| commit | 20a49e1ed483deea8531fef92ac0064355eed729 (patch) | |
| tree | 307e12ed530c2f04fae2f21d183095f12f4cfd3f /src/ghdldrv | |
| parent | debfbffe7fe77a51bbba85d84147cac3d806df2a (diff) | |
| download | ghdl-20a49e1ed483deea8531fef92ac0064355eed729.tar.gz ghdl-20a49e1ed483deea8531fef92ac0064355eed729.tar.bz2 ghdl-20a49e1ed483deea8531fef92ac0064355eed729.zip | |
Disable most of canon for reprint.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 7 |
1 files changed, 7 insertions, 0 deletions
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); |