Merge 44c6c48 into 892362c

CHANGES.md

@@ -11,6 +11,8 @@ Fixed:
 - Cleanup telnet commands on output shutdown,
   prevent commands registration for internal
   outputs (#3545, fixes: #3541)
+- Fixed infinite loop on some active sources
+  (#3544)
 
 ---
 

src/core/operators/noblank.ml

@@ -142,6 +142,7 @@ class strip ~start_blank ~max_blank ~min_noise ~threshold ~track_sensitive
       if self#is_blank then AFrame.set_breaks ab (p0 :: b0)
 
     method private output =
+      self#has_ticked;
       (* We only #get once in memo; this is why we can set_breaks every time in
          #get_frame. This behavior makes time flow slower than expected, but
          doesn't seem harmful. The advantage of doing this is that if stripping

src/core/sources/harbor_input.ml

@@ -62,6 +62,7 @@ class http_input_server ~pos ~transport ~dumpfile ~logfile ~bufferize ~max ~icy
         | None -> "no source client connected"
 
     method private output =
+      self#has_ticked;
       if self#is_ready ~frame:self#memo () && AFrame.is_partial self#memo then
         self#get self#memo
 

src/core/synth/keyboard.ml

@@ -63,6 +63,7 @@ class keyboard =
     method self_sync = (`Static, false)
 
     method output =
+      self#has_ticked;
       if self#is_ready ~frame:self#memo () && AFrame.is_partial self#memo then
         self#get self#memo
 

src/core/synth/keyboard_sdl.ml

@@ -94,6 +94,7 @@ class keyboard velocity =
     method self_sync = (`Static, false)
 
     method output =
+      self#has_ticked;
       if self#is_ready ~frame:self#memo () && AFrame.is_partial self#memo then
         self#get self#memo
 

src/core/tools/start_stop.ml

@@ -99,6 +99,7 @@ class virtual active_source ?get_clock ~name ~clock_safe
     method virtual private memo : Frame.t
 
     method private output =
+      self#has_ticked;
       if self#is_ready ~frame:self#memo () && AFrame.is_partial self#memo then
         self#get self#memo
   end