diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-objtypes.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-objtypes.adb b/src/synth/synth-objtypes.adb index 25857f065..4b9e6ea54 100644 --- a/src/synth/synth-objtypes.adb +++ b/src/synth/synth-objtypes.adb @@ -148,7 +148,7 @@ package body Synth.Objtypes is else declare Wl : constant Width := Width (Clog2 (Uns64 (-Lo))); - Wh : constant Width := Width (Clog2 (Uns64 (Hi))); + Wh : constant Width := Width (Clog2 (Uns64 (Hi) + 1)); begin W := Width'Max (Wl, Wh) + 1; end; |