From 7052ac9006b145c0cd51f2bad8e088c1338f3846 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 14 Jan 2023 09:42:00 +0100 Subject: synth: improve error propagation on slices --- src/synth/elab-vhdl_expr.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/synth/elab-vhdl_expr.adb') diff --git a/src/synth/elab-vhdl_expr.adb b/src/synth/elab-vhdl_expr.adb index bef85b306..c43e3808e 100644 --- a/src/synth/elab-vhdl_expr.adb +++ b/src/synth/elab-vhdl_expr.adb @@ -480,11 +480,15 @@ package body Elab.Vhdl_Expr is Res_Bnd : Bound_Type; Sl_Off : Value_Offsets; Inp : Net; + Err : Boolean; begin Pfx_Typ := Exec_Name_Subtype (Syn_Inst, Get_Prefix (Name)); Get_Onedimensional_Array_Bounds (Pfx_Typ, Pfx_Bnd, El_Typ); Synth_Slice_Suffix (Syn_Inst, Name, Pfx_Bnd, El_Typ, - Res_Bnd, Inp, Sl_Off); + Res_Bnd, Inp, Sl_Off, Err); + if Err then + return null; + end if; pragma Assert (Inp = No_Net); return Create_Onedimensional_Array_Subtype (Pfx_Typ, Res_Bnd, El_Typ); -- cgit v1.2.3