paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 19:18:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

a slightly less broken getpathstring() for dos unit. yes, sadly this code is still in use on MorphOS, sysutils wraps to it

Browse Source 
git-svn-id: trunk@26831 -
This commit is contained in:
Károly Balogh 2014-02-22 09:40:41 +00:00
parent ab3f5744e0
commit e286a7462c
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/morphos/dos.pp
View File

@ -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('C:execute','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;