[commit] r3625 - dev/geode/ac97

[repository service]

Author: wmb
Date: Mon Mar 25 23:53:09 2013
New Revision: 3625
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3625

Log:
Audio selftest - trivial refactoring to make interactive testing easier.

Modified:
   dev/geode/ac97/selftest.fth

Modified: dev/geode/ac97/selftest.fth
==============================================================================
--- dev/geode/ac97/selftest.fth	Mon Mar 25 23:50:45 2013	(r3624)
+++ dev/geode/ac97/selftest.fth	Mon Mar 25 23:53:09 2013	(r3625)
@@ -148,14 +148,20 @@
    d# -3 set-volume  play
 ;

+: alloc-test-buf  ( -- )
+   record-len la1+  " dma-alloc" $call-parent to record-base
+;
+: free-test-buf  ( -- )
+   record-base record-len la1+  " dma-free" $call-parent
+;
 0 value skip-sweep?
 : selftest  ( -- error? )
    open 0=  if  ." Failed to open /audio" cr true exit  then
    wav-test
-   record-len la1+  " dma-alloc" $call-parent to record-base
+   alloc-test-buf
    skip-sweep? 0=  if  sweep-test  then
    mic-test
-   record-base record-len la1+  " dma-free" $call-parent
+   free-test-buf
    close
    false
 ;