From e901c3df28a5f01b25cff888ec507a729e6bf0e2 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Wed, 1 Dec 2021 12:10:14 +0100
Subject: [PATCH] more detailed dump information

---
 xml-db/get.pl | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 06bf5c0..3a13ce6 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -490,7 +490,7 @@ sub generateoutput {
       foreach my $b (sort keys %{$lastboards}) { #for every board
         my $ttmp = "";  #"Line Header" part
         my $ttmp2 = ""; #"Line Content" part
-        my $sl = "";
+        my $sl = "";    #Slice name cell
         my $slicename = "";
         $slicename = " - ".$obj->{sliceName}->{$slice} if (exists $obj->{sliceName}->{$slice});
         next unless defined $data->{$addr}->{$b} || !($obj->{mode} =~ /r/);
@@ -500,7 +500,22 @@ sub generateoutput {
             $iswriteable = $iswriteable || ($db->{$c}->{mode} =~ /w/);
             }
           if($iswriteable) {
-            my $s = sprintf("w 0x%s 0x%04x 0x%08x \t#%s %i%s",$b,$addr,$data->{$addr}->{$b},$name,$slice,$slicename);
+            my $s = sprintf("w 0x%s 0x%04x 0x%08x",
+                          $b,
+                          $addr,
+                          $data->{$addr}->{$b}
+                          );
+            $s .= sprintf(" \t#%s.%i%s",
+                          $name,
+                          $slice,
+                          $slicename);
+            foreach my $c (@{$obj->{children}}) {
+              next unless ($db->{$c}->{mode} =~ /w/);
+              $s .= sprintf(", Bit %i..%i: %s",
+                          $db->{$c}->{start},
+                          $db->{$c}->{start}+$db->{$c}->{bits}-1,
+                          $c);
+              }
             push(@RegisterDump,$s);
             }
           }
@@ -559,7 +574,7 @@ sub generateoutput {
   
   if($StyleDump) {
     print join("\n",@RegisterDump);
-    print("\n");
+    print("\n\n") if scalar @RegisterDump;
     }
   else {  
     print $t;
-- 
2.43.0