X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/7dc251cf8ed990dd285b5fa5818c3a247e07d95c..HEAD:/unitfork.pas?ds=sidebyside

diff --git a/unitfork.pas b/unitfork.pas
old mode 100755
new mode 100644
index cd008da..3bcb3b1
--- a/unitfork.pas
+++ b/unitfork.pas
@@ -3,7 +3,9 @@
     which is included in the package
       ----------------------------------------------------------------------------- }
 unit unitfork;
-
+{$ifdef fpc}
+  {$mode delphi}
+{$endif}
 interface
 
 procedure dofork(const programname:string);
@@ -17,7 +19,7 @@ uses
   {$ifdef VER1_0}
     linux,
   {$else}
-    baseunix,unix,unixutil,
+    baseunix,unix,unixutil,sockets,
   {$endif}
   sysutils;