Changeset 3057


Ignore:
Timestamp:
Jul 12, 2012, 10:35:00 PM (2 years ago)
Author:
wmb
Message:

OLPC ARM - Moved ec-platform$ from ecflash.fth to */config.fth

Location:
cpu/arm/olpc
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/1.75/config.fth

    r3054 r3057  
    2424: model$        " olpc,XO-1.75"  ; 
    2525: compatible$   " olpc,xo-1.75"  ; 
     26: ec-platform$  ( -- adr len )  " 4"  ; 
    2627 
    2728d#  9999 constant machine-type  \ Backwards compatibility with non-device-tree kernel 
  • cpu/arm/olpc/3.0/config.fth

    r3054 r3057  
    2323: model$       " olpcXO-3.0"  ; 
    2424: compatible$  " olpcxo-3.0"  ; 
     25: ec-platform$  ( -- adr len )  " 5"  ; 
    2526 
    2627d# 10000 constant machine-type  \ Backwards compatibility with non-device-tree kernel 
  • cpu/arm/olpc/cl4/config.fth

    r3055 r3057  
    2020: model$       " olpc,XO-CL4"  ; 
    2121: compatible$  " olpc,xo-cl4"  ; 
     22: ec-platform$  ( -- adr len )  " 6"  ; 
    2223 
    2324d# 10001 constant machine-type  \ Backwards compatibility with non-device-tree kernel 
  • cpu/arm/olpc/ecflash.fth

    r3035 r3057  
    8888   ofd @ fclose 
    8989; 
    90 \+ olpc-cl2  : ec-platform$  ( -- adr len )  " 4"  ; 
    91 \+ olpc-cl3  : ec-platform$  ( -- adr len )  " 5"  ; 
    9290: ec-up-to-date?  ( img$ -- flag ) 
    9391   \ If the new image has an invalid length, the old one is considered up to date 
     
    10199   bl left-parse-string ec-platform$ $= 0=  if  2drop true exit  then  ( version&date$ ) 
    102100   bl left-parse-string 2nip                                           ( version$ ) 
    103    ec-name$  $caps-compare  0<=                                        ( flag ) 
     101   ['] ec-name$ catch  if                                              ( version$ ) 
     102      2drop ." Can't get EC name" cr  true                             ( flag ) 
     103   else                                                                ( version$ ec-name$ ) 
     104      $caps-compare  0<=                                               ( flag ) 
     105   then                                                                ( flag ) 
    104106; 
    105107 
Note: See TracChangeset for help on using the changeset viewer.