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 ;