diff options
| author | Yutang Jiang <yutang.jiang@nxp.com> | 2016-11-15 23:46:51 +0800 |
|---|---|---|
| committer | John Crispin <john@phrozen.org> | 2016-11-16 10:58:09 +0100 |
| commit | 4a6f9fc6333d5043d4ddfd25d87be3ae17f9e794 (patch) | |
| tree | 7dffc43039ef2b6f0b4c50404b04bb9719251043 /package/boot/uboot-layerscape/patches | |
| parent | 8565630e14145d348909e7b8572e60daa332eae6 (diff) | |
| download | upstream-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.patch | 72 |
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 + |