diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-14 20:29:36 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-14 20:29:36 +0100 |
| commit | 93bf03fbc429f7a588b59deaea73e9f4c3d2fc5b (patch) | |
| tree | 774a8f9b582129dc4cbe63917a25291c8fcfbdc5 | |
| parent | 9c5f5e3a84c2c77167e943d076dcc44c1a22d81e (diff) | |
| download | ghdl-93bf03fbc429f7a588b59deaea73e9f4c3d2fc5b.tar.gz ghdl-93bf03fbc429f7a588b59deaea73e9f4c3d2fc5b.tar.bz2 ghdl-93bf03fbc429f7a588b59deaea73e9f4c3d2fc5b.zip | |
canon: do not create default association if flag_associations is false
| -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 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 |