[openfirmware] [commit] r2546 - cpu/arm/olpc/1.75

repository service svn at openfirmware.info
Thu Sep 29 08:12:50 CEST 2011


Author: quozl
Date: Thu Sep 29 08:12:50 2011
New Revision: 2546
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2546

Log:
OLPC XO-1.75 - fix autorun-mfg-tests, #11279

Modified:
   cpu/arm/olpc/1.75/mfgtest.fth

Modified: cpu/arm/olpc/1.75/mfgtest.fth
==============================================================================
--- cpu/arm/olpc/1.75/mfgtest.fth	Wed Sep 28 23:22:57 2011	(r2545)
+++ cpu/arm/olpc/1.75/mfgtest.fth	Thu Sep 29 08:12:50 2011	(r2546)
@@ -102,9 +102,10 @@
 ;
 
 d# 15 value #mfgtests
+d# 5 value #mfgcols
 
 : mfg-test-autorunner  ( -- )  \ Unattended autorun of all tests
-   5 #mfgtests +  5  ?do
+   #mfgcols #mfgtests +  #mfgcols  ?do
       i set-current-sq
       refresh
       d# 1000 ms
@@ -114,7 +115,7 @@
 ;
 
 : play-item     ( -- )   \ Interactive autorun of all tests
-   5 #mfgtests +  5  ?do
+   #mfgcols #mfgtests +  #mfgcols  ?do
       i set-current-sq
       refresh
       d# 200 0 do
@@ -124,7 +125,8 @@
       pass? 0= if  unloop exit  then
    loop
    all-tests-passed
-;         
+;
+
 : quit-item     ( -- )  menu-done  ;
 : cpu-item      ( -- )  " /cpu"       mfg-test-dev  ;
 : battery-item  ( -- )  " /battery"   mfg-test-dev  ;
@@ -200,13 +202,17 @@
    ['] switch-item   ebook.icon    3 4 install-icon
 ;
 
-: full-menu  ( -- )
+: init-menu  ( -- )
    d# 4 to rows
-   d# 5 to cols
+   #mfgcols to cols
    d# 180 to sq-size
    d# 128 to image-size
    d# 128 to icon-size
+   cursor-off
+;
 
+: full-menu  ( -- )
+   init-menu
    olpc-menu-items
 
    " Run all non-interactive tests. (Press a key between tests to stop.)"
@@ -220,9 +226,12 @@
 ' noop to do-title
 
 : autorun-mfg-tests  ( -- )
+   init-menu
+   ['] run-menu behavior >r
    ['] mfg-test-autorunner to run-menu   \ Run menu automatically
    true to diag-switch?
    ['] olpc-menu-items  ['] nest-menu catch  drop
+   r> to run-menu
    false to diag-switch?
    restore-scroller
 ;



More information about the openfirmware mailing list