paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 13:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MorphOS: different system function names

Browse Source 
git-svn-id: trunk@30806 -
This commit is contained in:
marcus 2015-05-05 20:54:56 +00:00
parent 9d46a85d1a
commit 678133ac58
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-process/src/amicommon/pipes.inc
View File

@ -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;

6
packages/fcl-process/src/amicommon/process.inc
View File

@ -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);