[openfirmware] r1512 - dev/usb2/hcd/ehci

[svn at openfirmware.info]

Author: wmb
Date: 2009-11-25 23:22:46 +0100 (Wed, 25 Nov 2009)
New Revision: 1512

Modified:
   dev/usb2/hcd/ehci/bulk.fth
Log:
Corrected a few stack comments in ehci/bulk.fth.  No functional change.


Modified: dev/usb2/hcd/ehci/bulk.fth
===================================================================
--- dev/usb2/hcd/ehci/bulk.fth	2009-11-25 22:20:48 UTC (rev 1511)
+++ dev/usb2/hcd/ehci/bulk.fth	2009-11-25 22:22:46 UTC (rev 1512)
@@ -30,7 +30,7 @@
 : toggle-bulk-in-data   ( -- )    bulk-in-pipe  target di-in-data-toggle   ;
 : toggle-bulk-out-data  ( -- )    bulk-out-pipe target di-out-data-toggle  ;
 
-: qtd-fixup-bulk-in-data  ( qtd -- data )
+: qtd-fixup-bulk-in-data  ( qtd -- )
    usb-error USB_ERR_STALL and  if
       drop bulk-in-pipe h# 80 or unstall-pipe 
       TD_TOGGLE_DATA0
@@ -39,9 +39,9 @@
    then
    bulk-in-data!
 ;
-: fixup-bulk-in-data    ( qh -- data )  >hcqh-overlay qtd-fixup-bulk-in-data  ;
+: fixup-bulk-in-data    ( qh -- )  >hcqh-overlay qtd-fixup-bulk-in-data  ;
 
-: fixup-bulk-out-data   ( qh -- data )
+: fixup-bulk-out-data   ( qh -- )
    usb-error USB_ERR_STALL and  if
       drop bulk-out-pipe unstall-pipe
       TD_TOGGLE_DATA0
@@ -470,7 +470,7 @@
 
    usb-error					( actual usberr )
    my-bulk-qtd map-out-bptrs			( actual usberr )
-   my-bulk-qh dup fixup-bulk-in-data		( actual usberr )
+   my-bulk-qh dup fixup-bulk-in-data		( actual usberr qh )
    remove-qh					( actual usberr )
 ;