From 7052ac9006b145c0cd51f2bad8e088c1338f3846 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 14 Jan 2023 09:42:00 +0100
Subject: synth: improve error propagation on slices

---
 src/synth/synth-vhdl_expr.ads | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/synth/synth-vhdl_expr.ads')

diff --git a/src/synth/synth-vhdl_expr.ads b/src/synth/synth-vhdl_expr.ads
index c991f388a..964c237f5 100644
--- a/src/synth/synth-vhdl_expr.ads
+++ b/src/synth/synth-vhdl_expr.ads
@@ -121,7 +121,8 @@ package Synth.Vhdl_Expr is
                                  El_Typ : Type_Acc;
                                  Res_Bnd : out Bound_Type;
                                  Inp : out Net;
-                                 Off : out Value_Offsets);
+                                 Off : out Value_Offsets;
+                                 Error : out Boolean);
 
    --  If VOFF is No_Net then OFF is valid, if VOFF is not No_Net then
    --  OFF is 0.
-- 
cgit v1.2.3