X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..8bc22a17b97149d69fd377f5e9f5ed617a4385db:/bfifo.pas?ds=sidebyside

diff --git a/bfifo.pas b/bfifo.pas
old mode 100755
new mode 100644
index 55cc24a..667c0da
--- a/bfifo.pas
+++ b/bfifo.pas
@@ -76,7 +76,6 @@ end;
 function tfifo.get;
 var
   p:tlinklist;
-  a:integer;
 begin
   if len > size then len := size;
   if len <= 0 then begin