From 7b650a6abefbede7beffff32ef38518b026ea060 Mon Sep 17 00:00:00 2001
From: Rabeeh Khoury <rabeeh@marvell.com>
Date: Thu, 8 Oct 2009 17:10:52 -0700
Subject: [PATCH] Function to flash SheevaPlug u-boot sectors

This function is used by the SheevaPlug installer to flash the
erase and re-flash the U-Boot environment in the NAND Flash.
---
 tcl/board/sheevaplug.cfg | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tcl/board/sheevaplug.cfg b/tcl/board/sheevaplug.cfg
index 1a3f61b88..62b78ee19 100644
--- a/tcl/board/sheevaplug.cfg
+++ b/tcl/board/sheevaplug.cfg
@@ -110,6 +110,17 @@ proc sheevaplug_reflash_uboot { } {
 
 }
 
+proc sheevaplug_reflash_uboot_env { } {
+
+	# reflash the u-Boot environment variables area
+	sheevaplug_init
+	nand probe 0
+	nand erase 0 0xa0000 0x40000
+	nand write 0 uboot-env.bin 0xa0000 oob_softecc_kw
+	resume
+
+}
+
 proc sheevaplug_load_uboot { } {
 
 	# load u-Boot into RAM and execute it