projects
/
x300-pci
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
improve diff_bits
[x300-pci]
/
openocd-jtag-boundary-scan.pl
diff --git
a/openocd-jtag-boundary-scan.pl
b/openocd-jtag-boundary-scan.pl
index
001bb28
..
b2a2794
100755
(executable)
--- a/
openocd-jtag-boundary-scan.pl
+++ b/
openocd-jtag-boundary-scan.pl
@@
-5,6
+5,7
@@
use strict;
use autodie;
use Data::Dump qw(dump);
use IO::Socket::INET;
use autodie;
use Data::Dump qw(dump);
use IO::Socket::INET;
+use Storable;
my $openocd_remote = shift @ARGV || 'picam:4444';
my $openocd_remote = shift @ARGV || 'picam:4444';
@@
-56,6
+57,7
@@
foreach my $map ( split(/\s*,\s*/, $pin_map) ) {
}
warn "# pin2io = ",dump( $pin2io );
}
warn "# pin2io = ",dump( $pin2io );
+store \$pin2io, '/dev/shm/pin2io.storable';
my @sort = sort {
my $aa = $a; $aa =~ s/\D+//g;
my @sort = sort {
my $aa = $a; $aa =~ s/\D+//g;
@@
-144,7
+146,8
@@
sub diff_bits {
$o[$i].='>'.$n[$i];
}
}
$o[$i].='>'.$n[$i];
}
}
- return join('', @o);
+ my $diff = join('', @o);
+ print "# diff_bits $diff\n";
}
print "[press enter]\n";
}
print "[press enter]\n";
@@
-163,7
+166,7
@@
if ( $cmd =~ /(\d+)=(\d)/ ) {
. substr($BSR,$bit+3)
;
. substr($BSR,$bit+3)
;
-
print
diff_bits( $BSR, $b ), $/;
+ diff_bits( $BSR, $b ), $/;
print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
print $sock "drscan x300.tap 288 0x", bin2hex($b), "\n";
print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
print $sock "drscan x300.tap 288 0x", bin2hex($b), "\n";