Changeset 2359
- Timestamp:
- Jul 14, 2011 5:58:52 AM (2 years ago)
- File:
-
- 1 edited
-
cpu/x86/pc/olpc/via/mfgtest.fth (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
cpu/x86/pc/olpc/via/mfgtest.fth
r1975 r2359 35 35 : mfg-test-dev ( $ -- ) 36 36 restore-scroller 37 ??cr ." Testing " 2dup type cr 38 locate-device if ." Can't find device node" cr exit then ( phandle ) 39 " selftest" rot execute-phandle-method ( return abort? ) 40 if 41 ?dup if 37 ??cr ." Testing " 2dup type cr ( $ ) 38 2dup locate-device if ( $ ) 39 2drop ." Can't find device node" cr exit ( -- ) 40 else 41 drop ( $ ) 42 then ( $ phandle ) 43 " selftest" execute-device-method if ( return-code ) 44 ?dup if ( return-code ) 42 45 ??cr ." Selftest failed. Return code = " .d cr 43 46 mfg-color-red sq-border! … … 46 49 flush-keyboard 47 50 mfg-wait-return 48 else 51 else ( ) 49 52 green-letters 50 53 ." Okay" cr
Note: See TracChangeset
for help on using the changeset viewer.
