[openfirmware] r1661 - cpu/x86/pc/olpc/via

svn at openfirmware.info svn at openfirmware.info
Tue Jan 12 23:45:35 CET 2010


Author: wmb
Date: 2010-01-12 23:45:35 +0100 (Tue, 12 Jan 2010)
New Revision: 1661

Modified:
   cpu/x86/pc/olpc/via/fw.bth
Log:
OLPC trac 9980 - disable pretty boot during factory test.


Modified: cpu/x86/pc/olpc/via/fw.bth
===================================================================
--- cpu/x86/pc/olpc/via/fw.bth	2010-01-11 20:43:51 UTC (rev 1660)
+++ cpu/x86/pc/olpc/via/fw.bth	2010-01-12 22:45:35 UTC (rev 1661)
@@ -582,19 +582,15 @@
 \   .built cr
 ;
 
-: ?factory-boot-sequence  ( -- flag )
+: factory-test?  ( -- flag )
    \ TS is the "test station" tag.  Its value is set to "DL" at the
    \ end of manufacturing test.
-   " TS" find-tag  if       ( adr len )
-      ?-null  " DL" $=  0=  ( in-factory? )
-   else                     ( )
-      \ Missing TS tag is treated as not factory mode
+   " TS" find-tag  if         ( adr len )
+      ?-null  " SHIP" $=  0=  ( in-factory? )
+   else                       ( )
+      \ Missing TS tag is treated as not in factory test
       false
-   then                     ( in-factory? )
-   if                       ( )
-      " /prober /usb/ethernet disk:\boot\olpc.fth int:\boot\olpc.fth /xp ext:\boot\olpc.fth /wlan"
-      to boot-device
-   then                     ( )
+   then                       ( in-factory? )
 ;
 
 : debug-interact  ( -- )
@@ -650,7 +646,6 @@
    no-page
 
    ?factory-mode
-\   ?factory-boot-sequence
 
    disable-user-aborts
    console-start
@@ -663,7 +658,7 @@
 
    read-game-keys
 
-   text-off
+   factory-test? 0=  if  text-off  then
 
    " probe-" do-drop-in
 
@@ -688,7 +683,7 @@
    ?scan-nand
 [then]
    ?fs-update
-   secure-startup
+   factory-test? 0=  if  secure-startup  then
    unblock-exceptions
    ['] (interrupt-auto-boot?) to interrupt-auto-boot?
    ?usb-keyboard




More information about the openfirmware mailing list