From eaae9cb33f67aa6cf230e345724511b4b4d5c9cf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 31 May 2020 18:47:55 +0200
Subject: netlists-dump: shorten UB32 constants.

---
 src/synth/netlists-dump.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 7bde0be81..dc1ca9a0c 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -470,7 +470,11 @@ package body Netlists.Dump is
                   Put_Width (W);
                   Put ("'uh");
                   V := Get_Param_Uns32 (Inst, 0);
-                  I := (Natural (W) + 3) / 4;
+                  if W >= 32 then
+                     I := 8;
+                  else
+                     I := (Natural (W) + 3) / 4;
+                  end if;
                   while I > 0 loop
                      I := I - 1;
                      Put (Xdigits (Shift_Right (V, I * 4) and 15));
-- 
cgit v1.2.3