[openfirmware] [commit] r2737 - cpu/arm/olpc
repository service
svn at openfirmware.info
Tue Dec 6 08:10:57 CET 2011
Author: wmb
Date: Tue Dec 6 08:10:57 2011
New Revision: 2737
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2737
Log:
OLPC XO-3 - Support for XO-3 EC image.
Modified:
cpu/arm/olpc/ecflash.fth
Modified: cpu/arm/olpc/ecflash.fth
==============================================================================
--- cpu/arm/olpc/ecflash.fth Tue Dec 6 08:10:51 2011 (r2736)
+++ cpu/arm/olpc/ecflash.fth Tue Dec 6 08:10:57 2011 (r2737)
@@ -101,6 +101,8 @@
load-base /ec-flash ofd @ fputs
ofd @ fclose
;
+\+ olpc-cl2 : ec-platform$ ( -- adr len ) " 4" ;
+\+ olpc-cl3 : ec-platform$ ( -- adr len ) " 5" ;
: ec-up-to-date? ( img$ -- flag )
\ If the new image has an invalid length, the old one is considered up to date
dup /ec-flash <> if
@@ -109,10 +111,10 @@
+ h# 100 - cscount ( version&date$ )
\ If the new image has an invalid signature, the old one is considered up to date
dup d# 25 < if 2drop true exit then ( version&date$ )
- bl left-parse-string " XO-EC" $= 0= if 2drop true exit then ( version&date$ )
- bl left-parse-string " 4" $= 0= if 2drop true exit then ( version&date$ )
- bl left-parse-string 2nip ( version$ )
- ec-name$ $caps-compare 0<= ( flag )
+ bl left-parse-string " XO-EC" $= 0= if 2drop true exit then ( version&date$ )
+ bl left-parse-string ec-platform$ $= 0= if 2drop true exit then ( version&date$ )
+ bl left-parse-string 2nip ( version$ )
+ ec-name$ $caps-compare 0<= ( flag )
;
: update-ec-flash ( -- )
@@ -130,8 +132,10 @@
: update-ec-flash? ( -- flag )
" ecimage.bin" find-drop-in if ( adr len )
- 2dup ec-up-to-date? 0= ( adr len flag )
- >r free-mem r> ( flag )
+ 2dup ec-up-to-date? 0= ( adr len flag )
+ >r free-mem r> ( flag )
+ else ( )
+ false
then
;
More information about the openfirmware
mailing list