[commit] r2428 - dev/usb2/hcd

[repository service]

Author: wmb
Date: Sat Aug  6 01:52:34 2011
New Revision: 2428
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2428

Log:
USB hub probe code - replaced some non-fcode words with equivalent sequences of FCodes.

Modified:
   dev/usb2/hcd/probehub.fth

Modified: dev/usb2/hcd/probehub.fth
==============================================================================
--- dev/usb2/hcd/probehub.fth	Sat Aug  6 00:44:01 2011	(r2427)
+++ dev/usb2/hcd/probehub.fth	Sat Aug  6 01:52:34 2011	(r2428)
@@ -221,16 +221,18 @@

" usb-hub-test-list" get-inherited-property  if      ( )
       hub-#ports 1+  1  ?do                             ( )
-         i (hub-selftest)  if  true unloop exit  then
+         i (hub-selftest)  if  true unloop exit  then   ( )
       loop                                              ( )
    else                                                 ( propval$ )
-      decode-string 2nip                                ( list$ )
+      decode-string 2swap 2drop                         ( list$ )
       begin  dup  while                                 ( list$ )
          ascii , left-parse-string                      ( list$' dev#$ )
-         push-decimal  $number  if  0  then  pop-base   ( list$ port# )
+         base @ >r decimal                              ( list$' dev#$ )
+         $number  if  0  then                           ( list$' port# )
+	 r> base !                                      ( list$ port# )
          (hub-selftest)  if  drop true exit  then       ( list$ )
       repeat                                            ( list$ )
-      2drop
+      2drop                                             ( )
    then                                                 ( )

\ Maybe need to reset the entire hub here