fix compile error on fpc 3.2.2

[lcore.git] / unixstuff.inc

diff --git a/unixstuff.inc b/unixstuff.inc
old mode 100755 (executable)
new mode 100644 (file)
index b522c74..29d12a9
--- a/unixstuff.inc
+++ b/unixstuff.inc
@@ -43,11 +43,15 @@
     {$ifndef ver1_9_2}\r
       {$define flock     := fpflock}\r
       {$ifndef ver1_9_4}\r
     {$ifndef ver1_9_2}\r
       {$define flock     := fpflock}\r
       {$ifndef ver1_9_4}\r

-        procedure Execl(Todo:string);inline;\r
+        {$if FPC_FULLVERSION >= 30200}\r
+          procedure Execl(Todo:rawbytestring);inline;\r
+        {$else}\r
+          procedure Execl(Todo:string);inline;\r
+        {$endif}\r

        var\r
          p : ppchar;\r
        begin\r
        var\r
          p : ppchar;\r
        begin\r

-         p := unixutil.StringToPPChar(Todo,1);\r
+         p := unixutil.StringToPPChar(Todo,0);\r

          if (p=nil) or (p^=nil) then exit;\r
          fpexecv(p^,p);\r
        end;\r
          if (p=nil) or (p^=nil) then exit;\r
          fpexecv(p^,p);\r
        end;\r


@@ -168,4 +172,4 @@
 \r
 {$endif}\r
 \r
 \r
 {$endif}\r
 \r

-    
\ No newline at end of file
+    \r