Changeset 2475

Timestamp:

Aug 22, 2011 12:20:17 PM (21 months ago)

Author:

quozl

Message:

OLPC XO-1.5 - autorun-mfg-tests was not starting, regression introduced in svn 2447, fixed by copying code from the alex target equivalent.

File:

• cpu/x86/pc/olpc/via/mfgtest.fth (modified) (5 diffs)

cpu/x86/pc/olpc/via/mfgtest.fth

@@ -103 +103 @@
 
 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
@@ -115 +116 @@
 
 : play-item     ( -- )   \ Interactive autorun of all tests
-   5 #mfgtests +  5  ?do
+   #mfgcols #mfgtests +  #mfgcols  ?do
       i set-current-sq
       refresh
@@ -125 +126 @@
    loop
    all-tests-passed
-;         
+;
+
 : quit-item     ( -- )  menu-done  ;
 : cpu-item      ( -- )  " /cpu"       mfg-test-dev  ;
@@ -200 +202 @@
 ;
 
-: 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
 
@@ -220 +226 @@
 
 : 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