diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-12-12 18:49:32 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-12-12 18:49:32 +0100 |
commit | 81b1d0385132829eb414ebf978ab2f8ecd46b580 (patch) | |
tree | 333fddd001f92629a36c674d7f4aee30aab71434 /src/vhdl/canon.adb | |
parent | 9a0c7b4a7e7850187a81f1bf8c141a2567efe543 (diff) | |
download | ghdl-81b1d0385132829eb414ebf978ab2f8ecd46b580.tar.gz ghdl-81b1d0385132829eb414ebf978ab2f8ecd46b580.tar.bz2 ghdl-81b1d0385132829eb414ebf978ab2f8ecd46b580.zip |
ghdlprint: do not canon associations.
Diffstat (limited to 'src/vhdl/canon.adb')
-rw-r--r-- | src/vhdl/canon.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index e3c5d281f..693d561fe 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -871,6 +871,10 @@ package body Canon is Found : Boolean; begin + if not Canon_Flag_Associations then + return Association_Chain; + end if; + -- No argument, so return now. if Interface_Chain = Null_Iir then pragma Assert (Association_Chain = Null_Iir); |