[openfirmware] [commit] r1836 - dev
repository service
svn at openfirmware.info
Fri Jun 25 02:08:15 CEST 2010
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
More information about the openfirmware
mailing list