Changeset 3000


Ignore:
Timestamp:
Jun 6, 2012 12:03:10 PM (13 months ago)
Author:
quozl
Message:

OLPC XO-1.75 - warn on boot if TS tag is not SHIP, for boards such as spares that do not pass through final testing at factory, #11848

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cpu/arm/olpc/banner.fth

    r2993 r3000  
    135135; 
    136136 
     137: check-tags  ( -- ) 
     138   " TS" find-tag  if  " SHIP" $=  if  exit  then 
     139      red-letters 
     140      ." WARNING!  TS tag is not SHIP"  cr 
     141      cancel 
     142   then 
     143; 
     144 
    137145: (xbanner-basics)  ( -- ) 
    138146   ?spaces  cpu-model type  ." , " .cpu-speed  ." , "   .memory-brief 
    … …  
    141149   ?spaces  .rom  ."    " .ec  ."    " .clock 
    142150   check-internal-partitions 
     151   check-tags 
    143152; 
    144153' (xbanner-basics) to banner-basics 
Note: See TracChangeset for help on using the changeset viewer.