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 ;