paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed WASI bug in do_read, where the result of the __wasi_fd_read syscall function was ignored

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-11 10:33:54 +03:00
parent 977b2f2a4b
commit 09e61201d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/wasi/sysfile.inc
View File

@ -101,7 +101,7 @@ begin
repeat repeat
our_iov.buf:=Addr; our_iov.buf:=Addr;
our_iov.buf_len:=Len; our_iov.buf_len:=Len;
__wasi_fd_read(Handle,@our_iov,1,@our_nread); res:=__wasi_fd_read(Handle,@our_iov,1,@our_nread);
until (res=__WASI_ERRNO_SUCCESS) or ((res<>__WASI_ERRNO_INTR) and (res<>__WASI_ERRNO_AGAIN)); until (res=__WASI_ERRNO_SUCCESS) or ((res<>__WASI_ERRNO_INTR) and (res<>__WASI_ERRNO_AGAIN));
if res=__WASI_ERRNO_SUCCESS then if res=__WASI_ERRNO_SUCCESS then
begin begin