eliminated a lot of hints and warnings

[lcore.git] / bfifo.pas

diff --git a/bfifo.pas b/bfifo.pas
index 55cc24ad0bdc2cdb3e5abc6f21bcfeb6ec3fa917..667c0da863da557c29d37f65f1c00b8d141e54ab 100644 (file)
--- a/bfifo.pas
+++ b/bfifo.pas
@@ -76,7 +76,6 @@ end;
 function tfifo.get;\r
 var\r
   p:tlinklist;\r
 function tfifo.get;\r
 var\r
   p:tlinklist;\r

-  a:integer;\r

 begin\r
   if len > size then len := size;\r
   if len <= 0 then begin\r
 begin\r
   if len > size then len := size;\r
   if len <= 0 then begin\r