diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-08-16 05:57:07 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-08-16 05:57:07 +0200 |
| commit | a552664ed764b2066dfb6c34fe62e702d9ae6eee (patch) | |
| tree | da029942454c5aaafb775d918ccc8775d24151f2 | |
| parent | b2c4a2c5daefc438514b58a85a54d012a55f3f77 (diff) | |
| download | ghdl-a552664ed764b2066dfb6c34fe62e702d9ae6eee.tar.gz ghdl-a552664ed764b2066dfb6c34fe62e702d9ae6eee.tar.bz2 ghdl-a552664ed764b2066dfb6c34fe62e702d9ae6eee.zip | |
synth-vhdl_expr: optimize record with one element.
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index a7cb5f5d0..a16b8c066 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2034,9 +2034,9 @@ package body Synth.Vhdl_Expr is Res_Typ.Sz); return Res; else - N := Build_Extract (Ctxt, Get_Net (Ctxt, Val), - Val.Typ.Rec.E (Idx + 1).Offs.Net_Off, - Get_Type_Width (Res_Typ)); + N := Build2_Extract (Ctxt, Get_Net (Ctxt, Val), + Val.Typ.Rec.E (Idx + 1).Offs.Net_Off, + Get_Type_Width (Res_Typ)); Set_Location (N, Expr); return Create_Value_Net (N, Res_Typ); end if; |