fix slow send speed, new fifo allows get of entire buffer

[lcore.git] / bsearchtree.pas

diff --git a/bsearchtree.pas b/bsearchtree.pas
index 9ec804c750edae6740653c11364ba1a17c04dd7e..249a6ff3c066e48b9f19b2777a3ae97f4be5c8b3 100644 (file)
--- a/bsearchtree.pas
+++ b/bsearchtree.pas
@@ -7,6 +7,9 @@
 \r
 unit bsearchtree;\r
 \r
+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r
 interface\r
 \r
 uses blinklist;\r