From 5ee88f60d0052fc028cfc55e9182349343260e2f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 1 Jul 2019 18:21:17 +0200
Subject: netlists-dump: write const in hexa.

---
 src/synth/netlists-dump.adb | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'src/synth')

diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index d1e39b538..6ec87ced8 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -349,6 +349,9 @@ package body Netlists.Dump is
 
    pragma Unreferenced (Debug_Net);
 
+   Xdigits : constant array (Uns32 range 0 ..15) of Character :=
+     "0123456789abcdef";
+
    procedure Disp_Instance (Inst : Instance; With_Name : Boolean)
    is
       M : constant Module := Get_Module (Inst);
@@ -360,16 +363,15 @@ package body Netlists.Dump is
                declare
                   W : constant Width := Get_Width (Get_Output (Inst, 0));
                   V : Uns32;
+                  I : Natural;
                begin
                   Put_Trim (Width'Image (W));
-                  Put ("'ub");
+                  Put ("'uh");
                   V := Get_Param_Uns32 (Inst, 0);
-                  for I in reverse 0 .. W - 1 loop
-                     if (Shift_Right (V, Natural (I)) and 1) = 0 then
-                        Put ('0');
-                     else
-                        Put ('1');
-                     end if;
+                  I := (Natural (W) + 3) / 4;
+                  while I > 0 loop
+                     I := I - 1;
+                     Put (Xdigits (Shift_Right (V, I * 4) and 15));
                   end loop;
                end;
                return;
-- 
cgit v1.2.3