/[mldonkey]/mldonkey/src/utils/lib/fifo.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/fifo.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by spiralvoice, Tue Aug 9 10:50:02 2005 UTC revision 1.5 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC
# Line 243  let remove t e = Line 243  let remove t e =
243    if not t.empty then begin    if not t.empty then begin
244        if t.outpos >= t.inpos then reformat t;        if t.outpos >= t.inpos then reformat t;
245        let rec iter t i j =        let rec iter t i j =
246  (*        Printf.printf "i=%d j=%d inpos=%d outpos=%d\n"  (*        Printf2.lprintf "i=%d j=%d inpos=%d outpos=%d\n"
247            i j t.inpos t.outpos; print_newline (); *)            i j t.inpos t.outpos; print_newline (); *)
248          if i >= t.inpos then          if i >= t.inpos then
249            (if i > j then begin            (if i > j then begin
# Line 256  let remove t e = Line 256  let remove t e =
256            iter t (i+1) j            iter t (i+1) j
257          else begin          else begin
258              if i > j then begin              if i > j then begin
259  (*                Printf.printf "Move i=%d at j=%d" i j; print_newline ();  *)  (*                Printf2.lprintf "Move i=%d at j=%d" i j; print_newline ();  *)
260                  t.array.(j) <- ee;                  t.array.(j) <- ee;
261                end;                end;
262              iter t (i+1) (j+1)              iter t (i+1) (j+1)
# Line 285  done Line 285  done
285  ;;  ;;
286    
287  while true do  while true do
288    Printf.printf "%d\n" (Fifo.take t)    Printf2.lprintf "%d\n" (Fifo.take t)
289  done;;  done;;
290    
291  *)  *)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26