mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-09 10:09:23 +02:00
+ quick fix for getpathstring on OS4
git-svn-id: trunk@4399 -
This commit is contained in:
parent
889f564aa3
commit
9419843da6
@ -870,7 +870,7 @@ begin
|
||||
writeln(f,'path >ram:temp.lst');
|
||||
close(f);
|
||||
exec('c:protect','ram:makepathstr sarwed quiet');
|
||||
exec('C:execute','ram:makepathstr');
|
||||
exec('ram:makepathstr','');
|
||||
exec('c:delete','ram:makepathstr quiet');
|
||||
assign(f,'ram:temp.lst');
|
||||
reset(f);
|
||||
|
Loading…
Reference in New Issue
Block a user