Răsfoiți Sursa

* Correct write at

Michael Van Canneyt 1 an în urmă
părinte
comite
767c226db7
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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;