r1203 - dev/usb2/hcd/ehci

Author: wmb
Date: 2009-05-28 00:58:18 +0200 (Thu, 28 May 2009)
New Revision: 1203

Modified:
   dev/usb2/hcd/ehci/intr.fth
Log:
USB - Fix from Lilian for interrupt endpoints on EHCI.

Modified: dev/usb2/hcd/ehci/intr.fth
===================================================================
--- dev/usb2/hcd/ehci/intr.fth	2009-05-25 20:38:16 UTC (rev 1202)
+++ dev/usb2/hcd/ehci/intr.fth	2009-05-27 22:58:18 UTC (rev 1203)
@@ -27,7 +27,7 @@
    intr-in-data!
 ;

-: process-intr-args  ( buf len pipe timeout -- )  process-bulk-args  ;
+: process-intr-args  ( buf len pipe -- )  process-bulk-args  ;
 : alloc-intr-qhqtds  ( -- qh qtd )  alloc-bulk-qhqtds  ;
 : fill-intr-io-qtds  ( dir qtd -- )
    my-#qtds 0  do				( dir qtd )
@@ -51,8 +51,9 @@

to intr-in-interval
    dup to intr-in-pipe
-   intr-in-timeout process-intr-args
+   process-intr-args
    alloc-intr-qhqtds  to intr-in-qtd  to intr-in-qh
+   intr-in-timeout intr-in-qh >qh-timeout l!

\ IN qTDs
    TD_PID_IN intr-in-qtd fill-intr-io-qtds
@@ -101,6 +102,7 @@
    intr-in-qtd restart-intr-in-qtd

\ Setup QH again
+   intr-in-timeout intr-in-qh >qh-timeout l!
    intr-in-qh >hcqh-endp-char dup le-l@ QH_TD_TOGGLE invert and swap le-l!
    intr-in-qtd >qtd-phys l@ intr-in-qh >hcqh-overlay >hcqtd-next le-l!
    intr-in-qh sync-qhqtds