Changeset 2475


Ignore:
Timestamp:
Aug 22, 2011, 12:20:17 PM (3 years 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:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/via/mfgtest.fth

    r2359 r2475  
    103103 
    104104d# 15 value #mfgtests 
     105d# 5 value #mfgcols 
    105106 
    106107: mfg-test-autorunner  ( -- )  \ Unattended autorun of all tests 
    107    5 #mfgtests +  5  ?do 
     108   #mfgcols #mfgtests +  #mfgcols  ?do 
    108109      i set-current-sq 
    109110      refresh 
     
    115116 
    116117: play-item     ( -- )   \ Interactive autorun of all tests 
    117    5 #mfgtests +  5  ?do 
     118   #mfgcols #mfgtests +  #mfgcols  ?do 
    118119      i set-current-sq 
    119120      refresh 
     
    125126   loop 
    126127   all-tests-passed 
    127 ;          
     128; 
     129 
    128130: quit-item     ( -- )  menu-done  ; 
    129131: cpu-item      ( -- )  " /cpu"       mfg-test-dev  ; 
     
    200202; 
    201203 
    202 : full-menu  ( -- ) 
     204: init-menu  ( -- ) 
    203205   d# 4 to rows 
    204    d# 5 to cols 
     206   #mfgcols to cols 
    205207   d# 180 to sq-size 
    206208   d# 128 to image-size 
    207209   d# 128 to icon-size 
    208  
     210   cursor-off 
     211; 
     212 
     213: full-menu  ( -- ) 
     214   init-menu 
    209215   olpc-menu-items 
    210216 
     
    220226 
    221227: autorun-mfg-tests  ( -- ) 
     228   init-menu 
     229   ['] run-menu behavior >r 
    222230   ['] mfg-test-autorunner to run-menu   \ Run menu automatically 
    223231   true to diag-switch? 
    224232   ['] olpc-menu-items  ['] nest-menu catch  drop 
     233   r> to run-menu 
    225234   false to diag-switch? 
    226235   restore-scroller 
Note: See TracChangeset for help on using the changeset viewer.