Changeset 3625


Ignore:
Timestamp:
Mar 25, 2013, 11:53:09 PM (2 years 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.