瀏覽代碼

* Update filepos on write

Michael Van Canneyt 2 月之前
父節點
當前提交
93a49d64d1
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      packages/wasi/src/wasizenfs.pas

+ 3 - 0
packages/wasi/src/wasizenfs.pas

@@ -315,6 +315,9 @@ begin
     else
       Written:=ZenFS.writeSync(fd,DS,0,Data.byteLength);
     Result:=resOK;
+    if atPos=-1 then
+      // update position
+      FPositionMap.&set(FD,lPos+Written);
   except
     on E : TJSObject do
       Result:=ExceptToError(E);