浏览代码

* Correct write at

Michael Van Canneyt 1 年之前
父节点
当前提交
767c226db7
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/wasi/src/wasizenfs.pas

+ 1 - 1
packages/wasi/src/wasizenfs.pas

@@ -296,7 +296,7 @@ begin
   try
     DS:=TJSDataView.New(Data.buffer);
     if atPos<>-1 then
-      Written:=ZenFS.writeSync(fd,DS,atPos)
+      Written:=ZenFS.writeSync(fd,DS,0,Data.byteLength,atPos)
     else
       Written:=ZenFS.writeSync(fd,DS,0,Data.byteLength);
     Result:=resOK;