/[lcore]/trunk/bfifo.pas
ViewVC logotype

Diff of /trunk/bfifo.pas

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

revision 64 by plugwash, Fri Feb 5 03:32:29 2010 UTC revision 94 by beware, Mon Feb 21 21:40:05 2011 UTC
# Line 76  Line 76 
76  function tfifo.get;  function tfifo.get;
77  var  var
78    p:tlinklist;    p:tlinklist;
   a:integer;  
79  begin  begin
80    if len > size then len := size;    if len > size then len := size;
81    if len <= 0 then begin    if len <= 0 then begin

Legend:
Removed from v.64  
changed lines
  Added in v.94

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22