diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-16 04:25:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-16 04:25:57 +0200 |
| commit | 2e7f15755f0c4b8956ab3f102fce2f0afb6277e5 (patch) | |
| tree | 2765c9230ffea2a229d0be61130fccb08d0e5365 /src | |
| parent | 57a927d0e285fe2a3b2e5524df48381a527ecb60 (diff) | |
| download | ghdl-2e7f15755f0c4b8956ab3f102fce2f0afb6277e5.tar.gz ghdl-2e7f15755f0c4b8956ab3f102fce2f0afb6277e5.tar.bz2 ghdl-2e7f15755f0c4b8956ab3f102fce2f0afb6277e5.zip | |
synth: handle val attribute for static bit/logic values
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 3f3a62760..98dd16f7b 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2256,6 +2256,9 @@ package body Synth.Vhdl_Expr is Dtype := Get_Subtype_Object (Syn_Inst, Get_Type (Expr)); -- FIXME: to be generalized. Not always as simple as a -- subtype conversion. + if Is_Static (V.Val) then + V := Create_Value_Discrete (Read_Discrete (V), Dtype); + end if; return Synth_Subtype_Conversion (Syn_Inst, V, Dtype, False, Expr); end; |