diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-15 03:33:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-15 03:33:19 +0200 |
| commit | a8fae0fb11d5dbe0a196af689301f48f5cca64ee (patch) | |
| tree | 6906bb160fb5518cfec57ad0f7c858acd0b5750f /src/synth/synth-vhdl_expr.adb | |
| parent | 26353d25ad3eead54a5143df0f0298f142911670 (diff) | |
| download | ghdl-a8fae0fb11d5dbe0a196af689301f48f5cca64ee.tar.gz ghdl-a8fae0fb11d5dbe0a196af689301f48f5cca64ee.tar.bz2 ghdl-a8fae0fb11d5dbe0a196af689301f48f5cca64ee.zip | |
synth: improve handling of complex types
Diffstat (limited to 'src/synth/synth-vhdl_expr.adb')
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index a252390e2..3f3a62760 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -81,12 +81,13 @@ package body Synth.Vhdl_Expr is case V.Val.Kind is when Value_Memory => return Read_Discrete (V); - when Value_Const => - return Read_Discrete (Get_Memtyp (V)); when Value_Wire => return Read_Discrete (Synth.Vhdl_Environment.Env.Get_Static_Wire (Get_Value_Wire (V.Val))); + when Value_Const + | Value_Alias => + return Read_Discrete (Get_Memtyp (V)); when others => raise Internal_Error; end case; |