Changeset 3625


Ignore:
Timestamp:
Mar 25, 2013, 11:53:09 PM (13 months ago)
Author:
wmb
Message:

Audio selftest - trivial refactoring to make interactive testing easier.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/geode/ac97/selftest.fth

    r3424 r3625  
    149149; 
    150150 
     151: alloc-test-buf  ( -- ) 
     152   record-len la1+  " dma-alloc" $call-parent to record-base 
     153; 
     154: free-test-buf  ( -- ) 
     155   record-base record-len la1+  " dma-free" $call-parent 
     156; 
    1511570 value skip-sweep? 
    152158: selftest  ( -- error? ) 
    153159   open 0=  if  ." Failed to open /audio" cr true exit  then 
    154160   wav-test 
    155    record-len la1+  " dma-alloc" $call-parent to record-base 
     161   alloc-test-buf 
    156162   skip-sweep? 0=  if  sweep-test  then 
    157163   mic-test 
    158    record-base record-len la1+  " dma-free" $call-parent 
     164   free-test-buf 
    159165   close 
    160166   false 
Note: See TracChangeset for help on using the changeset viewer.