[openfirmware] [commit] r2475 - cpu/x86/pc/olpc/via
repository service
svn at openfirmware.info
Mon Aug 22 12:20:17 CEST 2011
Author: quozl
Date: Mon Aug 22 12:20:17 2011
New Revision: 2475
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2475
Log:
OLPC XO-1.5 - autorun-mfg-tests was not starting, regression introduced in svn 2447, fixed by copying code from the alex target equivalent.
Modified:
cpu/x86/pc/olpc/via/mfgtest.fth
Modified: cpu/x86/pc/olpc/via/mfgtest.fth
==============================================================================
--- cpu/x86/pc/olpc/via/mfgtest.fth Mon Aug 22 07:35:17 2011 (r2474)
+++ cpu/x86/pc/olpc/via/mfgtest.fth Mon Aug 22 12:20:17 2011 (r2475)
@@ -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 ;
@@ -199,13 +201,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.)"
@@ -219,9 +225,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