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

[svn at openfirmware.info]

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