[commit] r1836 - dev

[repository service]

Author: wmb
Date: Fri Jun 25 02:08:14 2010
New Revision: 1836
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1836

Log:
Libertas driver - guard TX feedback reporting code with a debug switch.

Modified:
   dev/libertas.fth

Modified: dev/libertas.fth
==============================================================================
--- dev/libertas.fth	Fri Jun 25 02:00:22 2010	(r1835)
+++ dev/libertas.fth	Fri Jun 25 02:08:14 2010	(r1836)
@@ -442,6 +442,7 @@
 : .event  ?cr  ." Event: "  type  cr ;
 0 instance value last-event
 0 instance value backlog
+0 value debug-tx-feedback?
 : process-ind  ( adr len -- )
    drop
    true to got-indicator?
@@ -449,14 +450,16 @@
    dup h# 10000 u>=  if              ( event-code )
       \ TX feedback from thin firmware
       backlog 1- 0 max  to backlog   ( event-code )
-      \ Cozybit asked for this test to help debug the thin firmware
-      lbsplit  2swap 2drop           ( retrycnt failure )
-      ?dup  if                       ( retrycnt failure )
-         cr ." Failure code 0x" base @ hex  swap .  base ! cr
-      then                           ( retrycnt )
-      dup d# 10 <>  if               ( retrycnt )
-         cr ." Retry count (decimal) " base @ decimal  over .  base !  cr
-      then                           ( retrycnt )
+      debug-tx-feedback?  if
+         \ Cozybit asked for this test to help debug the thin firmware
+         lbsplit  2swap 2drop           ( retrycnt failure )
+         ?dup  if                       ( retrycnt failure )
+            cr ." Failure code 0x" base @ hex  swap .  base ! cr
+         then                           ( retrycnt )
+         dup d# 10 <>  if               ( retrycnt )
+            cr ." Retry count (decimal) " base @ decimal  over .  base !  cr
+         then                           ( retrycnt )
+      then
       drop
       exit
    then