X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/f102aba78918f31feeb2b3d8a685faa7ebfd20be..1a863b8d4ef10ffb7424401ef65a39e3090f41a9:/unixstuff.inc?ds=sidebyside

diff --git a/unixstuff.inc b/unixstuff.inc
index 773656d..dca63ce 100755
--- a/unixstuff.inc
+++ b/unixstuff.inc
@@ -47,7 +47,7 @@
 	var
 	  p : ppchar;
 	begin
-	  p := unixutil.StringToPPChar(Todo,1);
+	  p := unixutil.StringToPPChar(Todo,0);
 	  if (p=nil) or (p^=nil) then exit;
 	  fpexecv(p^,p);
 	end;
@@ -159,5 +159,13 @@
         IPV6_V6ONLY         = 26;
     {$endif}
   {$endif}
+  {$ifdef freebsd}
+    //freepascal doesn't seem to define IPV6_V6ONLY on freebsd, the definition
+    //here is taken from the include files of a freebsd 8 system
+    const
+      IPV6_V6ONLY = 27;
+  {$endif}
+
 {$endif}
-    
\ No newline at end of file
+
+