aboutsummaryrefslogtreecommitdiffstats
path: root/package/boot/uboot-layerscape/patches
diff options
context:
space:
mode:
authorYutang Jiang <yutang.jiang@nxp.com>2016-11-15 23:46:51 +0800
committerJohn Crispin <john@phrozen.org>2016-11-16 10:58:09 +0100
commit4a6f9fc6333d5043d4ddfd25d87be3ae17f9e794 (patch)
tree7dffc43039ef2b6f0b4c50404b04bb9719251043 /package/boot/uboot-layerscape/patches
parent8565630e14145d348909e7b8572e60daa332eae6 (diff)
downloadupstream-4a6f9fc6333d5043d4ddfd25d87be3ae17f9e794.tar.gz
upstream-4a6f9fc6333d5043d4ddfd25d87be3ae17f9e794.tar.bz2
upstream-4a6f9fc6333d5043d4ddfd25d87be3ae17f9e794.zip
layerscape: uboot: using perl script:byte_swap.pl to replace tcl script:byte_swap.tcl
Signed-off-by: Yutang Jiang <yutang.jiang@nxp.com>
Diffstat (limited to 'package/boot/uboot-layerscape/patches')
-rw-r--r--package/boot/uboot-layerscape/patches/0094-using-perl-script-byte_swap.pl-to-replace-tcl-script.patch72
1 files changed, 72 insertions, 0 deletions
diff --git a/package/boot/uboot-layerscape/patches/0094-using-perl-script-byte_swap.pl-to-replace-tcl-script.patch b/package/boot/uboot-layerscape/patches/0094-using-perl-script-byte_swap.pl-to-replace-tcl-script.patch
new file mode 100644
index 0000000000..8040ad2497
--- /dev/null
+++ b/package/boot/uboot-layerscape/patches/0094-using-perl-script-byte_swap.pl-to-replace-tcl-script.patch
@@ -0,0 +1,72 @@
+From 61cf7655f6f165645d1659c7b256be4397d67572 Mon Sep 17 00:00:00 2001
+From: Yutang Jiang <yutang.jiang@nxp.com>
+Date: Tue, 15 Nov 2016 20:57:37 +0800
+Subject: [PATCH 94/94] using perl script:byte_swap.pl to replace tcl
+ script:byte_swap.tcl
+
+Signed-off-by: Yutang Jiang <yutang.jiang@nxp.com>
+---
+ Makefile | 2 +-
+ byte_swap.pl | 37 +++++++++++++++++++++++++++++++++++++
+ 2 files changed, 38 insertions(+), 1 deletion(-)
+ create mode 100755 byte_swap.pl
+
+diff --git a/Makefile b/Makefile
+index b73375f..5293bc5 100644
+--- a/Makefile
++++ b/Makefile
+@@ -836,7 +836,7 @@ dtbs dts/dt.dtb: checkdtc u-boot
+
+ u-boot-dtb.bin: u-boot.bin dts/dt.dtb FORCE
+ $(call if_changed,cat)
+- tclsh byte_swap.tcl u-boot-dtb.bin u-boot-swap.bin 8
++ perl byte_swap.pl u-boot-dtb.bin u-boot-swap.bin 8
+
+ %.imx: %.bin
+ $(Q)$(MAKE) $(build)=arch/arm/imx-common $@
+diff --git a/byte_swap.pl b/byte_swap.pl
+new file mode 100755
+index 0000000..1707139
+--- /dev/null
++++ b/byte_swap.pl
+@@ -0,0 +1,37 @@
++#!/usr/bin/perl
++#
++# Copyright (C) 2016 Jiang Yutang <jiangyutang1978@gmail.com>
++#
++# This is free software, licensed under the GNU General Public License v2.
++# See /LICENSE for more information.
++#
++open F_I, '<', $ARGV[0] or die "Error:$!\n";
++open F_O, '>', $ARGV[1] or die "Error:$!\n";
++$i_size = (stat $ARGV[0])[7];
++
++undef $/;
++$str_i=<F_I>;
++(@ary_i)=unpack("C$i_size", $str_i);
++
++if ( ($i_size % $ARGV[2]) != 0 )
++{
++ for ($i=0; $i<$ARGV[2] - ($i_size % $ARGV[2]); $i++)
++ {
++ $ary_i[$i_size + $i]=0;
++ }
++ $i_size=$i_size + ($ARGV[2] - ($i_size % $ARGV[2]));
++}
++
++for ($i=0; $i<$i_size; $i += $ARGV[2])
++{
++ for ($j=0; $j<$ARGV[2]; $j++)
++ {
++ $ary_o[$i+$j]=$ary_i[$i+$ARGV[2]-$j-1];
++ }
++}
++
++binmode F_O;
++print(F_O pack("C$i_size", @ary_o));
++
++close F_I;
++close F_O;
+--
+1.7.9.5
+