Author: wmb Date: 2009-12-11 15:34:46 +0100 (Fri, 11 Dec 2009) New Revision: 1582
Modified: dev/hdaudio/core.fth Log: OLPC trac 9870 - Startup sound repeats when interrupts are disabled.
Modified: dev/hdaudio/core.fth =================================================================== --- dev/hdaudio/core.fth 2009-12-11 13:54:04 UTC (rev 1581) +++ dev/hdaudio/core.fth 2009-12-11 14:34:46 UTC (rev 1582) @@ -460,6 +460,11 @@ 4 to sd# audio-out install-playback-alarm true to playing? ;
+: ?end-sound ( -- ) + 4 to #sd + stream-done? if (write-done) false to playing? then +; + false value stop-lock : stop-sound ( -- ) true to stop-lock @@ -470,16 +475,16 @@ \ Alarm handle to stop the stream when the content has been played. : playback-completed-alarm ( -- ) stop-lock if exit then - playing? if - sd# 4 to sd# ( sd# ) - stream-done? if (write-done) false to playing? then ( sd# ) - to sd# ( ) - then + playing? if sd# ?end-sound to sd# then ;
' playback-completed-alarm is playback-alarm
-: wait-sound ( -- ) begin playing? 0= until ; +: wait-sound ( -- ) + true to stop-lock + begin playing? while d# 10 ms ?end-sound repeat + false to stop-lock +;
false value left-mute? false value right-mute?