Author: wmb Date: 2009-12-11 07:26:24 +0100 (Fri, 11 Dec 2009) New Revision: 1577
Modified: cpu/x86/pc/olpc/via/runin.fth Log: OLPC manufacturing test scripts - simplified runin script by omitting definitions that have been added to OFW.
Modified: cpu/x86/pc/olpc/via/runin.fth =================================================================== --- cpu/x86/pc/olpc/via/runin.fth 2009-12-11 06:22:37 UTC (rev 1576) +++ cpu/x86/pc/olpc/via/runin.fth 2009-12-11 06:26:24 UTC (rev 1577) @@ -8,36 +8,6 @@ \ the failure log (if int:\runin\fail.log is present) or modifies the \ manufacturing data tags to cause the next boot to enter final test.
-[ifndef] $read-file -\ Read entire file into allocated memory -: $read-file ( filename$ -- true | data$ false ) - open-dev ?dup 0= if true exit then >r ( r: ih ) - " size" r@ $call-method drop ( len r: ih ) - dup alloc-mem swap ( adr len r: ih ) - 2dup " read" r@ $call-method ( adr len actual r: ih ) - r> close-dev ( adr len actual ) - over <> if ( adr len ) - free-mem true exit - then ( adr len ) - false -; -[then] - -[ifndef] $(delete-tag) -: ($delete-tag) ( adr len -- ) - 2dup ram-find-tag 0= if 2drop exit then ( tagname$ ram-value$ ) - 2nip ( ram-value$ ) - - 2dup + c@ h# 80 and ( ram-value$ tag-style ) - if 4 else 5 then + >r ( tag-adr tag-len ) - ram-last-mfg-data >r ( tag-adr r: len bot-adr ) - r@ 2r@ + ( tag-adr src-adr dst-adr r: len bot-adr ) - rot r@ - ( src-adr dst-adr copy-len r: len bot-adr ) - move ( r: len bot-adr ) - r> r> h# ff fill ( ) -; -[then] - d# 20 buffer: sn-buf : sn$ ( -- adr len ) sn-buf count ;
@@ -176,7 +146,6 @@ power-off ;
- d# 15 to #mfgtests
: final-tests ( -- ) @@ -201,12 +170,6 @@ : doit-once ( -- ) do-key final-tests ; patch doit-once do-key menu-interact
-: silent-probe-usb ( -- ) - " /" ['] (probe-usb2) scan-subtree - " /" ['] (probe-usb1) scan-subtree - report-disk report-net report-keyboard -; - : scanner? ( -- flag ) " usb-keyboard" expand-alias if 2drop true else false then ; @@ -254,8 +217,6 @@ \ set-tags-for-fqa \ " int:\runin\olpc.fth" $delete-all
- 5 to test-station - true to diag-switch? " patch final-tests play-item mfgtest-menu" evaluate menu \ Shouldn't get here because the menu never exits