[xiph-commits] r3188 - oogg/trunk

[shans at svn.annodex.net]

Author: shans
Date: 2007-08-13 22:41:01 -0700 (Mon, 13 Aug 2007)
New Revision: 3188

Modified:
   oogg/trunk/packet.ml
Log:
Actually get rid of un-timestamped packets from the cache after presenting them



Modified: oogg/trunk/packet.ml
===================================================================
--- oogg/trunk/packet.ml	2007-08-13 12:34:31 UTC (rev 3187)
+++ oogg/trunk/packet.ml	2007-08-14 05:41:01 UTC (rev 3188)
@@ -38,7 +38,9 @@
         [< _ngaf t last_gp; 
            '{ h with p_granulepos = last_gp; p_time = crec.rc_tf last_gp } >])
   | [] -> [< >] in
-  [< _ngaf crec.rc_cache pack.p_granulepos; 'pack >]
+  let l = crec.rc_cache in
+  crec.rc_cache <- [];
+  [< _ngaf l pack.p_granulepos; 'pack >]
 
 let reconstruct_packet context pack =
   let sn = pack.p_page.raw.serialno in