Fixed off-by-one bug that led to constant buffer leaks.

Laksen · Aug 15, 2015 · 1593323 · 1593323
1 parent ffb7245
commit 1593323
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/fpethbuf.pas b/fpethbuf.pas
@@ -2,6 +2,7 @@
 
 interface
 
+{$mode objfpc}
 {$modeswitch AdvancedRecords}
 
 type
@@ -525,7 +526,7 @@ procedure TBuffer.DecRef;
             Dec(p^.RefCnt);
           end;
 
-        if OldCnt < 1 then
+        if OldCnt <= 1 then
           p^.Free;
 
         p:=p2;