[openfirmware] [commit] r3690 - cpu/x86/pc/olpc

[repository service]

Author: quozl
Date: Thu Jul 11 07:04:16 2013
New Revision: 3690
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3690

Log:
OLPC - nb-auto-channel was leaving junk on stack, regression introduced by r3560

Modified:
   cpu/x86/pc/olpc/wifichannel.fth

Modified: cpu/x86/pc/olpc/wifichannel.fth
==============================================================================
--- cpu/x86/pc/olpc/wifichannel.fth	Thu Jul 11 03:05:33 2013	(r3689)
+++ cpu/x86/pc/olpc/wifichannel.fth	Thu Jul 11 07:04:16 2013	(r3690)
@@ -88,12 +88,13 @@
    drop  r>                  ( #beacons )
 ;
 
-: scan-channel  ( channel# -- actual )
-   >r scan-buf d# 2048 r> " scan" $call-wlan  ( actual )
+: scan-channel  ( channel# -- false | actual true )
+   >r scan-buf d# 2048 r> " scan" $call-wlan
 ;
 
 : channel-stats  ( channel# -- total-rssi max-rssi #beacons )
    scan-channel  if
+      drop
       analyze-beacons
    else
       0 0 0
@@ -246,7 +247,8 @@
 
 : (.channel-beacons)  ( channel# -- )
    dup >r              ( r: channel# )
-   scan-channel  if    ( r: channel# )
+   scan-channel  if    ( actual r: channel# )
+      drop
       show-beacons     ( #beacons r: channel# )
    else                ( r: channel# )
       0                ( #beacons r: channel# )