eliminated a lot of hints and warnings

[lcore.git] / bfifo.pas

diff --git a/bfifo.pas b/bfifo.pas
old mode 100755 (executable)
new mode 100644 (file)
index 55cc24a..667c0da
--- a/bfifo.pas
+++ b/bfifo.pas
@@ -76,7 +76,6 @@ end;
 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