浏览代码

+ quick fix for getpathstring on OS4

git-svn-id: trunk@4399 -
Károly Balogh 19 年之前
父节点
当前提交
9419843da6
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/amiga/dos.pp

+ 1 - 1
rtl/amiga/dos.pp

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