Prechádzať zdrojové kódy

* WASI: workaround for FindFirst/FindNext opening the current directory, by using its full name

Nikolay Nikolov 7 mesiacov pred
rodič
commit
7e89495a09
1 zmenil súbory, kde vykonal 3 pridanie a 0 odobranie
  1. 3 0
      rtl/wasi/wasiutil.pp

+ 3 - 0
rtl/wasi/wasiutil.pp

@@ -294,6 +294,9 @@ Begin
          DirName:=Copy(f.SearchSpec,1,f.NamePos);
          DirName:=Copy(f.SearchSpec,1,f.NamePos);
         if ConvertToFdRelativePath(DirName,fd,pr)=0 then
         if ConvertToFdRelativePath(DirName,fd,pr)=0 then
          begin
          begin
+           { WasmTime doesn't like opening an empty path }
+           if pr='' then
+             pr:='.';
            repeat
            repeat
              res:=__wasi_path_open(fd,
              res:=__wasi_path_open(fd,
                                    0,
                                    0,