diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-07 17:57:36 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-09 20:25:02 +0100 |
| commit | c6b192ec3c8dbc8bb65e3379d3672b78b0cd34c4 (patch) | |
| tree | 6f060d963fa0f2f34136737439b1bce1f3c1e98e | |
| parent | 61214a8add6949e768f3791bb5e568395da0cae0 (diff) | |
| download | ghdl-c6b192ec3c8dbc8bb65e3379d3672b78b0cd34c4.tar.gz ghdl-c6b192ec3c8dbc8bb65e3379d3672b78b0cd34c4.tar.bz2 ghdl-c6b192ec3c8dbc8bb65e3379d3672b78b0cd34c4.zip | |
simul: add missing canon.
| -rw-r--r-- | src/vhdl/canon.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index 40af63e34..d1ddd55d7 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -619,9 +619,8 @@ package body Canon is declare Suffix : Iir; begin - Suffix := Get_Suffix (Expr); - if Get_Kind (Suffix) not in Iir_Kinds_Discrete_Type_Definition - then + Suffix := Strip_Denoting_Name (Get_Suffix (Expr)); + if Get_Kind (Suffix) /= Iir_Kind_Subtype_Declaration then Canon_Expression (Suffix); end if; Canon_Expression (Get_Prefix (Expr)); @@ -2793,6 +2792,7 @@ package body Canon is if Canon_Flag_Expressions then Inter := Chain; while Inter /= Null_Iir loop + Canon_Subtype_Indication_If_Anonymous (Get_Type (Inter)); Canon_Expression (Get_Default_Value (Inter)); Inter := Get_Chain (Inter); end loop; |