display io and offset for p command

[x300-pci] / openocd-jtag-boundary-scan.pl

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index f4e4059..384d233 100755 (executable)
--- a/openocd-jtag-boundary-scan.pl
+++ b/openocd-jtag-boundary-scan.pl
@@ -208,7 +208,7 @@ sub diff_bits {
                }
        }
        my $diff = join('', @o);
-       print "# diff_bits $diff\n";
+       print "# diff_bits $diff\n", caller(1);
 }
 
 print "[press enter]\n";
@@ -223,11 +223,11 @@ if ( $cmd =~ /(p|o)(\d+)=(\d+)/ ) {
        if ( $what eq 'p' && length($v) == 1 ) {
 
                my $pin = $p;
-               warn "# pin $pin = $v\n";
-
                my $io = $pin2io->[$pin];
                my $bit = $io2bit->{$io}->[0];
 
+               warn "# pin $pin = $v io=$io bit=$bit\n";
+
                $b =
                          substr($old_bsr,0,$bit+1) # leave input as-is
                        . ( $v eq 'Z' ? 1 : 0 )     # control