{$define dup2 := fpdup2}\r
{$ifndef ver1_9_2}\r
{$define flock := fpflock}\r
- {$ifndef ver1_9_4}
- procedure Execl(Todo:string);inline;
- var
- p : ppchar;
- begin
- p := unixutil.StringToPPChar(Todo,1);
- if (p=nil) or (p^=nil) then exit;
- fpexecv(p^,p);
- end;
- {$endif}
+ {$ifndef ver1_9_4}\r
+ procedure Execl(Todo:string);inline;\r
+ var\r
+ p : ppchar;\r
+ begin\r
+ p := unixutil.StringToPPChar(Todo,1);\r
+ if (p=nil) or (p^=nil) then exit;\r
+ fpexecv(p^,p);\r
+ end;\r
+ {$endif}\r
{$endif}\r
procedure gettimeofday(var tv:ttimeval);inline;\r
begin\r