From: beware Date: Tue, 28 Jun 2011 18:09:07 +0000 (+0000) Subject: fix execl to work X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/e9fd84c2a9f04b8d9c1bc79d70c33c8d22d85e26 fix execl to work git-svn-id: file:///svnroot/lcore/trunk@101 b1de8a11-f9be-4011-bde0-cc7ace90066a --- diff --git a/unixstuff.inc b/unixstuff.inc index b522c74..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; @@ -168,4 +168,4 @@ {$endif} - \ No newline at end of file +