X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/03b75b4c964d8b3ac97d4007f0e033549b01c92f..3dd5a60c6c89a29781e099a9e204b09ffbb2e317:/unitfork.pas?ds=inline

diff --git a/unitfork.pas b/unitfork.pas
index 019695b..3bcb3b1 100644
--- 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);