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

Amiga: merged getpathstring DOS unit fixes from MorphOS RTL

Browse Source 
git-svn-id: trunk@27049 -
This commit is contained in:
Károly Balogh 2014-03-09 16:41:25 +00:00
parent f2cf516529
commit b11e26cf55
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/amiga/dos.pp
View File

@ -441,7 +441,7 @@ end;
procedure Exec(const Path: PathStr; const ComLine: ComStr);
var
tmpPath: array[0..255] of char;
tmpPath: array[0..515] of char;
result : longint;
tmpLock: longint;
begin
@ -881,17 +881,24 @@ var
s : string;
found : boolean;
temp : string[255];
tmpBat: string[31];
tmpList: string[31];
begin
found := true;
temp := '';
assign(f,'ram:makepathstr');
tmpBat:='T:'+HexStr(FindTask(nil));
tmpList:=tmpBat+'_path.tmp';
tmpBat:=tmpBat+'_path.sh';
assign(f,tmpBat);
rewrite(f);
writeln(f,'path >ram:temp.lst');
writeln(f,'path >'+tmpList);
close(f);
exec('c:protect','ram:makepathstr sarwed quiet');
exec('ram:makepathstr','');
exec('c:delete','ram:makepathstr quiet');
assign(f,'ram:temp.lst');
exec('C:Execute',tmpBat);
erase(f);
assign(f,tmpList);
reset(f);
{ skip the first line, garbage }
if not eof(f) then readln(f,s);
@ -906,7 +913,8 @@ begin
end;
end;
close(f);
exec('C:delete','ram:temp.lst quiet');
erase(f);
getpathstring := temp;
end;