[openfirmware] r1530 - dev/hdaudio

[svn at openfirmware.info]

Author: wmb
Date: 2009-12-02 08:45:08 +0100 (Wed, 02 Dec 2009)
New Revision: 1530

Modified:
   dev/hdaudio/core.fth
Log:
OLPC trac 9783 - fixed silence of test /audio .


Modified: dev/hdaudio/core.fth
===================================================================
--- dev/hdaudio/core.fth	2009-12-02 07:13:30 UTC (rev 1529)
+++ dev/hdaudio/core.fth	2009-12-02 07:45:08 UTC (rev 1530)
@@ -449,11 +449,12 @@
    upsampling?  if  sound-buffer /sound-buffer dma-free  then
 ;
 
-: write-done  ( -- )
+: (write-done)  ( -- )
    stop-stream
    free-bdl
    release-sound-buffer
 ;
+: write-done  ( -- )  wait-stream-done  (write-done)  ;
 
 : write  ( adr len -- actual )
    4 to sd#  audio-out  install-playback-alarm  true to playing?
@@ -462,7 +463,7 @@
 false value stop-lock
 : stop-sound  ( -- )
    true to stop-lock
-   playing?  if  write-done  false to playing?  then
+   playing?  if  (write-done)  false to playing?  then
    false to stop-lock
 ;
 
@@ -471,7 +472,7 @@
    stop-lock  if  exit  then
    playing?  if
       sd#  4 to sd#                                          ( sd# )
-      stream-done?  if  write-done  false to playing?  then  ( sd# )
+      stream-done?  if  (write-done)  false to playing?  then  ( sd# )
       to sd#                                                 ( )
    then
 ;