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

Amiga, AROS, MorphOS: shorter Tempfilename in TProcess

Browse Source 
git-svn-id: trunk@30842 -
This commit is contained in:
marcus 2015-05-11 15:36:49 +00:00
parent 678519c9d9
commit 0effe938bd
1 changed files with 1 additions and 1 deletions

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

@ -117,7 +117,7 @@ begin
cos := BPTR(0);
repeat
Inc(UID);
TempName := 'T:'+HexStr(FindTask(nil)) + '_' + HexStr(Self) + '_'+ IntToStr(UID) + '_Starter.tmp';
TempName := 'T:PrO_'+ HexStr(FindTask(nil)) + '_' + IntToHex(UID,8);
until not FileExists(TempName);
//sysdebugln('TProcess start: "' + ExecName + ' ' + Params+'" >' + TempName);
cos := AmigaDos.DosOpen(PChar(TempName), MODE_READWRITE);