+ Use baseunix fpexecv* calls

2025-04-21 22:29:24 +02:00 · 2005-01-15 23:41:09 +00:00 · 2005-01-15 23:41:09 +00:00 · f7ff698735
commit f7ff698735
parent 2069166e8a
1 changed files with 6 additions and 6 deletions
--- a/fcl/unix/process.inc
+++ b/fcl/unix/process.inc
@ -4,11 +4,11 @@

 uses
 {$ifdef ver1_0}
-   Linux
+   Linux;
 {$else}
-   Baseunix,
-   unix
-{$endif};
+   Unix,
+   Baseunix;
+{$endif}



@ -350,9 +350,9 @@ begin
          if (poRunSuspended in Options) then
            sigraise(SIGSTOP);
          if FEnv<>Nil then
-            fpexecve(PChar(PName),Argv,Fenv)
+            fpexecve(PName,Argv,Fenv)
          else
-            fpexecv(Pchar(PName),argv);
+            fpexecv(PName,argv);
          Halt(127);
          end
      Finally