MorphOS: different system function names

git-svn-id: trunk@30806 -

packages/fcl-process/src/amicommon/pipes.inc

@@ -52,6 +52,10 @@ begin
    DeleteIt := NameFromFH(BPTR(FHandle), @(Filename[0]), 255);
    FileClose(FHandle);
    if DeleteIt then
+   {$ifdef MorphOS}
+     AmigaDos.dosDeleteFile(@(Filename[0]));
+   {$else}
      AmigaDos.DeleteFile(@(Filename[0]));
+   {$endif}
  end;  
 end;

packages/fcl-process/src/amicommon/process.inc

@@ -120,7 +120,11 @@ begin
      TempName := 'T:'+HexStr(FindTask(nil)) + '_'  + HexStr(Self) + '_'+ IntToStr(UID) + '_Starter.tmp';
    until not FileExists(TempName);   
    //sysdebugln('TProcess start: "' + ExecName + ' ' + Params+'"  >' + TempName);
-   cos := DosOpen(PChar(TempName), MODE_READWRITE);
+   {$ifdef MorphOS}
+   cos := AmigaDos.Open(PChar(TempName), MODE_READWRITE);
+   {$else}
+   cos := AmigaDos.DosOpen(PChar(TempName), MODE_READWRITE);
+   {$endif}
    FExitCode := LongInt(amigados.Execute(PChar(ExecName + ' ' + Params), BPTR(0), cos));
    DosSeek(cos, 0, OFFSET_BEGINNING);
    CreateStreams(0, THandle(cos),0);