November 2011 - openfirmware - mail.coreboot.org

[commit] r2697 - cpu/arm/olpc/1.75
by repository service Nov. 21, 2011

Nov. 21, 2011

Author: quozl Date: Mon Nov 21 23:37:37 2011 New Revision: 2697 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2697 Log: OLPC XO-1.75 - adopt EC 0.3.05 from 16th November Modified: cpu/arm/olpc/1.75/ec-version.fth Modified: cpu/arm/olpc/1.75/ec-version.fth ============================================================================== --- cpu/arm/olpc/1.75/ec-version.fth Mon Nov 21 23:33:47 2011 (r2696) +++ cpu/arm/olpc/1.75/ec-version.fth Mon Nov 21 23:37:37 2011 (r2697) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 4_0_3_04 +macro: EC_VERSION 4_0_3_05 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r2696 - cpu/arm/mmp2
by repository service Nov. 21, 2011

Nov. 21, 2011

Author: wmb Date: Mon Nov 21 23:33:47 2011 New Revision: 2696 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2696 Log: OLPC XO-1.75 - Configurable sleep code, configured for manual memory controller wakeup Modified: cpu/arm/mmp2/dramrecal.fth Modified: cpu/arm/mmp2/dramrecal.fth ============================================================================== --- cpu/arm/mmp2/dramrecal.fth Mon Nov 21 05:09:15 2011 (r2695) +++ cpu/arm/mmp2/dramrecal.fth Mon Nov 21 23:33:47 2011 (r2696) @@ -58,42 +58,92 @@ end-code here ddr-recal - constant /ddr-recal +\ create use-auto-mc-wake \ Let the PMU automatically wake the memory controller +create use-block \ Block memory controller activity in low-level sleep code +create use-self-refresh \ Manually issue self-refresh enter/exit +create use-drivers \ Turn memory drivers off during sleep +\ create use-phy-dll-reset \ Reset the PHY DLL upon wakeup +create use-phy-dll-update \ Update the PHY DLL upon wakeup +create use-dram-dll-reset \ Reset the DRAM DLL upon wakeup +\ create use-delay2 \ Long delay upon wakeup +\ create use-delay3 \ Short delay upon wakeup + label ddr-self-refresh ( r0:memctrl-va -- ) +[ifdef] use-gpio + mov r4, #0xfe000000 + orr r4, r4, 0x19000 \ GPIO 3 + mov r1, 0x8 \ GPIO 3 + str r1, [r4, #0x18] \ Set +[then] + +[ifdef] use-block mov r1, #0x1 \ Block all data requests str r1, [r0, #0x7e0] \ SDRAM_CTRL14 +[then] -[ifdef] notdef2 +[ifdef] use-odt ldr r2, [r0, #0x770] \ SDRAM_CTRL7_SDRAM_ODT_CTRL2 orr r1, r2, #0x03000000 \ PAD_TERM_SWITCH_MODE: Termination disabled str r1, [r0, #0x770] \ SDRAM_CTRL7_SDRAM_ODT_CTRL2 [then] +[ifdef] use-self-refresh mov r1, #0x40 \ Enter Self Refresh value str r1, [r0, #0x120] \ USER_INITIATED_COMMAND0 +[then] +[ifdef] use-drivers ldr r3, [r0, #0x1e0] \ PHY_CTRL8 - bic r1, r3, #0x07700000 \ PHY_ADCM_ZPDRV: 0 PHY_ADCM_ZNDRV: 0 (Disable drivers 6:0) + bic r1, r3, #0x0ff00000 \ PHY_ADCM_ZPDRV: f PHY_ADCM_ZNDRV: f (disable drivers) str r1, [r0, #0x1e0] \ PHY_CTRL8 +[then] dsb \ Data Synchronization Barrier wfi \ Wait for interrupt - str r3, [r0, #0x1e0] \ PHY_CTRL8 - restore previous value +[ifdef] use-gpio + mov r1, 0x8 \ GPIO 3 + str r1, [r4, #0x24] \ Clr +[then] + +[ifdef] use-drivers + str r3, [r0, #0x1e0] \ PHY_CTRL8 - restore previous value (all drivers) +[then] + +[ifdef] use-delay1 + \ Delay to let the memory controller and DRAM DLLs settle + mov r1, #0x600 begin decs r1,1 0= until +[then] +[ifdef] use-phy-dll-reset mov r1, #0x20000000 \ PHY_DLL_RESET str r1, [r0, #0x240] \ PHY_CTRL14 +[then] +[ifdef] use-phy-dll-update mov r1, #0x40000000 \ DLL_UPDATE_EN str r1, [r0, #0x240] \ PHY_CTRL14 +[then] +[ifdef] use-dram-dll-reset + ldr r1, [r0, #0x080] \ PHY_CTRL1 + orr r1, r1, #0x40 \ DLL_RESET + str r1, [r0, #0x080] \ PHY_CTRL1 + mov r1, #0x100 \ USER_LMR0_REQ + orr r1, r1, #0x03000000 \ CHIP_SELECT_0 | CHIP_SELECT_1 + str r1, [r0, #0x120] \ USER_INITIATED_COMMAND0 +[then] + +[ifdef] use-self-refresh mov r1, #0x80 \ Exit Self Refresh value str r1, [r0, #0x120] \ USER_INITIATED_COMMAND0 +[then] -[ifdef] notdef2 +[ifdef] use-odt str r2, [r0, #0x770] \ SDRAM_CTRL7_SDRAM_ODT_CTRL2 - restore previous value [then] -[ifdef] notdef +[ifdef] use-zqcal mov r1, #0x01000000 \ Chip select 0 orr r1, r1, #0x00001000 \ Initiate ZQ calibration long str r1, [r0, #0x120] \ USER_INITIATED_COMMAND0 @@ -107,11 +157,30 @@ 0= until [then] - \ Delay to let the memory controller and DRAM DLLs settle - mov r1, #0x0300 begin decs r1,1 0= until +[ifdef] use-gpio + mov r1, 0x8 \ GPIO 3 + str r1, [r4, #0x18] \ Set +[then] + +[ifdef] use-delay2 + \ Delay to ensure that at least 512 DRAM NOP's happen before the first access + mov r1, #0x600 begin decs r1,1 0= until +[then] +[ifdef] use-delay3 + \ Delay to ensure that at least 512 DRAM NOP's happen before the first access + mov r1, #0x20 begin decs r1,1 0= until +[then] + +[ifdef] use-gpio + mov r1, 0x8 \ GPIO 3 + str r1, [r4, #0x24] \ Clr +[then] + +[ifdef] use-block mov r1, #0x0 \ Unblock data requests str r1, [r0, #0x7e0] \ SDRAM_CTRL14 +[then] mov pc, lr end-code @@ -662,7 +731,9 @@ then h# 0020.0000 or ( apcr idle' ) \ PJ_DIS_MC_SW_REQ - disable idle entry using software register bits +[ifdef] use-auto-mc-wake h# 0010.0000 or ( apcr idle' ) \ PJ_MC_WAKE_EN - wake memory controller when core wakes +[then] 0 h# b0 pmua! ( apcr idle ) \ PMUA_MC_HW_SLP_TYPE - self-refresh power down @@ -736,6 +807,10 @@ ; : str ( -- ) +[ifdef] use-gpio + 3 gpio-dir-out +[then] + disable-interrupts suspend-usb timers-sleep

1 0

[commit] r2695 - dev
by repository service Nov. 20, 2011

Nov. 20, 2011

Author: quozl Date: Mon Nov 21 05:09:15 2011 New Revision: 2695 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2695 Log: OLPC - instance buffer scan-ssid is d# 34 bytes long, so the maximum length check in set-ssid was invalid, (found during code review only) Modified: dev/libertas.fth Modified: dev/libertas.fth ============================================================================== --- dev/libertas.fth Mon Nov 21 01:23:36 2011 (r2694) +++ dev/libertas.fth Mon Nov 21 05:09:15 2011 (r2695) @@ -1040,7 +1040,7 @@ 2dup " olpc-mesh" $= if passive-scan then 2dup " olpc-NANDblaster" $= if passive-scan then - h# 32 min scan-ssid pack drop + d# 32 min scan-ssid pack drop ; : scan ( adr len -- actual )

1 0

[commit] r2694 - dev/olpc/spiflash
by repository service Nov. 20, 2011

Nov. 20, 2011

Author: quozl Date: Mon Nov 21 01:23:36 2011 New Revision: 2694 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2694 Log: OLPC - save-mfg-data, restore-mfg-data, use new flash interface, use u:\ instead of disk:\, tested on XO-1, XO-1.5, XO-1.75. Modified: dev/olpc/spiflash/spiui.fth Modified: dev/olpc/spiflash/spiui.fth ============================================================================== --- dev/olpc/spiflash/spiui.fth Sun Nov 20 23:23:51 2011 (r2693) +++ dev/olpc/spiflash/spiui.fth Mon Nov 21 01:23:36 2011 (r2694) @@ -123,41 +123,45 @@ drop ( sn$ ) then ( sn$ ) - " disk:\" "temp place ( sn$' ) + " u:\" "temp place ( sn$' ) - dup 8 > if ( sn$ ) - over 8 "temp $cat ( sn$ ) - 8 /string ( sn$' ) - " ." "temp $cat ( sn$ ) - then ( sn$ ) - "temp $cat ( ) - "temp count ( filename$ ) + dup 8 > if ( sn$ ) + over 8 "temp $cat ( sn$ ) + 8 /string ( sn$' ) + " ." "temp $cat ( sn$ ) + then ( sn$ ) + "temp $cat ( ) + "temp count ( filename$ ) ; : save-mfg-data ( -- ) - make-sn-name ( name$ ) - ." Creating " 2dup type cr + flash-open + make-sn-name ( name$ ) + ." Creating " 2dup type cr ( name$ ) $create-file ( ihandle ) dup 0= abort" Can't create file" >r ( r: ihandle ) mfg-data-buf /flash-block ( adr len r: ihandle ) 2dup mfg-data-offset flash-read ( adr len r: ihandle ) - " write" r@ $call-method ( r: ihandle ) - r> close-dev + " write" r@ $call-method ( wlen r: ihandle ) + r> close-dev ( wlen r: ihandle ) + /flash-block <> abort" Can't write file" ( r: ihandle ) + flash-close ; : restore-mfg-data ( "filename" -- ) + flash-open reading - ifd @ fsize dup /flash-block <> if ( len ) - drop ifd @ fclose ( ) + ifd @ fsize dup /flash-block <> if ( len ) + drop ifd @ fclose ( ) true abort" File is the wrong size - should be 65536 bytes" - then ( len ) - mfg-data-buf swap ( adr len ) - 2dup ifd @ fgets drop ( adr len ) - ifd @ fclose - - flash-write-enable - mfg-data-offset flash-erase-block ( adr len ) - mfg-data-offset flash-write ( ) - flash-write-disable ( ) + then ( len ) + mfg-data-buf swap ( adr len ) + 2dup ifd @ fgets drop ( adr len ) + ifd @ fclose ( adr len ) + flash-write-enable ( adr len ) + mfg-data-offset flash-erase-block ( adr len ) + mfg-data-offset flash-write ( ) + flash-write-disable ( ) + flash-close ( ) ; [then]

1 0

[commit] r2693 - cpu/arm/olpc/1.75
by repository service Nov. 20, 2011

Nov. 20, 2011

Author: quozl Date: Sun Nov 20 23:23:51 2011 New Revision: 2693 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2693 Log: OLPC XO-1.75 - community testers did not know how to use the accelerometer test, so add a test environment directive. Modified: cpu/arm/olpc/1.75/accelerometer.fth Modified: cpu/arm/olpc/1.75/accelerometer.fth ============================================================================== --- cpu/arm/olpc/1.75/accelerometer.fth Thu Nov 17 00:11:05 2011 (r2692) +++ cpu/arm/olpc/1.75/accelerometer.fth Sun Nov 20 23:23:51 2011 (r2693) @@ -12,7 +12,7 @@ : ctl1! ( b -- ) h# 20 acc-reg! ; : ctl4! ( b -- ) h# 23 acc-reg! ; : accelerometer-on ( -- ) h# 47 ctl1! ; -: accelerometer-off ( -- ) h# 07 ctl1! ; +: accelerometer-off ( -- ) h# 07 ctl1! ; \ should this be 00? : wext ( b -- n ) dup h# 8000 and if h# ffff0000 or then ; : acceleration@ ( -- x y z ) begin h# 27 acc-reg@ h# 08 and until \ wait for data available @@ -136,6 +136,7 @@ final-test? if accelerometer-off false exit then + ." Don't move!" cr lis-selftest ;

1 0

[commit] r2692 - cpu/arm/olpc/1.75
by repository service Nov. 16, 2011

Nov. 16, 2011

Author: wmb Date: Thu Nov 17 00:11:05 2011 New Revision: 2692 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2692 Log: OLPC XO-1.75 - svn 2676 introduced a problem with EC communication by loading some code at the wrong time. Modified: cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Tue Nov 15 05:25:45 2011 (r2691) +++ cpu/arm/olpc/1.75/fw.bth Thu Nov 17 00:11:05 2011 (r2692) @@ -128,7 +128,6 @@ then ; warning ! -[then] : (.firmware) ( -- ) ." Open Firmware " .built cr @@ -169,6 +168,47 @@ fload ${BP}/cpu/x86/pc/olpc/via/banner.fth +devalias keyboard /ap-sp/keyboard +devalias mouse /ap-sp/mouse + +: console-start ( -- ) + install-mux-io + cursor-off + true to text-on? + + " //null" open-dev to null-ih \ For text-off state +; +: keyboard-off ( -- ) + keyboard-ih if + keyboard-ih remove-input + keyboard-ih close-dev + 0 to keyboard-ih + then +; + +: teardown-mux-io ( -- ) + install-uart-io + text-off + keyboard-off + fallback-out-ih remove-output + fallback-in-ih remove-input + stdin off + stdout off + in-mux-ih close-dev + out-mux-ih close-dev +; +: quiesce ( -- ) + teardown-mux-io + timers-off + usb-quiet + close-ec + \ Change the sleep state of EC_SPI_ACK from 1 (OFW value) to 0 (Linux value) + d# 125 af@ h# 100 invert and d# 125 af! +; + +\ This must precede the loading of gui.fth, which chains from linux-hook's behavior +' quiesce to linux-hook + \ This must be defined after spiui.fth, otherwise spiui will choose some wrong code : rom-pa ( -- adr ) mfg-data-buf mfg-data-offset - ; \ Fake out setwp.fth fload ${BP}/cpu/x86/pc/olpc/setwp.fth @@ -394,45 +434,6 @@ fload ${BP}/dev/hdaudio/noiseburst.fth \ audio-test support package -devalias keyboard /ap-sp/keyboard -devalias mouse /ap-sp/mouse - -: console-start ( -- ) - install-mux-io - cursor-off - true to text-on? - - " //null" open-dev to null-ih \ For text-off state -; -: keyboard-off ( -- ) - keyboard-ih if - keyboard-ih remove-input - keyboard-ih close-dev - 0 to keyboard-ih - then -; - -: teardown-mux-io ( -- ) - install-uart-io - text-off - keyboard-off - fallback-out-ih remove-output - fallback-in-ih remove-input - stdin off - stdout off - in-mux-ih close-dev - out-mux-ih close-dev -; -: quiesce ( -- ) - teardown-mux-io - timers-off - usb-quiet - close-ec - \ Change the sleep state of EC_SPI_ACK from 1 (OFW value) to 0 (Linux value) - d# 125 af@ h# 100 invert and d# 125 af! -; - -' quiesce to linux-hook \ Because visible doesn't work sometimes when calling back from Linux dev /client-services patch noop visible enter dend

1 0

[commit] r2691 - cpu/x86/pc/olpc
by repository service Nov. 14, 2011

Nov. 14, 2011

Author: quozl Date: Tue Nov 15 05:25:45 2011 New Revision: 2691 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2691 Log: OLPC trac 11427 - stack effect comment fix Modified: cpu/x86/pc/olpc/gamekeys.fth Modified: cpu/x86/pc/olpc/gamekeys.fth ============================================================================== --- cpu/x86/pc/olpc/gamekeys.fth Tue Nov 15 05:21:53 2011 (r2690) +++ cpu/x86/pc/olpc/gamekeys.fth Tue Nov 15 05:25:45 2011 (r2691) @@ -44,7 +44,7 @@ ; ' gamekey-pause-message to pause-message -: olpc-hold-message +: olpc-hold-message ( ms -- ) [ifdef] test-station test-station 1 5 between if drop false exit then [then]

1 0

[commit] r2690 - ofw/core
by repository service Nov. 14, 2011

Nov. 14, 2011

Author: quozl Date: Tue Nov 15 05:21:53 2011 New Revision: 2690 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2690 Log: OLPC trac 11427 - test-all stopped working at the first device that had no reg property, caused by stack imbalance in most-tests premature exit paths Modified: ofw/core/ofwcore.fth Modified: ofw/core/ofwcore.fth ============================================================================== --- ofw/core/ofwcore.fth Tue Nov 15 02:14:16 2011 (r2689) +++ ofw/core/ofwcore.fth Tue Nov 15 05:21:53 2011 (r2690) @@ -3278,18 +3278,18 @@ ' (hold-message) to hold-message : most-tests ( -- exit? ) - " selftest" current-device (search-wordlist) if ( xt ) + " selftest" current-device (search-wordlist) if ( xt ) - drop ( ) + drop ( ) \ We only want to execute the selftest routine if the device has \ a "reg" property. This eliminates the execution of selftest \ routines for "wildcard" devices like st and sd. - " reg" get-property if exit then 2drop ( ) + " reg" get-property if false exit then 2drop ( ) \ We sometimes want to skip the testing of certain devices. - current-device skip-test? if exit then ( ) + current-device skip-test? if false exit then ( ) ??cr ." Testing " pwd " selftest" current-device ( method-adr,len phandle ) @@ -3317,16 +3317,10 @@ then ( exit? ) ; -\ "action-acf" is executed for each device node in the subtree -\ rooted at dev-addr,len , with current-device set to the -\ node in question. "action-acf" can perform arbitrary tests -\ on the node to determine if that node is appropriate for -\ the action that it wished to undertake. - : test-subtree ( dev-addr,len -- ) current-device >r ( dev-addr,len r: phandle ) - find-device ( r: phandle xt ) - ['] most-tests ['] (search-preorder) catch 2drop ( r: phandle xt ) + find-device ( r: phandle ) + ['] most-tests ['] (search-preorder) catch 2drop ( r: phandle ) r> push-device ( ) ;

1 0

[commit] r2689 - cpu/x86/pc/olpc/via/build
by repository service Nov. 14, 2011

Nov. 14, 2011

Author: wmb Date: Tue Nov 15 02:14:16 2011 New Revision: 2689 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2689 Log: .gitignore Modified: .gitignore cpu/x86/pc/olpc/via/build/.gitignore Modified: .gitignore ============================================================================== --- .gitignore Tue Nov 15 02:14:11 2011 (r2688) +++ .gitignore Tue Nov 15 02:14:16 2011 (r2689) @@ -19,3 +19,4 @@ *.md5 *.public *.lo +TAGS Modified: cpu/x86/pc/olpc/via/build/.gitignore ============================================================================== --- cpu/x86/pc/olpc/via/build/.gitignore Tue Nov 15 02:14:11 2011 (r2688) +++ cpu/x86/pc/olpc/via/build/.gitignore Tue Nov 15 02:14:16 2011 (r2689) @@ -3,3 +3,5 @@ build dsdt.stamp sourceurl +testicons/ +memtest

1 0

[commit] r2688 - cpu/x86/pc/olpc ofw/core
by repository service Nov. 14, 2011

Nov. 14, 2011

Author: wmb Date: Tue Nov 15 02:14:11 2011 New Revision: 2688 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2688 Log: OLPC trac 11427 - selftests can now be interrupted by typing ESC during the inter-test delay. Modified: cpu/x86/pc/olpc/gamekeys.fth ofw/core/ofwcore.fth Modified: cpu/x86/pc/olpc/gamekeys.fth ============================================================================== --- cpu/x86/pc/olpc/gamekeys.fth Tue Nov 15 02:14:07 2011 (r2687) +++ cpu/x86/pc/olpc/gamekeys.fth Tue Nov 15 02:14:11 2011 (r2688) @@ -34,25 +34,24 @@ ; : game-key? ( mask -- flag ) game-key-mask and 0<> ; -: (hold-message) ( ms -- ) +: gamekey-pause-message ( decisecs -- decisecs' ) + button-rotate game-key@ and if ( decisecs ) + (cr ." Release the game button to continue" ( decisecs ) + begin button-rotate game-key@ and while d# 100 ms repeat + (cr kill-line ( decisecs ) + drop 0 ( decisecs' ) + then ( decisecs ) +; +' gamekey-pause-message to pause-message + +: olpc-hold-message [ifdef] test-station - test-station 1 5 between if drop exit then + test-station 1 5 between if drop false exit then [then] - d# 100 / ( decisecs ) - begin dup while ( decisecs ) - dup d# 10 /mod swap if drop else (cr .d then ( decisecs ) - d# 100 ms ( decisecs ) - 1- ( decisecs ) - button-rotate game-key@ and if ( decisecs ) - (cr ." Release the game button to continue" - begin button-rotate game-key@ and while d# 100 ms repeat - (cr kill-line - drop exit - then - repeat - drop (cr kill-line + (hold-message) + (cr kill-line ; -' (hold-message) to hold-message +' olpc-hold-message to hold-message : bypass-bios-boot? ( -- flag ) button-square game-key? ; Modified: ofw/core/ofwcore.fth ============================================================================== --- ofw/core/ofwcore.fth Tue Nov 15 02:14:07 2011 (r2687) +++ ofw/core/ofwcore.fth Tue Nov 15 02:14:11 2011 (r2688) @@ -3256,11 +3256,29 @@ ['] do-method? scan-subtree ; +: flush-keyboard ( -- ) begin key? while key drop repeat ; +defer pause-message ( decisecs -- decisecs' ) ' noop to pause-message defer hold-message -' ms to hold-message +: (hold-message) ( ms -- exit? ) + flush-keyboard + d# 100 / ( decisecs ) + begin dup while ( decisecs ) + dup d# 10 /mod swap if drop else (cr .d then ( decisecs ) + d# 100 ms 1- ( decisecs' ) + pause-message ( decisecs ) + key? if ( decisecs ) + key h# 1b = if ( decisecs ) + cr ." Selftest stopped from keyboard" cr ( decisecs ) + drop true exit ( -- true ) + then ( decisecs ) + then ( decisecs ) + repeat ( decisecs ) + drop false ( false ) +; +' (hold-message) to hold-message -: most-tests ( -- ) - method-name 2@ current-device (search-wordlist) if ( xt ) +: most-tests ( -- exit? ) + " selftest" current-device (search-wordlist) if ( xt ) drop ( ) @@ -3274,32 +3292,47 @@ current-device skip-test? if exit then ( ) ??cr ." Testing " pwd - method-name 2@ current-device ( method-adr,len phandle ) + " selftest" current-device ( method-adr,len phandle ) execute-phandle-method if ( result ) ?dup if red-letters ??cr ." Selftest failed. Return code = " .d cr black-letters - d# 10000 hold-message + d# 10000 ( delay-ms ) else green-letters ." Okay" cr black-letters - d# 2000 hold-message - then + d# 2000 ( delay-ms ) + then ( delay-ms ) else red-letters ." Selftest failed due to abort" cr black-letters - d# 10000 hold-message - then - then ( ) + d# 10000 ( delay-ms ) + then ( delay-ms ) + hold-message ( exit? ) + else + false ( exit? ) + then ( exit? ) +; + +\ "action-acf" is executed for each device node in the subtree +\ rooted at dev-addr,len , with current-device set to the +\ node in question. "action-acf" can perform arbitrary tests +\ on the node to determine if that node is appropriate for +\ the action that it wished to undertake. + +: test-subtree ( dev-addr,len -- ) + current-device >r ( dev-addr,len r: phandle ) + find-device ( r: phandle xt ) + ['] most-tests ['] (search-preorder) catch 2drop ( r: phandle xt ) + r> push-device ( ) ; : test-all ( -- ) optional-arg-or-/$ - " selftest" method-name 2! - ['] most-tests scan-subtree + test-subtree ; \ From siftdevs.fth

1 0