remove srecswap.pl, never seen modern jtag requiring it
This commit is contained in:
@@ -1,35 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
# endian-swap S records; we need this because the JTAG tools we're using
|
|
||||||
# expect the memory image in byte-swapped format
|
|
||||||
#
|
|
||||||
# Jonathan Westhues, April 2004
|
|
||||||
|
|
||||||
if(@ARGV == 0) {
|
|
||||||
die "usage: $0 file-to-endian-swap.s19 > out.s19\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
while(<>) {
|
|
||||||
chomp;
|
|
||||||
|
|
||||||
if(/^S0/) {
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
if(/^S7/) {
|
|
||||||
print "$_\n";
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
if(not /^S3(..)(........)(.*)(..)$/) {
|
|
||||||
die "bad S record at line $.\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
$data = $3;
|
|
||||||
$checksum = $4;
|
|
||||||
|
|
||||||
print "S3$1$2";
|
|
||||||
while($data =~ m#(..)(..)(..)(..)#g) {
|
|
||||||
print "$4$3$2$1";
|
|
||||||
}
|
|
||||||
print "$checksum\n";
|
|
||||||
}
|
|
||||||
Reference in New Issue
Block a user