[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