summaryrefslogtreecommitdiffstats
path: root/board/atmel/nandflash.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'board/atmel/nandflash.tcl')
-rw-r--r--board/atmel/nandflash.tcl358
1 files changed, 358 insertions, 0 deletions
diff --git a/board/atmel/nandflash.tcl b/board/atmel/nandflash.tcl
new file mode 100644
index 0000000000..3955b345a4
--- /dev/null
+++ b/board/atmel/nandflash.tcl
@@ -0,0 +1,358 @@
+# ----------------------------------------------------------------------------
+# ATMEL Microcontroller
+# ----------------------------------------------------------------------------
+# Copyright (c) 2015, Atmel Corporation
+#
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# - Redistributions of source code must retain the above copyright notice,
+# this list of conditions and the disclaimer below.
+#
+# Atmel's name may not be used to endorse or promote products derived from
+# this software without specific prior written permission.
+#
+# DISCLAIMER: THIS SOFTWARE IS PROVIDED BY ATMEL "AS IS" AND ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT ARE
+# DISCLAIMED. IN NO EVENT SHALL ATMEL BE LIABLE FOR ANY DIRECT, INDIRECT,
+# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
+# OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# ----------------------------------------------------------------------------
+
+################################################################################
+# Script data
+################################################################################
+# DBGU address for rm9200, 9260/9g20, 9261/9g10, 9rl, 9x5
+set at91_base_dbgu0 0xfffff200
+# DBGU address for 9263, 9g45, sama5d3
+set at91_base_dbgu1 0xffffee00
+# DBGU address for sama5d4
+set at91_base_dbgu2 0xfc069000
+
+set arch_exid_offset 0x44
+
+# arch id
+set arch_id_at91sam9g20 0x019905a0
+set arch_id_at91sam9g45 0x819b05a0
+set arch_id_at91sam9x5 0x819a05a0
+set arch_id_at91sam9n12 0x819a07a0
+set arch_id_sama5d3 0x8a5c07c0
+
+## Find out at91sam9x5 variant to load the corresponding dtb file
+array set at91sam9x5_variant {
+ 0x00000000 at91sam9g15
+ 0x00000001 at91sam9g35
+ 0x00000002 at91sam9x35
+ 0x00000003 at91sam9g25
+ 0x00000004 at91sam9x25
+}
+
+## Find out sama5d3 variant to load the corresponding dtb file
+array set sama5d3_variant {
+ 0x00444300 sama5d31
+ 0x00414300 sama5d33
+ 0x00414301 sama5d34
+ 0x00584300 sama5d35
+ 0x00004301 sama5d36
+}
+
+## Find out sama5d4 variant
+array set sama5d4_variant {
+ 0x00000001 sama5d41
+ 0x00000002 sama5d42
+ 0x00000003 sama5d43
+ 0x00000004 sama5d44
+}
+
+################################################################################
+# proc uboot_env: Convert u-boot variables in a string ready to be flashed
+# in the region reserved for environment variables
+################################################################################
+proc set_uboot_env {nameOfLstOfVar} {
+ upvar $nameOfLstOfVar lstOfVar
+
+ # sector size is the size defined in u-boot CFG_ENV_SIZE
+ set sectorSize [expr 0x20000 - 5]
+
+ set strEnv [join $lstOfVar "\0"]
+ while {[string length $strEnv] < $sectorSize} {
+ append strEnv "\0"
+ }
+ # \0 between crc and strEnv is the flag value for redundant environment
+ set strCrc [binary format i [::vfs::crc $strEnv]]
+ return "$strCrc\0$strEnv"
+}
+
+################################################################################
+proc find_variant_name {boardType} {
+ global at91_base_dbgu0
+ global at91_base_dbgu1
+ global at91_base_dbgu2
+ global arch_exid_offset
+ global at91sam9x5_variant
+ global sama5d3_variant
+ global sama5d4_variant
+ set socName "none"
+
+ switch $boardType {
+ at91sam9x5ek {
+ set exidAddr [expr {$at91_base_dbgu0 + $arch_exid_offset}]
+ set chip_variant [format "0x%08x" [read_int $exidAddr]]
+
+ foreach {key value} [array get at91sam9x5_variant] {
+ if {$key == $chip_variant} {
+ set socName "$value"
+ break;
+ }
+ }
+ }
+ sama5d3xek {
+ set exidAddr [expr {$at91_base_dbgu1 + $arch_exid_offset}]
+ set chip_variant [format "0x%08x" [read_int $exidAddr]]
+
+ foreach {key value} [array get sama5d3_variant] {
+ #puts "-I- === $chip_variant ? $key ($value) ==="
+ if {$key == $chip_variant} {
+ set socName "$value"
+ break;
+ }
+ }
+ }
+ sama5d3_xplained {
+ set exidAddr [expr {$at91_base_dbgu1 + $arch_exid_offset}]
+ set chip_variant [format "0x%08x" [read_int $exidAddr]]
+
+ foreach {key value} [array get sama5d3_variant] {
+ #puts "-I- === $chip_variant ? $key ($value) ==="
+ if {$key == $chip_variant} {
+ set socName "$value"
+ break;
+ }
+ }
+ }
+ sama5d4ek {
+ set exidAddr [expr {$at91_base_dbgu2 + $arch_exid_offset}]
+ set chip_variant [format "0x%08x" [read_int $exidAddr]]
+
+ foreach {key value} [array get sama5d4_variant] {
+ #puts "-I- === $chip_variant ? $key ($value) ==="
+ if {$key == $chip_variant} {
+ set socName "$value"
+ break;
+ }
+ }
+ }
+ sama5d4_xplained {
+ set exidAddr [expr {$at91_base_dbgu2 + $arch_exid_offset}]
+ set chip_variant [format "0x%08x" [read_int $exidAddr]]
+
+ foreach {key value} [array get sama5d4_variant] {
+ #puts "-I- === $chip_variant ? $key ($value) ==="
+ if {$key == $chip_variant} {
+ set socName "$value"
+ break;
+ }
+ }
+ }
+ }
+
+ return "$socName"
+}
+
+proc find_variant_ecc {boardType} {
+ set eccType "none"
+
+ switch $boardType {
+ at91sam9x5ek {
+ set eccType 0xc0c00405
+ }
+ at91sam9n12ek {
+ set eccType 0xc0c00405
+ }
+ sama5d3xek {
+ set eccType 0xc0902405
+ }
+ sama5d3_xplained {
+ set eccType 0xc0902405
+ }
+ sama5d4ek {
+ set eccType 0xc1e04e07
+ }
+ sama5d4_xplained {
+ set eccType 0xc1e04e07
+ }
+ }
+
+ puts "-I- === eccType is $eccType ==="
+ return $eccType
+}
+
+proc get_kernel_load_addr {boardType} {
+ set kernel_load_addr 0x22000000
+
+ switch $boardType {
+ at91sam9m10g45ek {
+ set kernel_load_addr 0x72000000
+ }
+ }
+
+ return $kernel_load_addr
+}
+
+proc get_dtb_load_addr {boardType} {
+ set dtb_load_addr 0x21000000
+
+ switch $boardType {
+ at91sam9m10g45ek {
+ set dtb_load_addr 0x71000000
+ }
+ }
+
+ return $dtb_load_addr
+}
+
+################################################################################
+# Main script: Load the linux demo in NandFlash,
+# Update the environment variables
+################################################################################
+
+################################################################################
+
+# check for proper variable initialization
+if {! [info exists boardFamily]} {
+ puts "-I- === Parsing script arguments ==="
+ if {! [info exists env(O)]} {
+ puts "-E- === Binaries path not defined ==="
+ exit
+ }
+
+ set bootstrapFile "$env(O)/at91bootstrap.bin"
+ set ubootFile "$env(O)/u-boot.bin"
+ set kernelFile "$env(O)/zImage"
+ set rootfsFile "$env(O)/rootfs.ubi"
+ set build_uboot_env "yes"
+
+ set i 1
+ foreach arg $::argv {
+ puts "argument $i is $arg"
+ switch $i {
+ 4 { set boardFamily $arg }
+ 5 { set dtbFile "$env(O)/$arg" }
+ 6 { set videoMode $arg }
+ }
+ incr i
+ }
+}
+
+puts "-I- === Board Family is $boardFamily ==="
+
+set pmeccConfig [find_variant_ecc $boardFamily]
+
+## Now check for the needed files
+if {! [file exists $bootstrapFile]} {
+ puts "-E- === AT91Bootstrap file not found ==="
+ exit
+}
+
+if {! [file exists $ubootFile]} {
+ puts "-E- === U-Boot file not found ==="
+ exit
+}
+
+if {! [file exists $kernelFile]} {
+ puts "-E- === Linux kernel file not found ==="
+ exit
+}
+
+if {! [file exists $dtbFile]} {
+ puts "-E- === Device Tree binary: $dtbFile file not found ==="
+ exit
+}
+
+if {! [file exists $rootfsFile]} {
+ puts "-E- === Rootfs file not found ==="
+ exit
+}
+
+## NandFlash Mapping
+set bootStrapAddr 0x00000000
+set ubootAddr 0x00040000
+set ubootEnvAddr 0x000c0000
+set dtbAddr 0x00180000
+set kernelAddr 0x00200000
+set rootfsAddr 0x00800000
+
+## u-boot variable
+set kernelLoadAddr [get_kernel_load_addr $boardFamily]
+set dtbLoadAddr [get_dtb_load_addr $boardFamily]
+
+## NandFlash Mapping
+set kernelSize [format "0x%08X" [file size $kernelFile]]
+set dtbSize [format "0x%08X" [file size $dtbFile]]
+set bootCmd "bootcmd=nand read $dtbLoadAddr $dtbAddr $dtbSize; nand read $kernelLoadAddr $kernelAddr $kernelSize; bootz $kernelLoadAddr - $dtbLoadAddr"
+set rootfsSize [format "0x%08X" [file size $rootfsFile]]
+
+lappend u_boot_variables \
+ "bootdelay=1" \
+ "baudrate=115200" \
+ "stdin=serial" \
+ "stdout=serial" \
+ "stderr=serial" \
+ "bootargs=console=ttyS0,115200 mtdparts=atmel_nand:256k(bootstrap)ro,512k(uboot)ro,256k(env),256k(env_redundant),256k(spare),512k(dtb),6M(kernel)ro,-(rootfs) rootfstype=ubifs ubi.mtd=7 root=ubi0:rootfs rw $videoMode" \
+ "$bootCmd"
+
+## Additional files to load
+set ubootEnvFile "ubootEnvtFileNandFlash.bin"
+
+
+## Start flashing procedure ##################################################
+puts "-I- === Initialize the NAND access ==="
+NANDFLASH::Init
+
+if {$pmeccConfig != "none"} {
+ puts "-I- === Enable PMECC OS Parameters ==="
+ NANDFLASH::NandHeaderValue HEADER $pmeccConfig
+}
+
+puts "-I- === Erase all the NAND flash blocs and test the erasing ==="
+NANDFLASH::EraseAllNandFlash
+
+puts "-I- === Load AT91Bootstrap in the first sector ==="
+if {$pmeccConfig != "none"} {
+ NANDFLASH::SendBootFilePmeccCmd $bootstrapFile
+} else {
+ NANDFLASH::sendBootFile $bootstrapFile
+}
+
+puts "-I- === Load u-boot in the next sectors ==="
+send_file {NandFlash} "$ubootFile" $ubootAddr 0
+
+if {$build_uboot_env == "yes"} {
+ puts "-I- === Load the u-boot environment variables ==="
+ set fh [open "$ubootEnvFile" w]
+ fconfigure $fh -translation binary
+ puts -nonewline $fh [set_uboot_env u_boot_variables]
+ close $fh
+ send_file {NandFlash} "$ubootEnvFile" $ubootEnvAddr 0
+}
+
+puts "-I- === Load the Kernel image and device tree database ==="
+send_file {NandFlash} "$dtbFile" $dtbAddr 0
+send_file {NandFlash} "$kernelFile" $kernelAddr 0
+
+if {$pmeccConfig != "none"} {
+ puts "-I- === Enable trimffs ==="
+ NANDFLASH::NandSetTrimffs 1
+}
+
+puts "-I- === Load the linux file system ==="
+send_file {NandFlash} "$rootfsFile" $rootfsAddr 0
+
+puts "-I- === DONE. ==="
OpenPOWER on IntegriCloud