Changeset 3057


Ignore:
Timestamp:
Jul 12, 2012, 10:35:00 PM (3 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.