From 95231d681ebb1072debdeb52cd5c1b052876b299 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 7 Jan 2023 18:43:34 +0100 Subject: synth-vhdl_stmts: handle indexes in image attribute --- src/synth/synth-vhdl_stmts.adb | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src/synth') diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 7f60d6c07..7d7df9fd0 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -151,11 +151,6 @@ package body Synth.Vhdl_Stmts is | Iir_Kind_Dot_Attribute | Iir_Kinds_Signal_Attribute => Assign_Base (Syn_Inst); - when Iir_Kind_Function_Call => - Dest_Base := Synth_Expression (Syn_Inst, Pfx); - Dest_Typ := Dest_Base.Typ; - Dest_Off := (0, 0); - Dest_Dyn := No_Dyn_Name; when Iir_Kind_Indexed_Name => declare @@ -288,6 +283,14 @@ package body Synth.Vhdl_Stmts is Dest_Dyn := No_Dyn_Name; Dest_Off := No_Value_Offsets; end; + + when Iir_Kind_Function_Call + | Iir_Kind_Image_Attribute => + Dest_Base := Synth_Expression (Syn_Inst, Pfx); + Dest_Typ := Dest_Base.Typ; + Dest_Off := (0, 0); + Dest_Dyn := No_Dyn_Name; + when others => Error_Kind ("synth_assignment_prefix", Pfx); end case; -- cgit v1.2.3