diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-09 07:40:06 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-09 07:40:06 +0200 |
| commit | 715f0ef1db517211bdcd7627bd3894686e7f1f7c (patch) | |
| tree | 5186ea681e6b94be72078fe847e6a8d728199bab /src/synth/synth-environment.adb | |
| parent | d265e10b2478ceb34c34cce3e697da77726c682d (diff) | |
| download | ghdl-715f0ef1db517211bdcd7627bd3894686e7f1f7c.tar.gz ghdl-715f0ef1db517211bdcd7627bd3894686e7f1f7c.tar.bz2 ghdl-715f0ef1db517211bdcd7627bd3894686e7f1f7c.zip | |
synth-environment: fix a thinko.
Diffstat (limited to 'src/synth/synth-environment.adb')
| -rw-r--r-- | src/synth/synth-environment.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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. |