January 2011 - openfirmware - mail.coreboot.org

[commit] r2159 - cpu/arm/olpc/1.75 cpu/x86/pc/biosload cpu/x86/pc/olpc cpu/x86/pc/olpc/via dev/olpc/spiflash
by repository service Jan. 30, 2011

Jan. 30, 2011

Author: quozl Date: Mon Jan 31 01:36:17 2011 New Revision: 2159 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2159 Log: Change machine signature check to use a value stored in dictionary instead of SPI FLASH. #10616. Not tested on XO-1.75 A2. Tested on XO-1.5. (Build broken on XO-1 as of 2152, reset-port undefined). Modified: cpu/arm/olpc/1.75/config.fth cpu/arm/olpc/1.75/olpc.bth cpu/x86/pc/biosload/config-olpc.fth cpu/x86/pc/olpc/config.fth cpu/x86/pc/olpc/olpc.bth cpu/x86/pc/olpc/via/config.fth cpu/x86/pc/olpc/via/olpc.bth dev/olpc/spiflash/spiui.fth Modified: cpu/arm/olpc/1.75/config.fth ============================================================================== --- cpu/arm/olpc/1.75/config.fth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/arm/olpc/1.75/config.fth Mon Jan 31 01:36:17 2011 (r2159) @@ -6,3 +6,5 @@ fload ${BP}/cpu/arm/olpc/1.75/addrs.fth fload ${BP}/cpu/arm/mmp2/hwaddrs.fth + +create machine-signature ," CL2" Modified: cpu/arm/olpc/1.75/olpc.bth ============================================================================== --- cpu/arm/olpc/1.75/olpc.bth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/arm/olpc/1.75/olpc.bth Mon Jan 31 01:36:17 2011 (r2159) @@ -182,7 +182,7 @@ /rom h# 40 - ofd @ fseek h# 10 buffer: signature signature h# 10 blank -" CL2" signature swap move +machine-signature count signature swap move " ${FW_VERSION}" expand$ signature 6 + swap move " Q4${FW_MAJOR}" expand$ signature d# 13 + swap move signature h# 10 ofd @ fputs Modified: cpu/x86/pc/biosload/config-olpc.fth ============================================================================== --- cpu/x86/pc/biosload/config-olpc.fth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/x86/pc/biosload/config-olpc.fth Mon Jan 31 01:36:17 2011 (r2159) @@ -28,6 +28,8 @@ create use-null-nvram create no-floppy-node +create machine-signature ," CL1" + fload ${BP}/cpu/x86/pc/biosload/addrs.fth \ LICENSE_BEGIN Modified: cpu/x86/pc/olpc/config.fth ============================================================================== --- cpu/x86/pc/olpc/config.fth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/x86/pc/olpc/config.fth Mon Jan 31 01:36:17 2011 (r2159) @@ -37,6 +37,8 @@ create use-null-nvram \ Don't store configuration variables \ create use-flash-nvram \ Store configuration variables in firmware FLASH +create machine-signature ," CL1" + fload ${BP}/cpu/x86/pc/olpc/addrs.fth \ LICENSE_BEGIN Modified: cpu/x86/pc/olpc/olpc.bth ============================================================================== --- cpu/x86/pc/olpc/olpc.bth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/x86/pc/olpc/olpc.bth Mon Jan 31 01:36:17 2011 (r2159) @@ -88,7 +88,7 @@ /rom h# 40 - ofd @ fseek h# 10 buffer: signature signature h# 10 blank -" CL1" signature swap move +machine-signature count signature swap move " ${FW_VERSION}" expand$ signature 6 + swap move " Q2${FW_MAJOR}" expand$ signature d# 13 + swap move signature h# 10 ofd @ fputs Modified: cpu/x86/pc/olpc/via/config.fth ============================================================================== --- cpu/x86/pc/olpc/via/config.fth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/x86/pc/olpc/via/config.fth Mon Jan 31 01:36:17 2011 (r2159) @@ -49,6 +49,8 @@ create use-null-nvram \ Don't store configuration variables \ create use-flash-nvram \ Store configuration variables in firmware FLASH +create machine-signature ," CL1" + fload ${BP}/cpu/x86/pc/olpc/via/addrs.fth \ LICENSE_BEGIN Modified: cpu/x86/pc/olpc/via/olpc.bth ============================================================================== --- cpu/x86/pc/olpc/via/olpc.bth Fri Jan 28 04:00:03 2011 (r2158) +++ cpu/x86/pc/olpc/via/olpc.bth Mon Jan 31 01:36:17 2011 (r2159) @@ -204,7 +204,7 @@ /rom h# 40 - ofd @ fseek h# 10 buffer: signature signature h# 10 blank -" CL1" signature swap move +machine-signature count signature swap move " ${FW_VERSION}" expand$ signature 6 + swap move " Q3${FW_MAJOR}" expand$ signature d# 13 + swap move signature h# 10 ofd @ fputs Modified: dev/olpc/spiflash/spiui.fth ============================================================================== --- dev/olpc/spiflash/spiui.fth Fri Jan 28 04:00:03 2011 (r2158) +++ dev/olpc/spiflash/spiui.fth Mon Jan 31 01:36:17 2011 (r2159) @@ -69,7 +69,7 @@ ." Got firmware version: " flash-buf h# f.ffc0 + dup h# 10 type cr ( adr ) - h# ffff.ffc0 3 comp abort" Wrong machine signature" + machine-signature count comp abort" Wrong machine signature" ?crc @@ -277,7 +277,7 @@ : check-firmware-image ( adr len -- adr len ) dup /flash <> abort" Wrong image length" ( adr len ) 2dup + h# 40 - ( adr len signature-adr ) - h# ffff.ffc0 3 comp abort" Wrong machine signature" + machine-signature count comp abort" Wrong machine signature" ( adr len signature-adr ) ." Firmware: " h# 10 type ( adr len ) \ XXX add some more sanity checks

1 0

[commit] r2158 - dev/olpc/spiflash
by repository service Jan. 27, 2011

Jan. 27, 2011

Author: quozl Date: Fri Jan 28 04:00:03 2011 New Revision: 2158 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2158 Log: Reinstate machine signature check using prefix of model property as used by the device tree. Tested by attempting to flash Q4A12 on XO-1.5. #10616. Modified: dev/olpc/spiflash/spiui.fth Modified: dev/olpc/spiflash/spiui.fth ============================================================================== --- dev/olpc/spiflash/spiui.fth Thu Jan 27 20:05:17 2011 (r2157) +++ dev/olpc/spiflash/spiui.fth Fri Jan 28 04:00:03 2011 (r2158) @@ -68,7 +68,8 @@ /flash <> abort" Image file is the wrong length" ." Got firmware version: " - flash-buf h# f.ffc0 + h# 10 type cr + flash-buf h# f.ffc0 + dup h# 10 type cr ( adr ) + h# ffff.ffc0 3 comp abort" Wrong machine signature" ?crc @@ -276,7 +277,8 @@ : check-firmware-image ( adr len -- adr len ) dup /flash <> abort" Wrong image length" ( adr len ) 2dup + h# 40 - ( adr len signature-adr ) - dup " CL1" comp abort" No firmware signature" ( adr len signature-adr ) + h# ffff.ffc0 3 comp abort" Wrong machine signature" + ( adr len signature-adr ) ." Firmware: " h# 10 type ( adr len ) \ XXX add some more sanity checks ;

1 0

[commit] r2157 - in cpu/arm: . build
by repository service Jan. 27, 2011

Jan. 27, 2011

Author: tooch Date: Thu Jan 27 20:05:17 2011 New Revision: 2157 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2157 Log: Add pld{w} to ARM assembler. One more arm/build/Makefile tweak. Modified: cpu/arm/assem.fth cpu/arm/build/Makefile cpu/arm/disassem.fth Modified: cpu/arm/assem.fth ============================================================================== --- cpu/arm/assem.fth Thu Jan 27 02:22:27 2011 (r2156) +++ cpu/arm/assem.fth Thu Jan 27 20:05:17 2011 (r2157) @@ -681,6 +681,12 @@ : amode-lsr ( -- ) init-operands (amode-ls) {!} !op ; +: amode-pld ( -- ) + \ Like amode-ls and friends except r16 vice r12. + 0080.0000 iop + ['] get-off12 get-ea !op +; + : get-off8 ( -- ) \ Get the offset for [ldr|str][h\sh\sb] instructions. get-whatever case @@ -835,6 +841,7 @@ d# 28 set-field \ put the condition code in. ; : {cond/s} ( opcode -- ) {cond} {s} ; +: {uncond} ( opcode -- ) is newword ; : parse-inc ( l-flag -- ) \ Parse the increment tag for ldm and stm. There MUST be a two letter @@ -864,11 +871,14 @@ set-parse rem$ lower ( ) 5 ?match if execute exit then + 4 ?match if execute exit then 3 ?match if execute exit then \ Don't try a 2-character match if the string length is 3, because, \ for example, "blt" (i.e. b{lt}) would then match "bl" instead of "b". - rem-len 3 <> if 2 ?match if execute then then + rem-len 3 <> if + 2 ?match if execute exit then + then 1 ?match if execute exit then @@ -1043,6 +1053,9 @@ : dmb ( -- ) h# f57ff050 asm, ; : isb ( -- ) h# f57ff060 asm, ; +: pld ( -- ) h# f550.f000 {uncond} amode-pld ; +: pldw ( -- ) h# f510.f000 {uncond} amode-pld ; + : # ( -- adt-immed ) adt-immed ; : reg ( -- adt-reg ) adt-reg ; Modified: cpu/arm/build/Makefile ============================================================================== --- cpu/arm/build/Makefile Thu Jan 27 02:22:27 2011 (r2156) +++ cpu/arm/build/Makefile Thu Jan 27 20:05:17 2011 (r2157) @@ -1,8 +1,8 @@ -BASEDIR= `(cd ../../../; pwd;)` +BASEDIR= $(shell cd ../../../; pwd) OS := $(shell uname) HOSTCPU= $(shell ${BASEDIR}/forth/lib/hostcpu.sh) -HOSTDIR= ../../${HOSTCPU}/${OS} +HOSTDIR= ${BASEDIR}/cpu/${HOSTCPU}/${OS} BUILDSH= ${BASEDIR}/forth/lib/build.sh all: basefw.dic @@ -20,9 +20,6 @@ build: ${HOSTDIR}/forth ${HOSTDIR}/armforth @ln -sf ${BUILDSH} build -# build: ../${OS}/forth -# @ln -sf ../${OS}/forth $@ - %.dic: FORCE build ./build $@ @@ -35,4 +32,5 @@ # Don't use *.dic so as not to remove builder.dic clean: - rm -f tools.dic kernel.dic basefw.dic *.log headers *~ inflate.bin build + rm -f tools.dic kernel.dic basefw.dic *.log headers *~ inflate.bin build *.tag + Modified: cpu/arm/disassem.fth ============================================================================== --- cpu/arm/disassem.fth Thu Jan 27 02:22:27 2011 (r2156) +++ cpu/arm/disassem.fth Thu Jan 27 20:05:17 2011 (r2157) @@ -441,6 +441,11 @@ ['] .ldc/stc compile, \ 6 ['] .coproc compile, \ 7 +: .pld ( -- ) + d#22 bit? if ." pld" else ." pldw" then + op-col .[ .rn ,.addr-mode .] +; + : uncond-op ( -- op ) d# 4 bit? ; : uncond-op1 ( -- op1 ) d# 20 8bits ; : uncond-op2 ( -- op2 ) d# 4 4bits ; @@ -452,6 +457,10 @@ 5 of ." dmb" endof 6 of ." isb" endof endcase endof + h# 51 of .pld endof + h# 55 of .pld endof + h# 59 of .pld endof + h# 5d of .pld endof ." ?" endcase ;

1 0

[commit] r2156 - cpu/arm/olpc/1.75
by repository service Jan. 26, 2011

Jan. 26, 2011

Author: wmb Date: Thu Jan 27 02:22:27 2011 New Revision: 2156 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2156 Log: Q4A13 Modified: cpu/arm/olpc/1.75/fw-version.fth Modified: cpu/arm/olpc/1.75/fw-version.fth ============================================================================== --- cpu/arm/olpc/1.75/fw-version.fth Thu Jan 27 02:16:42 2011 (r2155) +++ cpu/arm/olpc/1.75/fw-version.fth Thu Jan 27 02:22:27 2011 (r2156) @@ -1,3 +1,4 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 12 +macro: FW_MINOR 13 +

1 0

[commit] r2155 - dev/usb2/hcd
by repository service Jan. 26, 2011

Jan. 26, 2011

Author: wmb Date: Thu Jan 27 02:16:42 2011 New Revision: 2155 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2155 Log: USB - handle overcurrent conditions more gracefully. Modified: dev/usb2/hcd/probehub.fth Modified: dev/usb2/hcd/probehub.fth ============================================================================== --- dev/usb2/hcd/probehub.fth Thu Jan 27 02:15:15 2011 (r2154) +++ dev/usb2/hcd/probehub.fth Thu Jan 27 02:16:42 2011 (r2155) @@ -13,6 +13,21 @@ : reset-hub-port ( port -- ) PORT_RESET DR_PORT " set-feature" $call-parent drop d# 20 ms ; : clear-status-change ( port -- ) C_PORT_CONNECTION DR_PORT " clear-feature" $call-parent drop ; : parent-set-target ( dev -- ) " set-target" $call-parent ; +: hub-error? ( -- error? ) + hub-buf 4 0 DR_HUB " get-status" $call-parent ( actual usberror ) + nip if ( ) + ." Failed to get hub status" cr + true ( true ) + else ( ) + hub-buf 2+ c@ 2 and if ( ) + ." USB Hub shut down due to over-current" cr ( ) + true ( true ) + else ( ) + false ( false ) + then ( error? ) + then ( error? ) +; + : get-port-status ( port -- error? ) hub-buf 4 2 pick DR_PORT " get-status" $call-parent ( port actual usberror ) nip if ( port ) @@ -28,6 +43,11 @@ drop false exit ( -- false ) then ( port ) + hub-buf c@ 8 and if ( port ) + ." Hub port " . ." is over current" cr + false exit ( -- false ) + then + hub-buf 2+ c@ 1 and if ( port ) \ Status changed clear-status-change ( ) @@ -58,17 +78,17 @@ " setup-new-node" $call-parent if execute then ( ) ; -: hub-#ports ( -- n ) +: hub-#ports ( -- #ports ) hub-buf 8 0 0 HUB DR_HUB " get-desc" $call-parent nip if ." Failed to get hub descriptor" cr 0 exit then - hub-buf 2 + c@ 1+ ( #ports ) + hub-buf 2 + c@ ( #ports ) ; : hub-delay ( -- #2ms ) hub-buf 5 + c@ ; : power-hub-ports ( #ports -- ) - 1 ?do i power-hub-port loop ( ) + 1+ 1 ?do i power-hub-port loop ( ) hub-delay 2* ms ( ) @@ -88,25 +108,36 @@ external : probe-hub ( dev -- ) dup parent-set-target ( hub-dev ) - hub-#ports ( hub-dev #ports ) + hub-#ports dup 0= if ( hub-dev #ports ) + 2drop exit ( -- ) + then ( hub-dev #ports ) - " configuration#" get-int-property + " configuration#" get-int-property ( hub-dev #ports config# ) " set-config" $call-parent ( hub-dev #ports usberr ) if drop ." Failed to set config for hub at " u. cr exit then ( hub-dev #ports ) - dup power-hub-ports ( hub-dev #ports ) + dup power-hub-ports ( hub-dev #ports ) - 1 ?do ( hub-dev ) - dup i safe-probe-hub-port ( hub-dev ) - loop ( hub-dev ) - drop ( ) + hub-error? if 2drop exit then ( hub-dev #ports ) + + 1+ 1 ?do ( hub-dev ) + dup i safe-probe-hub-port ( hub-dev ) + loop ( hub-dev ) + drop ( ) ; : probe-hub-xt ( -- adr ) ['] probe-hub ; : do-reprobe-hub ( dev -- ) dup parent-set-target ( hub-dev ) - hub-#ports 1 ?do ( hub-dev ) + + hub-#ports dup 0= if ( hub-dev #ports ) + 2drop exit ( -- ) + then ( hub-dev #ports ) + + hub-error? if 2drop exit then ( hub-dev #ports ) + + 1+ 1 ?do ( hub-dev ) dup i port-status-changed? if ( hub-dev connected? ) if ( hub-dev ) dup i safe-probe-hub-port ( hub-dev )

1 0

[commit] r2154 - in dev/usb2/hcd: ehci ohci uhci
by repository service Jan. 26, 2011

Jan. 26, 2011

Author: wmb Date: Thu Jan 27 02:15:15 2011 New Revision: 2154 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2154 Log: USB - reprobe on open even if the stack is already open. This makes probing work when a USB keyboard is attached and in use, thus keeping the stack open. Modified: dev/usb2/hcd/ehci/probe.fth dev/usb2/hcd/ohci/probe.fth dev/usb2/hcd/uhci/probe.fth Modified: dev/usb2/hcd/ehci/probe.fth ============================================================================== --- dev/usb2/hcd/ehci/probe.fth Thu Jan 27 01:13:35 2011 (r2153) +++ dev/usb2/hcd/ehci/probe.fth Thu Jan 27 02:15:15 2011 (r2154) @@ -138,8 +138,8 @@ do-resume then suspended? if do-resume then - probe-root-hub then + probe-root-hub open-count 1+ to open-count true ; Modified: dev/usb2/hcd/ohci/probe.fth ============================================================================== --- dev/usb2/hcd/ohci/probe.fth Thu Jan 27 01:13:35 2011 (r2153) +++ dev/usb2/hcd/ohci/probe.fth Thu Jan 27 02:15:15 2011 (r2154) @@ -121,9 +121,8 @@ init-ohci-regs then alloc-dma-buf - - probe-root-hub then + probe-root-hub open-count 1+ to open-count true ; Modified: dev/usb2/hcd/uhci/probe.fth ============================================================================== --- dev/usb2/hcd/uhci/probe.fth Thu Jan 27 01:13:35 2011 (r2153) +++ dev/usb2/hcd/uhci/probe.fth Thu Jan 27 02:15:15 2011 (r2154) @@ -67,9 +67,8 @@ suspended? if do-resume then alloc-dma-buf - - probe-root-hub then + probe-root-hub open-count 1+ to open-count true ;

1 0

[commit] r2153 - dev/olpc/spiflash
by repository service Jan. 26, 2011

Jan. 26, 2011

Author: quozl Date: Thu Jan 27 01:13:35 2011 New Revision: 2153 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2153 Log: Remove machine signature check as it serves no purpose ... flashing wrong file is prevented by the changed crc-offset in addrs.fth. Move unused check-firmware-image into [if]. Modified: dev/olpc/spiflash/spiui.fth Modified: dev/olpc/spiflash/spiui.fth ============================================================================== --- dev/olpc/spiflash/spiui.fth Thu Jan 27 00:40:25 2011 (r2152) +++ dev/olpc/spiflash/spiui.fth Thu Jan 27 01:13:35 2011 (r2153) @@ -42,14 +42,6 @@ \ Perform a series of sanity checks on the new firmware image. -: check-firmware-image ( adr len -- adr len ) - dup /flash <> abort" Wrong image length" ( adr len ) - 2dup + h# 40 - ( adr len signature-adr ) - dup " CL1" comp abort" No firmware signature" ( adr len signature-adr ) - ." Firmware: " h# 10 type ( adr len ) - \ XXX add some more sanity checks -; - [ifdef] load-base : flash-buf load-base ; [else] @@ -76,8 +68,7 @@ /flash <> abort" Image file is the wrong length" ." Got firmware version: " - flash-buf h# f.ffc0 + dup h# 10 type cr ( adr ) - " CL1" comp abort" Wrong machine type" + flash-buf h# f.ffc0 + h# 10 type cr ?crc @@ -282,6 +273,14 @@ h# 100000 /flash-block do (cr i .x i flash-erase-block /flash-block +loop cr ; +: check-firmware-image ( adr len -- adr len ) + dup /flash <> abort" Wrong image length" ( adr len ) + 2dup + h# 40 - ( adr len signature-adr ) + dup " CL1" comp abort" No firmware signature" ( adr len signature-adr ) + ." Firmware: " h# 10 type ( adr len ) + \ XXX add some more sanity checks +; + : reprogram-firmware ( adr len -- ) check-firmware-image ( adr len ) /flash-block /string ( adr+ len- ) \ Remove EC ucode from the beginning

1 0

[commit] r2152 - in dev/usb2: . device/hub hcd hcd/ehci hcd/ohci hcd/uhci
by repository service Jan. 26, 2011

Jan. 26, 2011

Author: wmb Date: Thu Jan 27 00:40:25 2011 New Revision: 2152 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2152 Log: USB - extensive surgery on USB probing code so hot-plug works behind hubs. Modified: dev/usb2/device/hub/hub.fth dev/usb2/hcd/dev-info.fth dev/usb2/hcd/device.fth dev/usb2/hcd/ehci/control.fth dev/usb2/hcd/ehci/loadpkg.fth dev/usb2/hcd/ehci/probe.fth dev/usb2/hcd/ehci/probehub.fth dev/usb2/hcd/hcd-call.fth dev/usb2/hcd/ohci/probe.fth dev/usb2/hcd/probehub.fth dev/usb2/hcd/uhci/loadpkg.fth dev/usb2/hcd/uhci/probe.fth dev/usb2/hcd/uhci/uhci.fth dev/usb2/pkt-data.fth dev/usb2/pkt-func.fth Modified: dev/usb2/device/hub/hub.fth ============================================================================== --- dev/usb2/device/hub/hub.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/device/hub/hub.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -33,14 +33,26 @@ then decode-int nip nip ; +: ?make-hub20-dev ( hub-dev -- hub-dev ) + is-hub20? if ( hub-dev ) + " hub20-dev" get-my-property if ( hub-dev ) + dup encode-int " hub20-dev" property ( hub-dev ) + else \ Property already exists ( hub-dev adr len ) + 2drop ( hub-dev ) + then ( hub-dev ) + then ( hub-dev ) +; : probe-hub ( -- ) ['] hub-id catch 0= if - is-hub20? if - dup encode-int " hub20-dev" property - then + ?make-hub20-dev probe-hub-xt execute then ; +: reprobe-hub ( -- ) + ['] hub-id catch 0= if + reprobe-hub-xt execute + then +; probe-hub Modified: dev/usb2/hcd/dev-info.fth ============================================================================== --- dev/usb2/hcd/dev-info.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/dev-info.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -62,10 +62,11 @@ : di-in-data-toggle ( pipe idx -- ) 2dup di-in-data@ 1 xor -rot di-in-data! ; : di-out-data-toggle ( pipe idx -- ) 2dup di-out-data@ 1 xor -rot di-out-data! ; -: ok-to-add-device? ( -- flag ) cur-dev 1+ #max-dev < ; -: new-address ( -- dev ) +: next-device# ( -- true | dev false ) + cur-dev 1+ #max-dev >= if true exit then cur-dev 1+ dup to cur-dev /pipe0 0 cur-dev di-maxpayload! + false ; : init-di ( -- ) Modified: dev/usb2/hcd/device.fth ============================================================================== --- dev/usb2/hcd/device.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/device.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -10,7 +10,6 @@ \ Buffers for descriptor manipulation 0 value cfg-desc-buf \ Configuration Descriptor 0 value dev-desc-buf \ Device Descriptor -0 value gen-desc-buf \ Any Descriptor 0 value d$-desc-buf \ Device String Descriptor 0 value v$-desc-buf \ Vendor String Descriptor 0 value s$-desc-buf \ Serial Number String Descriptor @@ -25,7 +24,6 @@ cfg-desc-buf 0= if /cfg alloc-mem dup to cfg-desc-buf /cfg erase /cfg alloc-mem dup to dev-desc-buf /cfg erase - /cfg alloc-mem dup to gen-desc-buf /cfg erase /str alloc-mem dup to d$-desc-buf /str erase /str alloc-mem dup to v$-desc-buf /str erase /str alloc-mem dup to s$-desc-buf /str erase @@ -34,14 +32,27 @@ : free-pkt-buf ( -- ) cfg-desc-buf ?dup if /cfg free-mem 0 to cfg-desc-buf then dev-desc-buf ?dup if /cfg free-mem 0 to dev-desc-buf then - gen-desc-buf ?dup if /cfg free-mem 0 to gen-desc-buf then d$-desc-buf ?dup if /str free-mem 0 to d$-desc-buf then v$-desc-buf ?dup if /str free-mem 0 to v$-desc-buf then s$-desc-buf ?dup if /str free-mem 0 to s$-desc-buf then ; +: dev-desc@ ( index -- byte ) dev-desc-buf + c@ ; +: get-class ( -- class subclass protocol ) + 4 dev-desc@ ?dup if ( class ) + \ Class is in device descriptor + true to class-in-dev? ( class ) + 5 dev-desc@ 6 dev-desc@ ( class subclass protocol ) + else ( ) + \ Class is in interface descriptor + false to class-in-dev? ( ) + cfg-desc-buf my-address find-intf-desc ( intf-adr ) + >r r@ 5 + c@ r@ 6 + c@ r> 7 + c@ ( class subclass protocol ) + then +; + : make-class-properties ( -- ) - dev-desc-buf cfg-desc-buf my-address get-class ( class subclass protocol ) + get-class ( class subclass protocol ) " protocol" int-property " subclass" int-property " class" int-property @@ -83,8 +94,12 @@ device-name ; +: get-vid ( adr -- vendor product rev ) + dev-desc-buf 8 + le-w@ dev-desc-buf d# 10 + le-w@ dev-desc-buf c + le-w@ +; + : make-vendor-properties ( -- ) - dev-desc-buf get-vid ( vendor product rev ) + get-vid ( vendor product rev ) " release" int-property " device-id" int-property " vendor-id" int-property @@ -256,6 +271,18 @@ >r lbsplit r@ c! r@ 1+ c! r@ 2+ c! r> 3 + c! ; +: probe-hub-node ( phandle -- ) + >r ( r: phandle ) + " probe-hub" r@ find-method if ( xt r: phandle ) + r@ push-package ( xt r: phandle ) + " " new-instance ( xt r: phandle ) + set-default-unit ( xt r: phandle ) + execute ( r: phandle ) + destroy-instance ( r: phandle ) + pop-package ( r: phandle ) + then ( r: phandle ) + r> drop +; : reuse-node ( dev intf port phandle -- ) >r drop ( dev intf r: phandle ) @@ -269,18 +296,8 @@ drop be-l! ( r: phandle ) then ( r: phandle ) - " probe-hub" r@ find-method if ( xt r: phandle ) - r@ push-package ( xt r: phandle ) - " " new-instance ( xt r: phandle ) - set-default-unit ( xt r: phandle ) - execute ( r: phandle ) - destroy-instance ( r: phandle ) - pop-package ( r: phandle ) - then ( r: phandle ) - - r> drop + r> probe-hub-node ; - : id-match? ( dev intf port phandle -- dev intf port phandle flag? ) " vendor-id" 2 pick get-package-property if false exit then decode-int nip nip >r ( dev intf port phandle r: vid ) @@ -288,7 +305,7 @@ decode-int nip nip >r ( dev intf port phandle r: vid did ) " release" 2 pick get-package-property if r> r> 2drop false exit then decode-int nip nip >r ( dev intf port phandle r: vid did rev ) - dev-desc-buf get-vid ( dev intf port phandle vid1 did1 rev1 r: vid did rev ) + get-vid ( dev intf port phandle vid1 did1 rev1 r: vid did rev ) r> = -rot r> = -rot r> = and and ; @@ -335,42 +352,126 @@ ; \ Get all the descriptors we need in making properties now because target is -\ questionable in the child's context. +\ questionable in the child's context. The descriptor buffers are not instance +\ data, so they can be accessed by code that is defined in the root hub node +\ but executing in a subordinate hub node context or a child node context. h# 409 constant language \ Unicode id +\ Executed in root hub node context : get-string ( lang idx adr -- actual ) over 0= if 3drop 0 exit then \ No string index -rot get-str-desc ; + +\ Executed in root hub node context : get-str-descriptors ( -- ) language ( lang ) dup dev-desc-buf d# 14 + c@ v$-desc-buf get-string to /v$-desc-buf dup dev-desc-buf d# 15 + c@ d$-desc-buf get-string to /d$-desc-buf dev-desc-buf d# 16 + c@ s$-desc-buf get-string to /s$-desc-buf ; -: refresh-desc-bufs ( -- ) + +\ Executed in root hub node context +: refresh-desc-bufs ( dev -- ) + set-target dev-desc-buf 12 get-dev-desc to /dev-desc-buf \ Refresh dev-desc-buf cfg-desc-buf 0 get-cfg-desc to /cfg-desc-buf \ Refresh cfg-desc-buf get-str-descriptors ; -: set-maxpayload ( dev -- ) - dev-desc-buf /pipe0 get-dev-desc if - dev-desc-buf 7 + c@ 0 rot di-maxpayload! - else - drop - then +\ Executed in root hub node context +: get-initial-descriptors ( dev -- ) + dev-desc-buf /pipe0 get-dev-desc if ( dev ) + dev-desc-buf 7 + c@ 0 rot di-maxpayload! ( ) + else ( dev ) + drop ( ) + then ( ) + cfg-desc-buf 0 get-cfg-desc to /cfg-desc-buf ( ) ; +\ Executed in hub node context (root hub or subordinate hub) - creates new child nodes via (make-device-node) : make-device-node ( port dev -- ) - dup set-maxpayload ( port dev ) - cfg-desc-buf 0 get-cfg-desc dup to /cfg-desc-buf - 0= if 2drop exit then - cfg-desc-buf 4 + c@ 0 ?do ( port dev ) - dup set-target ( port dev ) \ Refresh target - refresh-desc-bufs ( port dev ) - 2dup swap i (make-device-node) ( port dev ) - loop 2drop ( ) + dup " get-initial-descriptors" my-self $call-method ( port dev ) + /cfg-desc-buf 0= if 2drop exit then ( port dev ) + cfg-desc-buf 4 + c@ 0 ?do ( port dev ) + dup " refresh-desc-bufs" my-self $call-method ( port dev ) + 2dup swap i (make-device-node) ( port dev ) + loop 2drop ( ) +; + +\ See hcd/ehci/probehub.fth for information about hub20-dev and hub20-port + +: get-hub20-dev ( -- hub-dev ) + " hub20-dev" get-inherited-property 0= if ( value$ ) + decode-int nip nip ( hub-dev ) + else ( ) + 1 ( hub-dev ) + then ( hub-dev ) +; + +: get-hub20-port ( port -- port' ) + " hub20-port" get-inherited-property 0= if ( port value$ ) + rot drop ( value$ ) + decode-int nip nip ( port' ) + then ( port ) +; + +\ Executed in the root hub node context +: setup-new-node ( port speed hub-port hub-dev -- true | port dev xt false ) + \ Allocate device number + next-device# if 2drop exit then ( port speed hub-port hub-dev dev ) + + tuck di-hub! ( port speed hub-port dev ) + tuck di-port! ( port speed dev ) + tuck di-speed! ( port dev ) + + 0 set-target ( port dev ) \ Address it as device 0 + dup set-address if ( port dev ) \ Assign it usb addr dev + ." Retrying with a delay" cr + over reset-port d# 5000 ms + dup set-address if ( port dev ) \ Assign it usb addr dev + \ Recycle device number? + 2drop false exit ( -- false ) + then ( port dev ) + then ( port dev ) + + dup set-target ( port dev ) \ Address it as device dev + ['] make-device-node true ( port dev xt ) +; + +\ Begins execution in a (root or subordinate) hub node context, creates an instance record +\ for the subordinate hub node "phandle", switches to that instance context, executes +\ "reprobe-hub" in that context, destroys the instance, and returns to the original context. +: reprobe-hub-node ( phandle -- ) + >r ( r: phandle ) + " reprobe-hub" r@ find-method if ( xt r: phandle ) + r@ push-package ( xt r: phandle ) + " " new-instance ( xt r: phandle ) + set-default-unit ( xt r: phandle ) + execute ( r: phandle ) + destroy-instance ( r: phandle ) + pop-package ( r: phandle ) + then ( r: phandle ) + r> drop +; + +\ Returns true if there is a child hub node associated with port +: port-is-hub? ( port -- false | phandle true ) + my-self ihandle>phandle child ( port phandle ) + begin ?dup while ( port phandle ) + " name" 2 pick get-package-property 0= if ( port phandle adr len ) + 1- " hub" $= if ( port phandle ) + " reg" 2 pick get-package-property 0= if ( port phandle adr len ) + decode-int nip nip ( port phandle port1 ) + 2 pick = if ( port phandle ) + nip true exit ( -- phandle true ) + then ( port phandle ) + then ( port phandle ) + then ( port phandle ) + then ( port phandle ) + peer ( port phandle' ) + repeat ( port ) + drop false ( false ) ; headers Modified: dev/usb2/hcd/ehci/control.fth ============================================================================== --- dev/usb2/hcd/ehci/control.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/ehci/control.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -65,7 +65,7 @@ swap case ( qh endp-char pipetype ) pt-ctrl of QH_MULT1 d# 64 endof ( qh endp-char endp-cap /max ) pt-bulk of QH_MULT1 d# 512 endof ( qh endp-char endp-cap /max ) - ( default ) r> QH_MULT1 my-maxpayload r> + ( default ) >r QH_MULT1 my-maxpayload r> ( qh endp-char endp-cap /max ) endcase d# 16 << rot or swap ( qh endp-char endp-cap ) Modified: dev/usb2/hcd/ehci/loadpkg.fth ============================================================================== --- dev/usb2/hcd/ehci/loadpkg.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/ehci/loadpkg.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -21,8 +21,6 @@ fload ${BP}/dev/usb2/device/vendor.fth \ Supported vendor/product tables fload ${BP}/dev/usb2/hcd/fcode.fth \ Load fcode driver for child fload ${BP}/dev/usb2/hcd/device.fth \ Make child node & its properties -fload ${BP}/dev/usb2/hcd/ehci/probe.fth \ Probe root hub fload ${BP}/dev/usb2/hcd/ehci/probehub.fth \ USB 2.0 hub specific stuff -fload ${BP}/dev/usb2/hcd/probehub.fth \ Probe usb hub - - +fload ${BP}/dev/usb2/hcd/ehci/probe.fth \ Probe root hub +fload ${BP}/dev/usb2/hcd/probehub.fth \ Generic hub probing Modified: dev/usb2/hcd/ehci/probe.fth ============================================================================== --- dev/usb2/hcd/ehci/probe.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/ehci/probe.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -5,29 +5,18 @@ headers : make-root-hub-node ( port -- ) - ok-to-add-device? 0= if drop exit then \ Can't add another device - - 0 set-target ( port ) \ Address it as device 0 - + \ Some devices (e.g. Lexar USB-to-SD) fail unless you get the cfg desc from device 0 first + 0 set-target \ First address it as device 0 ( port ) speed-high 0 di-speed! \ Use high speed for getting the device descriptor - \ Some devices (e.g. Lexar USB-to-SD) don't work unless you do this first - dev-desc-buf h# 40 get-cfg-desc drop + dev-desc-buf h# 40 get-cfg-desc drop ( port ) - new-address ( port dev ) - speed-high over di-speed! ( port dev ) + speed-high ( port speed ) - 0 set-target ( port dev ) \ Address it as device 0 + \ hub-port and hub-dev route USB 1.1 transactions through USB 2.0 hubs + over get-hub20-port get-hub20-dev ( port speed hub-port hub-dev ) - dup set-address if ( port dev ) \ Assign it usb addr dev - ." Retrying with a delay" cr - over reset-port d# 5000 ms - dup set-address if ( port dev ) \ Assign it usb addr dev - 2drop exit - then - then ( port dev ) - - dup set-target ( port dev ) \ Address it as device dev - make-device-node ( ) + \ Execute setup-new-node in root context and make-device-node in hub node context + setup-new-node if execute then ( ) ; 0 instance value probe-error? \ Back channel to selftest @@ -43,7 +32,7 @@ dup disown-port \ Disown the port else \ A high speed device detected dup ['] make-root-hub-node catch if \ Process high speed device - drop ." Failed to probe root port " dup .d cr + drop ." Failed to make root hub node for port " dup .d cr true to probe-error? then then @@ -105,6 +94,10 @@ i portsc@ 2 and if \ Connection changed \ i rm-obsolete-children \ Remove obsolete device nodes i probe-root-hub-port \ Probe it + else + i port-is-hub? if ( phandle ) \ Already-connected hub? + reprobe-hub-node \ Check for changes on its ports + then then loop Modified: dev/usb2/hcd/ehci/probehub.fth ============================================================================== --- dev/usb2/hcd/ehci/probehub.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/ehci/probehub.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -31,39 +31,19 @@ \ value and the /usb/hub/mouse hub20-port value are used in the qTD. : ?set-hub20-port ( speed dev port -- ) - " hub20-dev" my-parent ihandle>phandle get-package-property 0= if - 2drop nip swap speed-high <> if - " hub20-port" int-property - else - drop - then - else - 3drop - then + " hub20-dev" my-parent ihandle>phandle get-package-property 0= if ( speed dev port value$ ) + 2drop ( speed dev port ) + nip swap speed-high <> if ( port ) + encode-int " hub20-port" property ( ) + else ( speed ) + drop ( ) + then ( ) + else ( speed dev port ) + 3drop ( ) + then ( ) ; ' ?set-hub20-port to make-dev-property-hook -: get-hub20-dev ( -- hub-dev ) - " hub20-dev" get-inherited-property 0= if - decode-int nip nip - else - 1 - then -; - -: get-hub20-port ( port -- port' ) - " hub20-port" get-inherited-property 0= if - rot drop ( $ ) - decode-int nip nip - then -; - -\ Initialize USB 2.0 specific characteristics in di -: set-usb20-char ( port dev -- ) - get-hub20-dev over di-hub! - swap get-hub20-port swap di-port! -; - headers \ LICENSE_BEGIN Modified: dev/usb2/hcd/hcd-call.fth ============================================================================== --- dev/usb2/hcd/hcd-call.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/hcd-call.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -10,9 +10,28 @@ : dma-alloc ( size -- virt ) " dma-alloc" $call-parent ; : dma-free ( virt size -- ) " dma-free" $call-parent ; -: set-target ( device -- ) " set-target" $call-parent ; -: probe-hub-xt ( -- adr ) " probe-hub-xt" $call-parent ; -: set-pipe-maxpayload ( size len -- ) " set-pipe-maxpayload" $call-parent ; +\ Probing support +: set-target ( device -- ) + " set-target" $call-parent + ; +: probe-hub-xt ( -- adr ) + " probe-hub-xt" $call-parent +; +: reprobe-hub-xt ( -- adr ) + " reprobe-hub-xt" $call-parent +; +: set-pipe-maxpayload ( size len -- ) + " set-pipe-maxpayload" $call-parent +; +: setup-new-node ( port speed hub-port hub-dev -- false | port dev xt true ) + " setup-new-node" $call-parent +; +: get-initial-descriptors ( dev -- ) + " get-initial-descriptors" $call-parent +; +: refresh-desc-bufs ( dev -- ) + " refresh-desc-bufs" $call-parent +; \ Control pipe operations : control-get ( adr len idx value rtype req -- actual usberr ) Modified: dev/usb2/hcd/ohci/probe.fth ============================================================================== --- dev/usb2/hcd/ohci/probe.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/ohci/probe.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -4,7 +4,7 @@ hex headers -: enable-root-hub-port ( port -- ) +: reset-port ( port -- ) >r h# 1.0002 r@ hc-rh-psta! \ enable port 10 r@ hc-rh-psta! \ reset port @@ -18,17 +18,17 @@ ; : probe-root-hub-port ( port -- ) - dup hc-rh-psta@ 1 and 0= if drop exit then \ No device connected - ok-to-add-device? 0= if drop exit then \ Can't add another device + dup hc-rh-psta@ 1 and 0= if drop exit then ( port ) \ No device connected - dup enable-root-hub-port ( port ) - new-address ( port dev ) - over hc-rh-psta@ 200 and if speed-low else speed-full then over di-speed! - - 0 set-target ( port dev ) \ Address it as device 0 - dup set-address if 2drop exit then ( port dev ) \ Assign it usb addr dev - dup set-target ( port dev ) \ Address it as device dev - make-device-node ( ) + \ Reset the port to determine the speed + dup reset-port ( port ) + dup hc-rh-psta@ 200 and if speed-low else speed-full then ( port speed ) + + \ hub-port and hub-speed are irrelevant for OHCI (USB 1.1) + 0 0 ( port speed hub-port hub-dev ) + + \ Execute setup-new-node in root context and make-device-node in hub node context + setup-new-node if execute then ( port dev xt ) ; false value ports-powered? @@ -99,6 +99,10 @@ drop ." Failed to probe root port " i u. cr then 3.0000 i hc-rh-psta! \ Clear change bits + else + i port-is-hub? if ( phandle ) \ Already-connected hub? + reprobe-hub-node \ Check for changes on its ports + then then loop free-pkt-buf Modified: dev/usb2/hcd/probehub.fth ============================================================================== --- dev/usb2/hcd/probehub.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/probehub.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -7,63 +7,122 @@ : set-usb20-char ( port dev -- ) 2drop ; [then] -: power-hub-port ( port -- ) PORT_POWER DR_PORT set-feature drop ; -: reset-hub-port ( dev port -- ) PORT_RESET DR_PORT set-feature drop d# 20 ms ; +8 buffer: hub-buf \ For hub probing + +: power-hub-port ( port -- ) PORT_POWER DR_PORT " set-feature" $call-parent drop ; +: reset-hub-port ( port -- ) PORT_RESET DR_PORT " set-feature" $call-parent drop d# 20 ms ; +: clear-status-change ( port -- ) C_PORT_CONNECTION DR_PORT " clear-feature" $call-parent drop ; +: parent-set-target ( dev -- ) " set-target" $call-parent ; +: get-port-status ( port -- error? ) + hub-buf 4 2 pick DR_PORT " get-status" $call-parent ( port actual usberror ) + nip if ( port ) + ." Failed to get port status for port " u. cr + true ( true ) + else ( port ) + drop false ( false ) + then ( ) +; +: port-status-changed? ( hub-dev port -- false | connected? true ) + swap parent-set-target ( port ) + dup get-port-status if ( port ) + drop false exit ( -- false ) + then ( port ) + + hub-buf 2+ c@ 1 and if ( port ) + \ Status changed + clear-status-change ( ) + hub-buf c@ 1 and 0<> ( connected? ) + true ( connected? true ) + else ( port ) + drop false ( false ) + then +; : probe-hub-port ( hub-dev port -- ) - swap set-target ( port ) - dup reset-hub-port ( port ) + \ Reset the port to determine the speed + swap parent-set-target ( port ) + dup reset-hub-port ( port ) + + \ get-port-status fills hub-buf with connection status, speed, and other information + dup get-port-status ( port error? ) + over clear-status-change ( port error? ) + if drop exit then ( port ) - gen-desc-buf 4 2 pick DR_PORT get-status nip if - ." Failed to get port status for port " u. cr - exit - then ( port ) + hub-buf c@ 1 and 0= if drop exit then \ No device connected + hub-buf le-w@ h# 600 and 9 >> ( port speed ) - gen-desc-buf c@ 1 and 0= if drop exit then \ No device connected - ok-to-add-device? 0= if drop exit then \ Can't add another device + \ hub-port and hub-dev route USB 1.1 transactions through USB 2.0 hubs + over get-hub20-port get-hub20-dev ( port speed hub-port hub-dev ) - new-address ( port dev ) - gen-desc-buf le-w@ h# 600 and 9 >> over di-speed! - ( port dev ) - 2dup set-usb20-char ( port dev ) - - 0 set-target ( port dev ) \ Address it as device 0 - dup set-address if 2drop exit then ( port dev ) \ Assign it usb addr dev - dup set-target ( port dev ) \ Address it as device dev - make-device-node ( ) + \ Execute setup-new-node in root context and make-device-node in hub node context + " setup-new-node" $call-parent if execute then ( ) ; -external -: probe-hub ( dev -- ) - dup set-target ( hub-dev ) - gen-desc-buf 8 0 0 HUB DR_HUB get-desc nip if +: hub-#ports ( -- n ) + hub-buf 8 0 0 HUB DR_HUB " get-desc" $call-parent nip if ." Failed to get hub descriptor" cr - exit + 0 exit then + hub-buf 2 + c@ 1+ ( #ports ) +; +: hub-delay ( -- #2ms ) hub-buf 5 + c@ ; - gen-desc-buf dup 5 + c@ swap ( hub-dev #2ms adr ) - 2 + c@ 1+ ( hub-dev #2ms #ports ) - - " configuration#" get-int-property set-config ( hub-dev #2ms #ports usberr ) - if 2drop ." Failed to set config for hub at " u. cr exit then - - tuck 1 ?do i power-hub-port loop 2* ms - ( hub-dev #ports ) - " usb-delay" ['] evaluate catch if ( hub-dev #ports x x ) - 2drop d# 100 ( hub-dev #ports ms ) - then ( hub-dev #ports ms ) +: power-hub-ports ( #ports -- ) + 1 ?do i power-hub-port loop ( ) + + hub-delay 2* ms ( ) + + " usb-delay" ['] evaluate catch if ( ) + 2drop d# 100 ( ms ) + then ( ms ) ms +; - ( hub-dev #ports ) 1 ?do - dup i ['] probe-hub-port catch if - 2drop - ." Failed to probe hub port " i u. cr - then - loop drop +: safe-probe-hub-port ( hub-dev port -- ) + tuck ['] probe-hub-port catch if ( port x x ) + 2drop ." Failed to probe hub port " . cr ( ) + else ( port ) + drop ( ) + then ( ) +; +external +: probe-hub ( dev -- ) + dup parent-set-target ( hub-dev ) + hub-#ports ( hub-dev #ports ) + + " configuration#" get-int-property + " set-config" $call-parent ( hub-dev #ports usberr ) + if drop ." Failed to set config for hub at " u. cr exit then ( hub-dev #ports ) + + dup power-hub-ports ( hub-dev #ports ) + + 1 ?do ( hub-dev ) + dup i safe-probe-hub-port ( hub-dev ) + loop ( hub-dev ) + drop ( ) ; : probe-hub-xt ( -- adr ) ['] probe-hub ; +: do-reprobe-hub ( dev -- ) + dup parent-set-target ( hub-dev ) + hub-#ports 1 ?do ( hub-dev ) + dup i port-status-changed? if ( hub-dev connected? ) + if ( hub-dev ) + dup i safe-probe-hub-port ( hub-dev ) + \ else Handle disconnect + then ( hub-dev ) + else ( hub-dev ) + i port-is-hub? if ( hub-dev phandle ) + reprobe-hub-node ( hub-dev ) + then ( hub-dev ) + then ( hub-dev ) + loop ( hub-dev ) + drop ( ) +; + +: reprobe-hub-xt ( -- adr ) ['] do-reprobe-hub ; + headers \ LICENSE_BEGIN Modified: dev/usb2/hcd/uhci/loadpkg.fth ============================================================================== --- dev/usb2/hcd/uhci/loadpkg.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/uhci/loadpkg.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -21,7 +21,7 @@ fload ${BP}/dev/usb2/device/vendor.fth \ Supported vendor/product tables fload ${BP}/dev/usb2/hcd/fcode.fth \ Load fcode driver for child fload ${BP}/dev/usb2/hcd/device.fth \ Make child node & its properties -fload ${BP}/dev/usb2/hcd/uhci/probe.fth \ Probe root hub fload ${BP}/dev/usb2/hcd/probehub.fth \ Probe usb hub +fload ${BP}/dev/usb2/hcd/uhci/probe.fth \ Probe root hub Modified: dev/usb2/hcd/uhci/probe.fth ============================================================================== --- dev/usb2/hcd/uhci/probe.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/uhci/probe.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -4,31 +4,18 @@ hex headers -\ We mustn't wait more than 3 ms between releasing the reset and enabling -\ the port to begin the SOF stream, otherwise some devices (e.g. pl2303) -\ will go into suspend state and then not respond to set-address. -: reset-root-hub-port ( port -- ) - dup >r portsc@ h# 20e invert and ( value r: port ) \ Clear reset, enable, status - dup h# 200 or r@ portsc! ( value r: port ) \ Reset port - d# 30 ms ( value r: port ) \ > 10 ms - reset time - dup r@ portsc! ( value r: port ) \ Release reset - 1 ms ( value r: port ) \ > 5.3 uS - reconnect time - h# e or r> portsc! ( ) \ Enable port and clear status -; - : probe-root-hub-port ( port -- ) - dup reset-root-hub-port - dup portsc@ 1 and 0= if drop exit then \ No device-connected - ok-to-add-device? 0= if drop exit then \ Can't add another device - - new-address ( port dev ) - over portsc@ 100 and if speed-low else speed-full then - over di-speed! ( port dev ) - - 0 set-target ( port dev ) \ Address it as device 0 - dup set-address if 2drop exit then ( port dev ) \ Assign it usb addr dev - dup set-target ( port dev ) \ Address it as device dev - make-device-node ( ) + \ Reset the port to perform connection status and speed detection + dup reset-port ( port ) + dup portsc@ 1 and 0= if drop exit then ( port ) \ No device-connected + + dup portsc@ 100 and if speed-low else speed-full then ( port speed ) + + \ hub-port and hub-speed are irrelevant for UHCI (USB 1.1) + 0 0 ( port speed hub-port hub-dev ) + + \ Execute setup-new-node in root context and make-device-node in hub node context + setup-new-node if execute then ( ) ; external @@ -46,6 +33,10 @@ drop ." Failed to probe root port " i .d cr then i portsc@ i portsc! \ Clear change bits + else + i port-is-hub? if ( phandle ) \ Already-connected hub? + reprobe-hub-node \ Check for changes on its ports + then then loop free-pkt-buf Modified: dev/usb2/hcd/uhci/uhci.fth ============================================================================== --- dev/usb2/hcd/uhci/uhci.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/hcd/uhci/uhci.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -38,6 +38,18 @@ : portsc@ ( port -- data ) 2* 10 + uhci-w@ ; : portsc! ( data port -- ) 2* 10 + uhci-w! ; +\ We mustn't wait more than 3 ms between releasing the reset and enabling +\ the port to begin the SOF stream, otherwise some devices (e.g. pl2303) +\ will go into suspend state and then not respond to set-address. +: reset-port ( port -- ) + dup >r portsc@ h# 20e invert and ( value r: port ) \ Clear reset, enable, status + dup h# 200 or r@ portsc! ( value r: port ) \ Reset port + d# 30 ms ( value r: port ) \ > 10 ms - reset time + dup r@ portsc! ( value r: port ) \ Release reset + 1 ms ( value r: port ) \ > 5.3 uS - reconnect time + h# e or r> portsc! ( ) \ Enable port and clear status +; + : reset-usb ( -- ) uhci-reg dup 0= if map-regs then 4 usbcmd! \ Global reset Modified: dev/usb2/pkt-data.fth ============================================================================== --- dev/usb2/pkt-data.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/pkt-data.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -80,7 +80,7 @@ \ Use tmp-l to make sure that le-l! and le-w! are atomic writes -instance variable tmp-l +variable tmp-l : le-w@ ( a -- w ) dup c@ swap ca1+ c@ bwjoin ; : (le-w!) ( w a -- ) >r wbsplit r@ ca1+ c! r> c! ; : le-w! ( w a -- ) swap tmp-l (le-w!) tmp-l w@ swap w! ; Modified: dev/usb2/pkt-func.fth ============================================================================== --- dev/usb2/pkt-func.fth Wed Jan 26 20:01:33 2011 (r2151) +++ dev/usb2/pkt-func.fth Thu Jan 27 00:40:25 2011 (r2152) @@ -24,22 +24,6 @@ repeat ; -: get-class ( dev-adr cfg-adr intfidx -- protocol subclass class ) - rot dup 4 + c@ ?dup 0= if ( cfg-adr intfidx dev-adr ) - false to class-in-dev? \ Class is not in device descriptor - drop find-intf-desc ( intf-adr ) - dup 5 + c@ swap dup 6 + c@ swap 7 + c@ - else \ Class is in device-descriptor - true to class-in-dev? ( cfg-adr intfidx dev-adr class ) - 2swap 2drop ( dev-adr class ) - swap dup 5 + c@ swap 6 + c@ - then -; - -: get-vid ( adr -- vendor product rev ) - dup 8 + le-w@ swap dup d# 10 + le-w@ swap c + le-w@ -; - : unicode$>ascii$ ( adr -- actual ) dup c@ 2 - 2/ swap 2 + over 0 ?do ( actual adr' ) dup i 2* 1+ + c@ 0= if \ ASCII

1 0

[commit] r2151 - cpu/arm/olpc/1.75
by repository service Jan. 26, 2011

Jan. 26, 2011

Author: pgf Date: Wed Jan 26 20:01:33 2011 New Revision: 2151 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2151 Log: Q4A12 Modified: cpu/arm/olpc/1.75/fw-version.fth Modified: cpu/arm/olpc/1.75/fw-version.fth ============================================================================== --- cpu/arm/olpc/1.75/fw-version.fth Wed Jan 26 01:18:53 2011 (r2150) +++ cpu/arm/olpc/1.75/fw-version.fth Wed Jan 26 20:01:33 2011 (r2151) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 11 +macro: FW_MINOR 12

1 0

[commit] r2150 - cpu/x86/pc/olpc/via
by repository service Jan. 25, 2011

Jan. 25, 2011

Author: quozl Date: Wed Jan 26 01:18:53 2011 New Revision: 2150 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2150 Log: OLPC XO-1.5 - cancel ANSI text attributes for use with black background terminals, adopt same change from XO-1.75. Watermark: -r2149 working on XO-1.5. Modified: cpu/x86/pc/olpc/via/fw.bth Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Tue Jan 25 09:55:42 2011 (r2149) +++ cpu/x86/pc/olpc/via/fw.bth Wed Jan 26 01:18:53 2011 (r2150) @@ -724,7 +724,7 @@ unfreeze visible ( no-banner? ) if banner then \ Reissue banner if it was suppressed - blue-letters ." Type 'help' for more information." black-letters + blue-letters ." Type 'help' for more information." black-letters cancel cr cr enable-user-aborts

1 0