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

[lcore.git] / unitfork.pas

diff --git a/unitfork.pas b/unitfork.pas
index 019695bfb796ea852173ef290476c5e926bab579..3bcb3b1c3a408abfe325d7b9d750ae54c033a952 100644 (file)
--- a/unitfork.pas
+++ b/unitfork.pas
@@ -3,7 +3,9 @@
     which is included in the package\r
       ----------------------------------------------------------------------------- }\r
 unit unitfork;\r
-\r
+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r
 interface\r
 \r
 procedure dofork(const programname:string);\r