From e6f2644c1be504c312fdb1d366fe2ecf66c60770 Mon Sep 17 00:00:00 2001
From: Philippe Teuwen <phil@teuwen.org>
Date: Thu, 29 Aug 2019 18:53:54 +0200
Subject: [PATCH] remove srecswap.pl, never seen modern jtag requiring it

---
 tools/srecswap.pl | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 tools/srecswap.pl

diff --git a/tools/srecswap.pl b/tools/srecswap.pl
deleted file mode 100644
index 47db8e687..000000000
--- a/tools/srecswap.pl
+++ /dev/null
@@ -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";
-}