From 715f0ef1db517211bdcd7627bd3894686e7f1f7c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 9 Oct 2019 07:40:06 +0200
Subject: synth-environment: fix a thinko.

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

(limited to 'src')

diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb
index d082f3885..d5411b4e4 100644
--- a/src/synth/synth-environment.adb
+++ b/src/synth/synth-environment.adb
@@ -835,7 +835,8 @@ package body Synth.Environment is
                  or else (Off = Min_Off and then Pa.Offset < Off)
                then
                   --  Reduce the width if the assignment is shorter.
-                  Wd := Width'Min (Wd, Get_Width (Pa.Value));
+                  Wd := Width'Min
+                    (Wd, Get_Width (Pa.Value) - (Off - Pa.Offset));
                elsif Pa.Offset < Off + Wd then
                   --  Reduce the width when there is an assignment after
                   --  the current offset.
-- 
cgit v1.2.3