allow opt out of win8 api method for program that needs old method

[lcore.git] / unitfork.pas

diff --git a/unitfork.pas b/unitfork.pas
old mode 100755 (executable)
new mode 100644 (file)
index cd008da..3bcb3b1
--- a/unitfork.pas
+++ b/unitfork.pas
@@ -3,7 +3,9 @@
     which is included in the package\r
       ----------------------------------------------------------------------------- }\r
 unit unitfork;\r
     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
 interface\r
 \r
 procedure dofork(const programname:string);\r


@@ -17,7 +19,7 @@ uses
   {$ifdef VER1_0}\r
     linux,\r
   {$else}\r
   {$ifdef VER1_0}\r
     linux,\r
   {$else}\r

-    baseunix,unix,unixutil,\r
+    baseunix,unix,unixutil,sockets,\r

   {$endif}\r
   sysutils;\r
 \r
   {$endif}\r
   sysutils;\r
 \r